diff options
| author |  Robert Suetterlin <robert@mpe.mpg.de> | 2005-09-22 10:07:36 +1000 |
|---|---|---|
| committer |  Paul Mackerras <paulus@samba.org> | 2005-09-22 10:07:36 +1000 |
| commit | 6e2dda35c2f012298f4f4759db2d651ef18e39a0 (patch) | |
| tree | ddb95a9fc10537353036b7bf971b85ac34060871 /gitk | |
| parent | Draw selected graph line thicker and make arrowheads active. (diff) | |
| download | tgif-6e2dda35c2f012298f4f4759db2d651ef18e39a0.tar.xz | |
[PATCH] Add new keybindings
This adds several new keybindings to allow history and selectline
navigation. I basically added Opera-like history traversal, as well
as left-right-cursor history traversal and vi-like motion commands.
Signed-off-by: Robert Suetterlin <robert@mpe.mpg.de>
Signed-off-by: Paul Mackerras <paulus@samba.org>
Diffstat (limited to 'gitk')
| -rwxr-xr-x | gitk | 10 |
1 files changed, 9 insertions, 1 deletions
@@ -1,6 +1,6 @@ #!/bin/sh # Tcl ignores the next line -*- tcl -*- \ -exec wish "$0" -- "${1+$@}" +exec wish8.4 "$0" -- "${1+$@}" # Copyright (C) 2005 Paul Mackerras. All rights reserved. # This program is free software; it may be used, copied, modified @@ -486,6 +486,8 @@ proc makewindow {} { bindall <B2-Motion> "allcanvs scan dragto 0 %y" bind . <Key-Up> "selnextline -1" bind . <Key-Down> "selnextline 1" + bind . <Key-Right> "goforw" + bind . <Key-Left> "goback" bind . <Key-Prior> "allcanvs yview scroll -1 pages" bind . <Key-Next> "allcanvs yview scroll 1 pages" bindkey <Key-Delete> "$ctext yview scroll -1 pages" @@ -493,6 +495,12 @@ proc makewindow {} { bindkey <Key-space> "$ctext yview scroll 1 pages" bindkey p "selnextline -1" bindkey n "selnextline 1" + bindkey z "goback" + bindkey x "goforw" + bindkey i "selnextline -1" + bindkey k "selnextline 1" + bindkey j "goback" + bindkey l "goforw" bindkey b "$ctext yview scroll -1 pages" bindkey d "$ctext yview scroll 18 units" bindkey u "$ctext yview scroll -18 units" |