felixfoertsch/remind
1
0
Fork 0
mirror of https://salsa.debian.org/dskoll/remind.git synced 2026-04-17 14:59:20 +02:00
Code Issues Actions Packages Projects Releases Wiki Activity

Made TkRemind not ask for confirmation when quitting, although it's

Browse Source 
configurable.  Cleaned up the error report when Remind complains about
a bad date specification.
This commit is contained in:
dfs
1996-05-25 19:29:26 +00:00
parent df76df7416
commit abcc96a46d
2 changed files with 26 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

32
tkremind
View File

@@ -11,7 +11,7 @@
#
#--------------------------------------------------------------
# $Id: tkremind,v 1.4 1996-04-28 02:02:08 dfs Exp $
# $Id: tkremind,v 1.5 1996-05-25 19:29:26 dfs Exp $
# the next line restarts using wish \
exec wish "$0" "$@"
@@ -20,9 +20,22 @@ exec wish "$0" "$@"
# GLOBAL VARIABLES
#---------------------------------------------------------------------------
# Set to 1 if you want confirmation when quitting
set ConfirmQuit 0
# Remind program to execute -- supply full path if you want
set Remind "remind"
# Reminder file to source -- default
set ReminderFile {NOSUCHFILE}
catch {set ReminderFile "$env(HOME)/.reminders"}
# Reminder file to append to -- default
set AppendFile {NOSUCHFILE}
catch {set AppendFile $ReminderFile}
#---------------- DON'T CHANGE STUFF BELOW HERE ------------------
# Month names in English
set MonthNames {January February March April May June July August September October November December}
@@ -48,14 +61,6 @@ set SkipType 1
# Remind command line
set CommandLine {}
# Reminder file to source -- default
set ReminderFile {NOSUCHFILE}
catch {set ReminderFile "$env(HOME)/.reminders"}
# Reminder file to append to -- default
set AppendFile {NOSUCHFILE}
catch {set AppendFile $ReminderFile}
#---------------------------------------------------------------------------
# Initialize -- initialize things
#---------------------------------------------------------------------------
@@ -386,6 +391,11 @@ proc DoGoto {} {
# Quit -- handle the Quit button
#---------------------------------------------------------------------------
proc Quit {} {
global ConfirmQuit
if { !$ConfirmQuit } {
destroy .
return
}
if { [tk_dialog .question "Confirm..." {Really quit?} question 0 No Yes] } {
destroy .
}
@@ -813,6 +823,8 @@ proc CreateReminder {w} {
catch {set err [gets $f]}
catch {close $f}
if {"$err" != ""} {
# Clean up the message a bit
regsub -- {^-stdin-\([0-9]*\): } $err {} err
error "Error from Remind: $err"
}
append rem " MSG $body"
@@ -1001,7 +1013,7 @@ proc EditReminder {rem} {
proc main {} {
wm withdraw .
puts "TkRemind Copyright (c) 1996 by David F. Skoll\n"
puts "\nTkRemind Copyright (c) 1996 by David F. Skoll\n"
puts "Initializing..."
Initialize
puts "Creating calendar window..."

7
tkremind.1
View File

@@ -1,4 +1,4 @@
.\" $Id: tkremind.1,v 1.1 1996-04-28 02:02:10 dfs Exp $
.\" $Id: tkremind.1,v 1.2 1996-05-25 19:29:27 dfs Exp $ "
.TH TKREMIND 1 "23 April 1996"
.UC 4
.SH NAME
@@ -57,8 +57,9 @@ click \fBGo To Date...\fR. This pops up a dialog box which allows you
to select a month and enter a year. Once you've done this, click
\fBGo\fR to go to the date, or \fBCancel\fR to cancel.
To exit \fBTkRemind\fR, click \fBQuit\fR. Confirm your intention to
quit in the dialog box which pops up.
To exit \fBTkRemind\fR, click \fBQuit\fR. By default, TkRemind
does not ask for confirmation. If it has been configured
to ask for confirmation, click \fBYes\fR in the dialog box which pops up.
.SH ADDING REMINDERS
To add a reminder, click button 1 in any day number in the calendar.