diff options
| author | N.N. <matju@users.sourceforge.net> | 2009-05-17 04:01:17 +0000 |
|---|---|---|
| committer | N.N. <matju@users.sourceforge.net> | 2009-05-17 04:01:17 +0000 |
| commit | 30b311de4c3f9f46512708f94ae7402f1907ab83 (patch) | |
| tree | 2293dce10a3b3bef373c3ff13c6e49fd82d61cdb | |
| parent | c13764f9d0e425816b21417775386ba32f5bafca (diff) | |
::current_window default
svn path=/trunk/; revision=11420
| -rw-r--r-- | desiredata/src/desire.tk | 1 |
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} |