diff options
| -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} |