From 30b311de4c3f9f46512708f94ae7402f1907ab83 Mon Sep 17 00:00:00 2001
From: "N.N." <matju@users.sourceforge.net>
Date: Sun, 17 May 2009 04:01:17 +0000
Subject: ::current_window default

svn path=/trunk/; revision=11420
---
 desiredata/src/desire.tk | 1 +
 1 file changed, 1 insertion(+)

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}
-- 
cgit v1.2.1