aboutsummaryrefslogtreecommitdiff
path: root/desiredata/src
diff options
context:
space:
mode:
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 ###########