From 64891204f32bc8eac4ece7e82581e042bb26ea08 Mon Sep 17 00:00:00 2001
From: "N.N." <matju@users.sourceforge.net>
Date: Sun, 7 Jun 2009 22:07:12 +0000
Subject: use more reliable way of finding main window (may help open dialogues
 correctly on other platforms such as mingw)

svn path=/trunk/; revision=11706
---
 desiredata/src/desire.tk | 12 +++---------
 1 file 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 ###########
 
-- 
cgit v1.2.1