use more reliable way of finding main window (may help open dialogues correctly on other platforms such as mingw)

svn path=/trunk/; revision=11706

1 files changed, 3 insertions, 9 deletions

diff --git a/desiredata/src/desire.tk b/desiredata/src/desire.tk
index 077c6df3..aef136b5 100644
--- a/desiredata/src/desire.tk
+++ b/desiredata/src/desire.tk
@@ -553,7 +553,7 @@ if {$tk} {
 	}
 
 
-	set main [string toupper [info script] 0 0]
+	set main [. cget -class]
 	set ::current_window .
 	bind $main    <FocusIn> {set ::current_window %W}
 	bind Toplevel <FocusIn> {set ::current_window %W}
@@ -8202,14 +8202,8 @@ def ClientPrefsDialogue init {} {
 		}
 	}
 }
-def ClientPrefsDialogue dropmenu_set {frame var part val} {
-	set @$var $part
-	# set _($self:${var}2) [say $part]
-	$frame.butt configure -text [say $part]
-}
-def ClientPrefsDialogue dropmenu_open {f name} {
-	super $f
-}
+def ClientPrefsDialogue dropmenu_set {frame var part val} {set @$var $part; $frame.butt configure -text [say $part]}
+def ClientPrefsDialogue dropmenu_open {f name} {super $f}
 
 ############ find dialog ###########