Skip to content

Commit

Permalink
git-gui: Bind n/c/o accelerators in repository chooser
Browse files Browse the repository at this point in the history
On Windows we need to actually setup binds for the accelerator
keys, otherwise the OS doesn't respond to them when the user
presses the key combinations.  Apparently we automatically get
these on Mac OS X when we configure the menu commands, but not
on Windows.

Signed-off-by: Shawn O. Pearce <spearce@spearce.org>
  • Loading branch information
Shawn O. Pearce committed Oct 13, 2007
1 parent 28d1b11 commit 914c4d4
Showing 1 changed file with 6 additions and 0 deletions.
6 changes: 6 additions & 0 deletions lib/choose_repository.tcl
Original file line number Diff line number Diff line change
Expand Up @@ -84,6 +84,8 @@ constructor pick {} {
-command [cb _next new] \
-accelerator $M1T-N \
-label [mc "New..."]
bind $top <$M1B-n> [cb _next new]
bind $top <$M1B-N> [cb _next new]
}

$opts tag conf link_clone -foreground blue -underline 1
Expand All @@ -95,6 +97,8 @@ constructor pick {} {
-command [cb _next clone] \
-accelerator $M1T-C \
-label [mc "Clone..."]
bind $top <$M1B-c> [cb _next clone]
bind $top <$M1B-C> [cb _next clone]
}

$opts tag conf link_open -foreground blue -underline 1
Expand All @@ -106,6 +110,8 @@ constructor pick {} {
-command [cb _next open] \
-accelerator $M1T-O \
-label [mc "Open..."]
bind $top <$M1B-o> [cb _next open]
bind $top <$M1B-O> [cb _next open]
}

$opts conf -state disabled
Expand Down

0 comments on commit 914c4d4

Please sign in to comment.