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

Flash buttons before invoking.

Browse Source
This commit is contained in:
David F. Skoll
2007-09-03 10:23:15 -04:00
parent 19ac350527
commit 70ece81340
1 changed files with 6 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
scripts/tkremind
View File

@@ -428,9 +428,9 @@ proc CreateCalWindow { dayNames } {
wm protocol . WM_DELETE_WINDOW Quit wm protocol . WM_DELETE_WINDOW Quit
wm deiconify . wm deiconify .
bind . <Control-KeyPress-q> Quit bind . <Control-KeyPress-q> Quit
bind . <KeyPress-Left> ".b.prev invoke" bind . <KeyPress-Left> ".b.prev flash; .b.prev invoke"
bind . <KeyPress-Right> ".b.next invoke" bind . <KeyPress-Right> ".b.next flash; .b.next invoke"
bind . <KeyPress-Home> ".b.this invoke" bind . <KeyPress-Home> ".b.this flash; .b.this invoke"
if {$Option(StartIconified)} { if {$Option(StartIconified)} {
wm iconify . wm iconify .
@@ -1239,9 +1239,9 @@ proc CreateModifyDialog {w day firstDay args} {
pack $w.but$nbut -side left -anchor w -in $w.buttons -expand 1 -fill x pack $w.but$nbut -side left -anchor w -in $w.buttons -expand 1 -fill x
} }
bind $w <KeyPress-Escape> "$w.but1 invoke" bind $w <KeyPress-Escape> "$w.but1 flash; $w.but1 invoke"
if {$nbut >= 2} { if {$nbut >= 2} {
bind $w.entry <KeyPress-Return> "$w.but2 invoke" bind $w.entry <KeyPress-Return> "$w.but2 flash; $w.but2 invoke"
} }
set ModifyDialogResult 0 set ModifyDialogResult 0
@@ -1728,7 +1728,7 @@ proc EditReminder {rem args} {
} }
pack .edit.t -side top -fill both -expand 1 pack .edit.t -side top -fill both -expand 1
pack .edit.f -side top -fill x -expand 1 pack .edit.f -side top -fill x -expand 1
bind .edit <KeyPress-Escape> ".edit.but1 invoke" bind .edit <KeyPress-Escape> ".edit.but1 flash; .edit.but1 invoke"
set ModifyDialogResult 0 set ModifyDialogResult 0
CenterWindow .edit CenterWindow .edit
tkwait visibility .edit tkwait visibility .edit