undef/git-commit-vandalism
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

gitk: Accelerators for the main menu

Browse Source 
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>
This commit is contained in:
Giuseppe Bilotta 2015-09-09 15:20:53 +02:00 committed by Paul Mackerras
parent b6f92a8563
commit d99b4b0de2
1 changed files with 23 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

46
gitk
View File

@ -2065,33 +2065,33 @@ proc makewindow {} {
# The "mc" arguments here are purely so that xgettext # The "mc" arguments here are purely so that xgettext
# sees the following string as needing to be translated # sees the following string as needing to be translated
set file { set file {
mc "File" cascade { mc "&File" cascade {
{mc "Update" command updatecommits -accelerator F5} {mc "&Update" command updatecommits -accelerator F5}
{mc "Reload" command reloadcommits -accelerator Shift-F5} {mc "&Reload" command reloadcommits -accelerator Shift-F5}
{mc "Reread references" command rereadrefs} {mc "Reread re&ferences" command rereadrefs}
{mc "List references" command showrefs -accelerator F2} {mc "&List references" command showrefs -accelerator F2}
{xx "" separator} {xx "" separator}
{mc "Start git gui" command {exec git gui &}} {mc "Start git &gui" command {exec git gui &}}
{xx "" separator} {xx "" separator}
{mc "Quit" command doquit -accelerator Meta1-Q} {mc "&Quit" command doquit -accelerator Meta1-Q}
}} }}
set edit { set edit {
mc "Edit" cascade { mc "&Edit" cascade {
{mc "Preferences" command doprefs} {mc "&Preferences" command doprefs}
}} }}
set view { set view {
mc "View" cascade { mc "&View" cascade {
{mc "New view..." command {newview 0} -accelerator Shift-F4} {mc "&New view..." command {newview 0} -accelerator Shift-F4}
{mc "Edit view..." command editview -state disabled -accelerator F4} {mc "&Edit view..." command editview -state disabled -accelerator F4}
{mc "Delete view" command delview -state disabled} {mc "&Delete view" command delview -state disabled}
{xx "" separator} {xx "" separator}
{mc "All files" radiobutton {selectedview 0} -command {showview 0}} {mc "&All files" radiobutton {selectedview 0} -command {showview 0}}
}} }}
if {[tk windowingsystem] ne "aqua"} { if {[tk windowingsystem] ne "aqua"} {
set help { set help {
mc "Help" cascade { mc "&Help" cascade {
{mc "About gitk" command about} {mc "&About gitk" command about}
{mc "Key bindings" command keys} {mc "&Key bindings" command keys}
}} }}
set bar [list $file $edit $view $help] set bar [list $file $edit $view $help]
} else { } else {
@ -2099,13 +2099,13 @@ proc makewindow {} {
proc ::tk::mac::Quit {} {doquit} proc ::tk::mac::Quit {} {doquit}
lset file end [lreplace [lindex $file end] end-1 end] lset file end [lreplace [lindex $file end] end-1 end]
set apple { set apple {
xx "Apple" cascade { xx "&Apple" cascade {
{mc "About gitk" command about} {mc "&About gitk" command about}
{xx "" separator} {xx "" separator}
}} }}
set help { set help {
mc "Help" cascade { mc "&Help" cascade {
{mc "Key bindings" command keys} {mc "&Key bindings" command keys}
}} }}
set bar [list $apple $file $view $help] set bar [list $apple $file $view $help]
} }
@ -4468,8 +4468,8 @@ proc showview {n} {
set curview $n set curview $n
set selectedview $n set selectedview $n
.bar.view entryconf [mca "Edit view..."] -state [expr {$n == 0? "disabled": "normal"}] .bar.view entryconf [mca "&Edit view..."] -state [expr {$n == 0? "disabled": "normal"}]
.bar.view entryconf [mca "Delete view"] -state [expr {$n == 0? "disabled": "normal"}] .bar.view entryconf [mca "&Delete view"] -state [expr {$n == 0? "disabled": "normal"}]
run refill_reflist run refill_reflist
if {![info exists viewcomplete($n)]} { if {![info exists viewcomplete($n)]} {