attempt to fix problem with closing dialogue windows

svn path=/trunk/; revision=11732

1 files changed, 1 insertions, 1 deletions

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}