Add keyboard shortcuts to change view.

This commit is contained in:
Dianne Skoll
2025-11-01 18:46:51 -04:00
parent c13817015f
commit d1b55bae8d
2 changed files with 8 additions and 0 deletions

View File

@@ -876,6 +876,10 @@ proc CreateCalWindow { dayNames } {
bind . <KeyPress-Prior> ".b.prev flash; .b.prev invoke"
bind . <KeyPress-Next> ".b.next flash; .b.next invoke"
bind . <KeyPress-Home> ".b.this flash; .b.this invoke"
bind . <KeyPress-1> "SetView Week-1"
bind . <KeyPress-2> "SetView Week-2"
bind . <KeyPress-4> "SetView Week-4"
bind . <KeyPress-m> "SetView Month"
catch { bind . <KeyPress-KP_Home> ".b.this flash; .b.this invoke" }
catch { bind . <KeyPress-KP_Prior> ".b.prev flash; .b.prev invoke" }
catch { bind . <KeyPress-KP_Next> ".b.next flash; .b.next invoke" }