From aadff164ee95247f02d0288f4c1445d90d937b26 Mon Sep 17 00:00:00 2001
From: "N.N." <matju@users.sourceforge.net>
Date: Sat, 30 May 2009 02:32:40 +0000
Subject: put pd icon in the corner of every other dialogue window

svn path=/trunk/; revision=11573
---
 desiredata/src/desire.tk | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

(limited to 'desiredata')

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
-- 
cgit v1.2.1