diff options
| -rw-r--r-- | desiredata/src/desire.tk | 2 |
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} |