From 61dd5cc852e2a395b0a4bb7087ce5dea088937a5 Mon Sep 17 00:00:00 2001
From: "N.N." <matju@users.sourceforge.net>
Date: Wed, 10 Jun 2009 00:19:29 +0000
Subject: attempt to fix problem with closing dialogue windows

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

(limited to 'desiredata')

diff --git a/desiredata/src/desire.tk b/desiredata/src/desire.tk
index c5e6c866..3bb6ac6b 100644
--- a/desiredata/src/desire.tk
+++ b/desiredata/src/desire.tk
@@ -7643,7 +7643,7 @@ proc balloon:show {w arg} {
 }
 
 def Dialogue ok     {} {$self apply; $self cancel}
-def Dialogue cancel {} {if {[info exists @nbs]} {foreach x $@nbs {$x delete}}; after 1 [list $self delete]}
+def Dialogue cancel {} {$self delete}
 def Dialogue close  {} {$self delete}
 def Dialogue apply  {} {}
 def Dialogue delete {} {destroy .$self; super}
-- 
cgit v1.2.1