diff options
| -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 |