##// END OF EJS Templates
hgk: enable mouse wheel on MouseWheel events....
Patrick Mezard -
r4968:71342663 default
parent child Browse files
Show More
@@ -299,6 +299,11 b' proc readotherrefs {base dname excl} {'
299 299 }
300 300 }
301 301
302 proc allcansmousewheel {delta} {
303 set delta [expr -5*(int($delta)/abs($delta))]
304 allcanvs yview scroll $delta units
305 }
306
302 307 proc error_popup msg {
303 308 set w .error
304 309 toplevel $w
@@ -470,6 +475,7 b' proc makewindow {} {'
470 475
471 476 bindall <1> {selcanvline %W %x %y}
472 477 #bindall <B1-Motion> {selcanvline %W %x %y}
478 bindall <MouseWheel> "allcansmousewheel %D"
473 479 bindall <ButtonRelease-4> "allcanvs yview scroll -5 units"
474 480 bindall <ButtonRelease-5> "allcanvs yview scroll 5 units"
475 481 bindall <2> "allcanvs scan mark 0 %y"
General Comments 0
You need to be logged in to leave comments. Login now