TkRemind sometimes didn't exit ???

This commit is contained in:
dfs
1996-09-28 19:18:26 +00:00
parent 28e147ec87
commit 0990ec1967

View File

@@ -11,7 +11,7 @@
#
#--------------------------------------------------------------
# $Id: tkremind,v 1.9 1996-09-28 19:14:37 dfs Exp $
# $Id: tkremind,v 1.10 1996-09-28 19:18:26 dfs Exp $
# the next line restarts using wish \
exec wish "$0" "$@"
@@ -534,10 +534,11 @@ proc Quit {} {
global ConfirmQuit
if { !$ConfirmQuit } {
destroy .
return
exit
}
if { [tk_dialog .question "Confirm..." {Really quit?} question 0 No Yes] } {
destroy .
exit
}
}