mirrors/git
1
0
Fork 0
mirror of https://github.com/git/git.git synced 2024-11-06 01:03:02 +01:00
Code Activity

gitk: Add Ctrl-W shortcut for closing the active window

Browse source 
To make the user experience between git gui and gitk more homogeneous,
use Ctrl-W in gitk for closing the active window.  When closing the
main window doquit is called for proper cleanup.

Signed-off-by: Jens Lehmann <Jens.Lehmann@web.de>
Signed-off-by: Paul Mackerras <paulus@samba.org>
This commit is contained in:
Jens Lehmann 2010-02-02 23:11:28 +01:00 committed by Paul Mackerras
parent 7963791e1f
commit decd0a1ea5
1 changed files with 3 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
gitk
View file

@ -2383,6 +2383,8 @@ proc makewindow {} {
} }
bindall <$::BM> "canvscan mark %W %x %y" bindall <$::BM> "canvscan mark %W %x %y"
bindall <B$::BM-Motion> "canvscan dragto %W %x %y" bindall <B$::BM-Motion> "canvscan dragto %W %x %y"
bind all <$M1B-Key-w> {destroy [winfo toplevel %W]}
bind . <$M1B-Key-w> doquit
bindkey <Home> selfirstline bindkey <Home> selfirstline
bindkey <End> sellastline bindkey <End> sellastline
bind . <Key-Up> "selnextline -1" bind . <Key-Up> "selnextline -1"
@ -2814,6 +2816,7 @@ proc keys {} {
[mc "Gitk key bindings:"] [mc "Gitk key bindings:"]
[mc "<%s-Q> Quit" $M1T] [mc "<%s-Q> Quit" $M1T]
[mc "<%s-W> Close window" $M1T]
[mc "<Home> Move to first commit"] [mc "<Home> Move to first commit"]
[mc "<End> Move to last commit"] [mc "<End> Move to last commit"]
[mc "<Up>, p, i Move up one commit"] [mc "<Up>, p, i Move up one commit"]