gitk: Accelerators for the main menu
This allows fast, keyboard-only usage of the menu (e.g. Alt+V, N to open a new view). Signed-off-by: Giuseppe Bilotta <giuseppe.bilotta@gmail.com> Signed-off-by: Paul Mackerras <paulus@samba.org>
Giuseppe Bilotta committed
Sep 9, 2015 at 15:20 UTC
d99b4b0de27a2bd654a40353b65883e368da6d06
1 file changed
+23
-23
gitk
+23
-23
@@ -2065,33 +2065,33 @@ proc makewindow {} {
2065
# The "mc" arguments here are purely so that xgettext
2066
# sees the following string as needing to be translated
2067
set file {
2068
- mc "File" cascade {
2069
- {mc "Update" command updatecommits -accelerator F5}
2070
- {mc "Reload" command reloadcommits -accelerator Shift-F5}
2071
- {mc "Reread references" command rereadrefs}
2072
- {mc "List references" command showrefs -accelerator F2}
2068
+ mc "&File" cascade {
2069
+ {mc "&Update" command updatecommits -accelerator F5}
2070
+ {mc "&Reload" command reloadcommits -accelerator Shift-F5}
2071
+ {mc "Reread re&ferences" command rereadrefs}
2072
+ {mc "&List references" command showrefs -accelerator F2}
2073
{xx "" separator}
2074
- {mc "Start git gui" command {exec git gui &}}
2074
+ {mc "Start git &gui" command {exec git gui &}}
2075
{xx "" separator}
2076
- {mc "Quit" command doquit -accelerator Meta1-Q}
2076
+ {mc "&Quit" command doquit -accelerator Meta1-Q}
2077
}}
2078
set edit {
2079
- mc "Edit" cascade {
2080
- {mc "Preferences" command doprefs}
2079
+ mc "&Edit" cascade {
2080
+ {mc "&Preferences" command doprefs}
2081
}}
2082
set view {
2083
- mc "View" cascade {
2084
- {mc "New view..." command {newview 0} -accelerator Shift-F4}
2085
- {mc "Edit view..." command editview -state disabled -accelerator F4}
2086
- {mc "Delete view" command delview -state disabled}
2083
+ mc "&View" cascade {
2084
+ {mc "&New view..." command {newview 0} -accelerator Shift-F4}
2085
+ {mc "&Edit view..." command editview -state disabled -accelerator F4}
2086
+ {mc "&Delete view" command delview -state disabled}
2087
{xx "" separator}
2088
- {mc "All files" radiobutton {selectedview 0} -command {showview 0}}
2088
+ {mc "&All files" radiobutton {selectedview 0} -command {showview 0}}
2089
}}
2090
if {[tk windowingsystem] ne "aqua"} {
2091
set help {
2092
- mc "Help" cascade {
2093
- {mc "About gitk" command about}
2094
- {mc "Key bindings" command keys}
2092
+ mc "&Help" cascade {
2093
+ {mc "&About gitk" command about}
2094
+ {mc "&Key bindings" command keys}
2095
}}
2096
set bar [list $file $edit $view $help]
2097
} else {
@@ -2099,13 +2099,13 @@ proc makewindow {} {
2099
proc ::tk::mac::Quit {} {doquit}
2100
lset file end [lreplace [lindex $file end] end-1 end]
2101
set apple {
2102
- xx "Apple" cascade {
2103
- {mc "About gitk" command about}
2102
+ xx "&Apple" cascade {
2103
+ {mc "&About gitk" command about}
2104
{xx "" separator}
2105
}}
2106
set help {
2107
- mc "Help" cascade {
2108
- {mc "Key bindings" command keys}
2107
+ mc "&Help" cascade {
2108
+ {mc "&Key bindings" command keys}
2109
}}
2110
set bar [list $apple $file $view $help]
2111
}
@@ -4468,8 +4468,8 @@ proc showview {n} {
4468
4469
set curview $n
4470
set selectedview $n
4471
- .bar.view entryconf [mca "Edit view..."] -state [expr {$n == 0? "disabled": "normal"}]
4472
- .bar.view entryconf [mca "Delete view"] -state [expr {$n == 0? "disabled": "normal"}]
4471
+ .bar.view entryconf [mca "&Edit view..."] -state [expr {$n == 0? "disabled": "normal"}]
4472
+ .bar.view entryconf [mca "&Delete view"] -state [expr {$n == 0? "disabled": "normal"}]
4473
4474
run refill_reflist
4475
if {![info exists viewcomplete($n)]} {