From 64891204f32bc8eac4ece7e82581e042bb26ea08 Mon Sep 17 00:00:00 2001 From: "N.N." 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(-) (limited to 'desiredata/src') 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 {set ::current_window %W} bind Toplevel {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