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 | proc error_popup msg { |
|
307 | proc error_popup msg { | |
303 | set w .error |
|
308 | set w .error | |
304 | toplevel $w |
|
309 | toplevel $w | |
@@ -470,6 +475,7 b' proc makewindow {} {' | |||||
470 |
|
475 | |||
471 | bindall <1> {selcanvline %W %x %y} |
|
476 | bindall <1> {selcanvline %W %x %y} | |
472 | #bindall <B1-Motion> {selcanvline %W %x %y} |
|
477 | #bindall <B1-Motion> {selcanvline %W %x %y} | |
|
478 | bindall <MouseWheel> "allcansmousewheel %D" | |||
473 | bindall <ButtonRelease-4> "allcanvs yview scroll -5 units" |
|
479 | bindall <ButtonRelease-4> "allcanvs yview scroll -5 units" | |
474 | bindall <ButtonRelease-5> "allcanvs yview scroll 5 units" |
|
480 | bindall <ButtonRelease-5> "allcanvs yview scroll 5 units" | |
475 | bindall <2> "allcanvs scan mark 0 %y" |
|
481 | bindall <2> "allcanvs scan mark 0 %y" |
General Comments 0
You need to be logged in to leave comments.
Login now