aboutsummaryrefslogtreecommitdiff
path: root/desiredata
diff options
context:
space:
mode:
authorN.N. <matju@users.sourceforge.net>2009-05-30 02:32:40 +0000
committerN.N. <matju@users.sourceforge.net>2009-05-30 02:32:40 +0000
commitaadff164ee95247f02d0288f4c1445d90d937b26 (patch)
tree6387e1105317dfddcbed55ecfb8f80cea048b724 /desiredata
parent25c291f7ebc684666b0e6bd0c1e87bb5cf0999a9 (diff)
put pd icon in the corner of every other dialogue window
svn path=/trunk/; revision=11573
Diffstat (limited to 'desiredata')
-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