gitk: Refactor code for binding modified function keys
The function includes a workaround for systems where F* keys are mapped to XF86_Switch_VT_* when modifiers are used. Signed-off-by: Andrew Wong <andrew.kw.w@gmail.com> Signed-off-by: Paul Mackerras <paulus@samba.org>
This commit is contained in:
parent
f062e50fe6
commit
69ecfcd6eb
8
gitk
8
gitk
@ -2503,8 +2503,7 @@ proc makewindow {} {
|
||||
bind . <F5> updatecommits
|
||||
bind . <Shift-F5> reloadcommits
|
||||
bind . <F2> showrefs
|
||||
bind . <Shift-F4> {newview 0}
|
||||
catch { bind . <Shift-Key-XF86_Switch_VT_4> {newview 0} }
|
||||
bindmodfunctionkey Shift 4 {newview 0}
|
||||
bind . <F4> edit_or_newview
|
||||
bind . <$M1B-q> doquit
|
||||
bind . <$M1B-f> {dofind 1 1}
|
||||
@ -2653,6 +2652,11 @@ proc bindkey {ev script} {
|
||||
}
|
||||
}
|
||||
|
||||
proc bindmodfunctionkey {mod n script} {
|
||||
bind . <$mod-F$n> $script
|
||||
catch { bind . <$mod-XF86_Switch_VT_$n> $script }
|
||||
}
|
||||
|
||||
# set the focus back to the toplevel for any click outside
|
||||
# the entry widgets
|
||||
proc click {w} {
|
||||
|
Loading…
Reference in New Issue
Block a user