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

Make moon icons respond to mouse clicks to edit reminders.

Browse Source
This commit is contained in:
Dianne Skoll
2021-12-26 13:04:35 -05:00
parent 762530f6ab
commit a1d03b8159
1 changed files with 14 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
scripts/tkremind
View File

@@ -3058,17 +3058,19 @@ proc ReadTaggedOptions { tag date } {
}
return $ans
}
proc FireEditor { w } {
proc FireEditor { w {fntag ""}} {
global Option
global EditorPid
set tags [$w tag names current]
set index [lsearch -glob $tags "FILE_*"]
if {$index < 0} {
return
if {"$fntag" == ""} {
set tags [$w tag names current]
set index [lsearch -glob $tags "FILE_*"]
if {$index < 0} {
return
}
set fntag [lindex $tags $index]
}
set tag [lindex $tags $index]
if {![regexp {^FILE_([0-9]+)_(.*)} $tag all line file]} {
return
if {![regexp {^FILE_([0-9]+)_(.*)} $fntag all line file]} {
return
}
set editor $Option(Editor)
regsub -all "%s" $editor $file editor
@@ -3481,7 +3483,9 @@ proc DoMoonSpecial { n stuff fntag } {
.cal.t$n insert 1.1 " $msg\n" [list REM $fntag]
.cal.t$n tag bind $fntag <Enter> "EditableEnter .cal.t$n"
.cal.t$n tag bind $fntag <Leave> "EditableLeave .cal.t$n"
.cal.t$n tag bind $fntag <ButtonPress-1> "FireEditor .cal.t$n"
.cal.t$n tag bind $fntag <ButtonPress-1> "FireEditor .cal.t$n $fntag"
bind $win <ButtonPress-1> "FireEditor .cal.t$n $fntag"
bind $win <ButtonPress-3> "FireEditor .cal.t$n $fntag"
}
} else {
if {"$fntag" == "x"} {
@@ -3490,7 +3494,7 @@ proc DoMoonSpecial { n stuff fntag } {
.cal.t$n insert 1.1 "\n" [list REM $fntag]
.cal.t$n tag bind $fntag <Enter> "EditableEnter .cal.t$n"
.cal.t$n tag bind $fntag <Leave> "EditableLeave .cal.t$n"
.cal.t$n tag bind $fntag <ButtonPress-1> "FireEditor .cal.t$n"
.cal.t$n tag bind $fntag <ButtonPress-1> "FireEditor .cal.t$n $fntag"
}
}
.cal.t$n configure -state disabled