felixfoertsch/remind
1
0
Fork 0
mirror of https://salsa.debian.org/dskoll/remind.git synced 2026-04-16 06:18:47 +02:00
Code Issues Actions Packages Projects Releases Wiki Activity

Fix "Delete this reminder completely" functionality.

Browse Source
This commit is contained in:
Dianne Skoll
2024-03-16 13:56:28 -04:00
parent 6586fae3eb
commit 61f55bceee
1 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
scripts/tkremind
View File

@@ -2882,8 +2882,8 @@ proc IssueBackgroundReminder { body time now tag qid } {
wm protocol $w WM_DELETE_WINDOW [list ClosePopup $w $after_token "" 1 "" $tag $body $time $qid]
button $w.ok -text "OK" -command [list ClosePopup $w $after_token "" 1 "" $tag $body $time $qid]
if {$tag != "*" && ![regexp {^__syn__} $tag]} {
button $w.kill -text "Delete this reminder completely" -command [list ClosePopup $w $after_token "" 1 "kill" $tag $body $time $qid]
if {[regexp {TKTAG[0-9]+} $tag tktag]} {
button $w.kill -text "Delete this reminder completely" -command [list ClosePopup $w $after_token "" 1 "kill" $tktag $body $time $qid]
}
if {$qid != "*"} {
button $w.nomore -text "Don't remind me again today" -command [list ClosePopup $w $after_token "" 1 "ignore" $tag $body $time $qid]
@@ -2895,7 +2895,7 @@ proc IssueBackgroundReminder { body time now tag qid } {
if {$qid != "*"} {
pack $w.nomore -in $w.b -side left
}
if {$tag != "*" && ![regexp {^__syn__} $tag]} {
if {[regexp {TKTAG[0-9]+} $tag]} {
pack $w.kill -in $w.b -side left
}
@@ -3997,7 +3997,7 @@ proc ClosePopup { w after_token mail_addr close_win ignore_or_kill tag reminder
}
}
if {"$ignore_or_kill" == "kill"} {
if {$tag != "*" && ![regexp {^__syn__} $tag]} {
if {[regexp {^TKTAG[0-9]+} $tag]} {
InteractiveDeleteReminder $tag
}
}