aboutsummaryrefslogtreecommitdiff
path: root/desiredata/src
diff options
context:
space:
mode:
authorN.N. <matju@users.sourceforge.net>2009-06-07 22:07:12 +0000
committerN.N. <matju@users.sourceforge.net>2009-06-07 22:07:12 +0000
commit64891204f32bc8eac4ece7e82581e042bb26ea08 (patch)
treed7ffa9f007a81c754fb047aac227ae9399ce9984 /desiredata/src
parent44e2da639a0283b4ae8a9786d00fca44ce7a1372 (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/src')
-rw-r--r--desiredata/src/desire.tk12
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 ###########