aboutsummaryrefslogtreecommitdiff
path: root/desiredata/src
diff options
context:
space:
mode:
authorN.N. <matju@users.sourceforge.net>2009-05-17 04:01:17 +0000
committerN.N. <matju@users.sourceforge.net>2009-05-17 04:01:17 +0000
commit30b311de4c3f9f46512708f94ae7402f1907ab83 (patch)
tree2293dce10a3b3bef373c3ff13c6e49fd82d61cdb /desiredata/src
parentc13764f9d0e425816b21417775386ba32f5bafca (diff)
::current_window default
svn path=/trunk/; revision=11420
Diffstat (limited to 'desiredata/src')
-rw-r--r--desiredata/src/desire.tk1
1 files changed, 1 insertions, 0 deletions
diff --git a/desiredata/src/desire.tk b/desiredata/src/desire.tk
index 0d883cdb..d8545b33 100644
--- a/desiredata/src/desire.tk
+++ b/desiredata/src/desire.tk
@@ -554,6 +554,7 @@ if {$tk} {
set main [string toupper [info script] 0 0]
+ set ::current_window .
bind $main <FocusIn> {set ::current_window %W}
bind Toplevel <FocusIn> {set ::current_window %W}
proc tk_messageBox2 {args} {tk_messageBox -parent $::current_window {*}$args}