From: Robin Rosenberg <robin.rosenberg@dewire.com>
To: speace@spearce.org
Cc: git@vger.kernel.org, Robin Rosenberg <robin.rosenberg@dewire.com>
Subject: [Gitk PATCH 4/6] gitk: Add accelerator hints
Date: Tue, 7 Oct 2008 23:56:47 +0200 [thread overview]
Message-ID: <1223416609-18864-5-git-send-email-robin.rosenberg@dewire.com> (raw)
In-Reply-To: <1223416609-18864-4-git-send-email-robin.rosenberg@dewire.com>
Signed-off-by: Robin Rosenberg <robin.rosenberg@dewire.com>
---
gitk | 66 +++++++++++++++++++++++++++++++++---------------------------------
1 files changed, 33 insertions(+), 33 deletions(-)
diff --git a/gitk b/gitk
index 6298b0a..79de9a6 100755
--- a/gitk
+++ b/gitk
@@ -1795,31 +1795,31 @@ proc makewindow {} {
global have_tk85
menu .bar
- mcw .bar add cascade -label [mc "File"] -menu .bar.file
+ mcw .bar add cascade -label [mc "&File"] -menu .bar.file
menu .bar.file
- mcw .bar.file add command -label [mc "Update"] -command updatecommits
- mcw .bar.file add command -label [mc "Reload"] -command reloadcommits
- mcw .bar.file add command -label [mc "Reread references"] -command rereadrefs
- mcw .bar.file add command -label [mc "List references"] -command showrefs
- mcw .bar.file add command -label [mc "Quit"] -command doquit
+ mcw .bar.file add command -label [mc "&Update"] -command updatecommits
+ mcw .bar.file add command -label [mc "&Reload"] -command reloadcommits
+ mcw .bar.file add command -label [mc "R&eread references"] -command rereadrefs
+ mcw .bar.file add command -label [mc "&List references"] -command showrefs
+ mcw .bar.file add command -label [mc "&Quit"] -command doquit
menu .bar.edit
- mcw .bar add cascade -label [mc "Edit"] -menu .bar.edit
- mcw .bar.edit add command -label [mc "Preferences"] -command doprefs
+ mcw .bar add cascade -label [mc "&Edit"] -menu .bar.edit
+ mcw .bar.edit add command -label [mc "&Preferences"] -command doprefs
menu .bar.view
- mcw .bar add cascade -label [mc "View"] -menu .bar.view
- mcw .bar.view add command -label [mc "New view..."] -command {newview 0}
- mcw .bar.view add command -label [mc "Edit view..."] -command editview \
+ mcw .bar add cascade -label [mc "&View"] -menu .bar.view
+ mcw .bar.view add command -label [mc "&New view..."] -command {newview 0}
+ mcw .bar.view add command -label [mc "&Edit view..."] -command editview \
-state disabled
- mcw .bar.view add command -label [mc "Delete view"] -command delview -state disabled
+ mcw .bar.view add command -label [mc "&Delete view"] -command delview -state disabled
mcw .bar.view add separator
- mcw .bar.view add radiobutton -label [mc "All files"] -command {showview 0} \
+ mcw .bar.view add radiobutton -label [mc "&All files"] -command {showview 0} \
-variable selectedview -value 0
menu .bar.help
- mcw .bar add cascade -label [mc "Help"] -menu .bar.help
- mcw .bar.help add command -label [mc "About gitk"] -command about
- mcw .bar.help add command -label [mc "Key bindings"] -command keys
+ mcw .bar add cascade -label [mc "&Help"] -menu .bar.help
+ mcw .bar.help add command -label [mc "&About gitk"] -command about
+ mcw .bar.help add command -label [mc "&Key bindings"] -command keys
.bar.help configure
. configure -menu .bar
@@ -2201,47 +2201,47 @@ proc makewindow {} {
set rowctxmenu .rowctxmenu
menu $rowctxmenu -tearoff 0
- mcw $rowctxmenu add command -label [mc "Diff this -> selected"] \
+ mcw $rowctxmenu add command -label [mc "Diff &this -> selected"] \
-command {diffvssel 0}
- mcw $rowctxmenu add command -label [mc "Diff selected -> this"] \
+ mcw $rowctxmenu add command -label [mc "Diff &selected -> this"] \
-command {diffvssel 1}
- mcw $rowctxmenu add command -label [mc "Make patch"] -command mkpatch
- mcw $rowctxmenu add command -label [mc "Create tag"] -command mktag
- mcw $rowctxmenu add command -label [mc "Write commit to file"] -command writecommit
- mcw $rowctxmenu add command -label [mc "Create new branch"] -command mkbranch
- mcw $rowctxmenu add command -label [mc "Cherry-pick this commit"] \
+ mcw $rowctxmenu add command -label [mc "&Make patch"] -command mkpatch
+ mcw $rowctxmenu add command -label [mc "Create ta&g"] -command mktag
+ mcw $rowctxmenu add command -label [mc "&Write commit to file"] -command writecommit
+ mcw $rowctxmenu add command -label [mc "Create new &branch"] -command mkbranch
+ mcw $rowctxmenu add command -label [mc "C&herry-pick this commit"] \
-command cherrypick
- mcw $rowctxmenu add command -label [mc "Reset HEAD branch to here"] \
+ mcw $rowctxmenu add command -label [mc "&Reset HEAD branch to here"] \
-command resethead
set fakerowmenu .fakerowmenu
menu $fakerowmenu -tearoff 0
- mcw $fakerowmenu add command -label [mc "Diff this -> selected"] \
+ mcw $fakerowmenu add command -label [mc "Diff &this -> selected"] \
-command {diffvssel 0}
- mcw $fakerowmenu add command -label [mc "Diff selected -> this"] \
+ mcw $fakerowmenu add command -label [mc "Diff &selected -> this"] \
-command {diffvssel 1}
- mcw $fakerowmenu add command -label [mc "Make patch"] -command mkpatch
+ mcw $fakerowmenu add command -label [mc "&Make patch"] -command mkpatch
# mcw $fakerowmenu add command -label [mc "Commit"] -command {mkcommit 0}
# mcw $fakerowmenu add command -label [mc "Commit all"] -command {mkcommit 1}
# mcw $fakerowmenu add command -label [mc "Revert local changes"] -command revertlocal
set headctxmenu .headctxmenu
menu $headctxmenu -tearoff 0
- mcw $headctxmenu add command -label [mc "Check out this branch"] \
+ mcw $headctxmenu add command -label [mc "Check &out this branch"] \
-command cobranch
- mcw $headctxmenu add command -label [mc "Remove this branch"] \
+ mcw $headctxmenu add command -label [mc "Re&move this branch"] \
-command rmbranch
global flist_menu
set flist_menu .flistctxmenu
menu $flist_menu -tearoff 0
- mcw $flist_menu add command -label [mc "Highlight this too"] \
+ mcw $flist_menu add command -label [mc "Highlight this &too"] \
-command {flist_hl 0}
- mcw $flist_menu add command -label [mc "Highlight this only"] \
+ mcw $flist_menu add command -label [mc "Highlight this &only"] \
-command {flist_hl 1}
- mcw $flist_menu add command -label [mc "External diff"] \
+ mcw $flist_menu add command -label [mc "E&xternal diff"] \
-command {external_diff}
- mcw $flist_menu add command -label [mc "Blame parent commit"] \
+ mcw $flist_menu add command -label [mc "&Blame parent commit"] \
-command {external_blame 1}
}
--
1.6.0.2.308.gef4a
next prev parent reply other threads:[~2008-10-07 21:59 UTC|newest]
Thread overview: 8+ messages / expand[flat|nested] mbox.gz Atom feed top
2008-10-07 21:56 [Gitk PATCH 0/6] Menu accelerators for Gitk Robin Rosenberg
2008-10-07 21:56 ` [Gitk PATCH 1/6] gitk: Add procedure to create accelerated menus Robin Rosenberg
2008-10-07 21:56 ` [Gitk PATCH 2/6] gitk: Change menus to use accelerated design Robin Rosenberg
2008-10-07 21:56 ` [Gitk PATCH 3/6] gitk: regenerated po files Robin Rosenberg
2008-10-07 21:56 ` Robin Rosenberg [this message]
2008-10-07 21:56 ` [Gitk PATCH 5/6] " Robin Rosenberg
2008-10-07 21:56 ` [Gitk PATCH 6/6] gitk: Add menu accelerators for Swedish translation Robin Rosenberg
-- strict thread matches above, loose matches on Subject: below --
2008-10-09 6:09 [Gitk Patch 0/6] Robin Rosenberg
2008-10-09 6:09 ` [Gitk PATCH 1/6] gitk: Add procedure to create accelerated menus Robin Rosenberg
2008-10-09 6:09 ` [Gitk PATCH 2/6] gitk: Change menus to use accelerated design Robin Rosenberg
2008-10-09 6:09 ` [Gitk PATCH 3/6] gitk: regenerated po files Robin Rosenberg
2008-10-09 6:09 ` [Gitk PATCH 4/6] gitk: Add accelerator hints Robin Rosenberg
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=1223416609-18864-5-git-send-email-robin.rosenberg@dewire.com \
--to=robin.rosenberg@dewire.com \
--cc=git@vger.kernel.org \
--cc=speace@spearce.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for NNTP newsgroup(s).