I'd like to set up the key bindings for all the TkCVS windows so various keys work asexpected - PgUp should page up, etc in ALL screens. I've looked through bindings.tcl and grep'ed thru the source and have made zero progress. The FAQ offered nothing like this.
Is this something I can add to my site_def or .tkcvs files (this seems unlikely)? That's OK, I'm ready to modify the tcl files, but I've been making zero progress. Can you give me some examples of what I should do? TIA
If you would like to refer to this comment somewhere else in this project, copy and paste the following link:
The page bindings are supposed to work, and they do on my machines, mostly. (I'm not in the habit of using the page keys, so they don't get exercised much here.)
It isn't configurable in .tkcvs. The bindings for the main canvases are in dircanvas.tcl, like this:
As you see, the page keys are implemented, but only on the background canvas. The items on it, which are implemented as "window" objects, have their own bindings:
I'd like to set up the key bindings for all the TkCVS windows so various keys work asexpected - PgUp should page up, etc in ALL screens. I've looked through bindings.tcl and grep'ed thru the source and have made zero progress. The FAQ offered nothing like this.
Is this something I can add to my site_def or .tkcvs files (this seems unlikely)? That's OK, I'm ready to modify the tcl files, but I've been making zero progress. Can you give me some examples of what I should do? TIA
The page bindings are supposed to work, and they do on my machines, mostly. (I'm not in the habit of using the page keys, so they don't get exercised much here.)
It isn't configurable in .tkcvs. The bindings for the main canvases are in dircanvas.tcl, like this:
bind $w.$column.list <Next> "DirCanvas:scroll_windows $w scroll 1 pages"
As you see, the page keys are implemented, but only on the background canvas. The items on it, which are implemented as "window" objects, have their own bindings:
bind $flist.ic$y <Double-Button-1> {workdir_edit_file [workdir_list_files]}
To complicate things further, the leftmost column has additional bindings for area select:
bind $flist <1> "DirCanvas:unselectall $w"
So they're kinda complicated, and especially in dircanvas.tcl they tend to collide with each other a bit.