diff options
author | N.N. <matju@users.sourceforge.net> | 2009-06-07 22:07:12 +0000 |
---|---|---|
committer | N.N. <matju@users.sourceforge.net> | 2009-06-07 22:07:12 +0000 |
commit | 64891204f32bc8eac4ece7e82581e042bb26ea08 (patch) | |
tree | d7ffa9f007a81c754fb047aac227ae9399ce9984 /desiredata | |
parent | 44e2da639a0283b4ae8a9786d00fca44ce7a1372 (diff) |
use more reliable way of finding main window (may help open dialogues correctly on other platforms such as mingw)
svn path=/trunk/; revision=11706
Diffstat (limited to 'desiredata')
-rw-r--r-- | desiredata/src/desire.tk | 12 |
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 ########### |