aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--desiredata/src/desire.tk7
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