diff options
| author | N.N. <matju@users.sourceforge.net> | 2009-05-30 02:32:40 +0000 |
|---|---|---|
| committer | N.N. <matju@users.sourceforge.net> | 2009-05-30 02:32:40 +0000 |
| commit | aadff164ee95247f02d0288f4c1445d90d937b26 (patch) | |
| tree | 6387e1105317dfddcbed55ecfb8f80cea048b724 /desiredata/src/desire.tk | |
| parent | 25c291f7ebc684666b0e6bd0c1e87bb5cf0999a9 (diff) | |
put pd icon in the corner of every other dialogue window
svn path=/trunk/; revision=11573
Diffstat (limited to 'desiredata/src/desire.tk')
| -rw-r--r-- | desiredata/src/desire.tk | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/desiredata/src/desire.tk b/desiredata/src/desire.tk index d1e8d19e..d0bbecb4 100644 --- a/desiredata/src/desire.tk +++ b/desiredata/src/desire.tk @@ -1794,6 +1794,12 @@ def Canvas gop_rect {} { } +rename toplevel toplevel_orig +proc toplevel {name args} { + eval [concat [list toplevel_orig $name] $args] + catch {wm iconphoto $name icon_pd_32} +} + # should be called once and only from init def Canvas init_window {} { lappend ::window_list $self @@ -1804,7 +1810,6 @@ def Canvas init_window {} { } else { if {[$self look menubar]} {toplevel $win -menu $win.m} else {toplevel $win -menu ""} } - catch {wm iconphoto $win icon_pd_32} set @menubar $win.m $self init_menus # turn buttonbar on/off |