aboutsummaryrefslogtreecommitdiff
path: root/desiredata/src
diff options
context:
space:
mode:
authorN.N. <matju@users.sourceforge.net>2009-06-10 00:19:29 +0000
committerN.N. <matju@users.sourceforge.net>2009-06-10 00:19:29 +0000
commit61dd5cc852e2a395b0a4bb7087ce5dea088937a5 (patch)
tree8407a50bd86c47df374e9ced82892ddaf9cb6723 /desiredata/src
parent88395ec38611ff8f126ffe7a372b7ce01e4bca01 (diff)
attempt to fix problem with closing dialogue windows
svn path=/trunk/; revision=11732
Diffstat (limited to 'desiredata/src')
-rw-r--r--desiredata/src/desire.tk2
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}