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

Merge http://www.kernel.org/pub/scm/gitk/gitk

Browse Source
This commit is contained in:
Junio C Hamano 2005-09-26 18:23:47 -07:00
commit c1067050ce
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
gitk
View File

@ -1,6 +1,6 @@
#!/bin/sh #!/bin/sh
# Tcl ignores the next line -*- tcl -*- \ # Tcl ignores the next line -*- tcl -*- \
exec wish "$0" -- "${1+$@}" exec wish "$0" -- "$@"
# Copyright (C) 2005 Paul Mackerras. All rights reserved. # Copyright (C) 2005 Paul Mackerras. All rights reserved.
# This program is free software; it may be used, copied, modified # 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" bindall <B2-Motion> "allcanvs scan dragto 0 %y"
bind . <Key-Up> "selnextline -1" bind . <Key-Up> "selnextline -1"
bind . <Key-Down> "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-Prior> "allcanvs yview scroll -1 pages"
bind . <Key-Next> "allcanvs yview scroll 1 pages" bind . <Key-Next> "allcanvs yview scroll 1 pages"
bindkey <Key-Delete> "$ctext 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 <Key-space> "$ctext yview scroll 1 pages"
bindkey p "selnextline -1" bindkey p "selnextline -1"
bindkey n "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 b "$ctext yview scroll -1 pages"
bindkey d "$ctext yview scroll 18 units" bindkey d "$ctext yview scroll 18 units"
bindkey u "$ctext yview scroll -18 units" bindkey u "$ctext yview scroll -18 units"