mirror of
https://salsa.debian.org/dskoll/remind.git
synced 2026-04-16 06:18:47 +02:00
TkRemind sometimes didn't exit ???
This commit is contained in:
5
tkremind
5
tkremind
@@ -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
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
Reference in New Issue
Block a user