关于sourcenavigator 的mouse wheel

sourcenav 是个挺好的源代码查看工具，虽然不更新了，但是用起来还是不错的，唯一不方便的是鼠标滚轮无法使用，搜索了一些发现已经有人给出了patch

http://sourceforge.net/mailarchive/forum.php?thread_name=20031201215533.70b9fc42.mdejong%40uncounted.org&forum_name=sourcenav-patch

打上就可以了，注意要patch /usr/lib/sourcenav/share/sourcenav/gui下的bindings.tcl而不是redhat/gui下的同名文件

--- bindings.tcl 18 Apr 2002 23:40:18 -0000 1.1.1.1 +++ bindings.tcl 23 Nov 2003 18:32:07 -0000 @@ -180,7 +180,33 @@ bind ${t} <Up> { tkTreeTableUpDown %W -1 } - bind ${t} <Shift-Up> { + + + bind ${t} <Button-4> { + %W yview scroll -5 units + } + bind ${t} <Shift-Button-4> { + %W yview scroll -1 units + } + bind ${t} <Control-Button-4> { + %W xview scroll -10 units + } + bind ${t} <Button-5> { + %W yview scroll 5 units + } + bind ${t} <Shift-Button-5> { + %W yview scroll 1 units + } + bind ${t} <Control-Button-5> { + %W xview scroll 10 units + } + bind ${t} <MouseWheel> { + %W yview scroll [expr {- (%D / 120) * 4}] units + } + + + + bind ${t} <Shift-Up> { tkListboxExtendUpDown %W -1 } bind ${t} <Down> { @@ -567,6 +593,16 @@ bind ${text} <Control-a> [bind ${text} <Home>] bind ${text} <Control-e> [bind ${text} <End>] + bind ${text} <Button-5> [list %W yview scroll 5 units] + bind ${text} <Button-4> [list %W yview scroll -5 units] + bind ${text} <Shift-Button-5> [list %W yview scroll 1 units] + bind ${text} <Shift-Button-4> [list %W yview scroll -1 units] + bind ${text} <Control-Button-5> [list %W xview scroll 10 units] + bind ${text} <Control-Button-4> [list %W xview scroll -10 units] + bind ${text} <MouseWheel> + { %W yview scroll [expr {- (%D / 120) * 4}] units + } + catch { bind ${text} <apLineDel> "[bind ${text} <Delete>]; break" } @@ -1186,6 +1222,17 @@ #apply input to canvases bind ${c} <ButtonRelease-1> "focus %W" + bind ${c} <Button-4> {sn_canvas_scroll %W MultiUp} + bind ${c} <Button-5> {sn_canvas_scroll %W MultiDown} + bind ${c} <Shift-Button-4> {sn_canvas_scroll %W Up} + bind ${c} <Shift-Button-5> {sn_canvas_scroll %W Down} + bind ${c} <Control-Button-4> {sn_canvas_scroll %W MultiLeft} + bind ${c} <Control-Button-5> {sn_canvas_scroll %W MultiRight} + # don't see a way to use sn_canvas_scroll with this sinble binding + bind ${c} <MouseWheel> { + %W yview scroll [expr {- (%D / 120) * 4}] units + } + bind ${c} <Left> {sn_canvas_scroll %W Left} bind ${c} <Right> {sn_canvas_scroll %W Right} bind ${c} <Control-Left> {sn_canvas_scroll %W PgLeft} @@ -1248,6 +1295,18 @@ } End { ${c} yview moveto 1 + } + MultiUp { + ${c} yview scroll -5 units + } + MultiDown { + ${c} yview scroll 5 units + } + MultiLeft { + ${c} xview scroll -5 units + } + MultiRight { + ${c} xview scroll 5 units } } }