Bob Marcan - 2014-03-17

--- tkman-2.2/tkman.tcl.ORG 2014-03-17 01:55:58.427455576 +0100
+++ tkman-2.2/tkman.tcl 2014-03-17 02:06:32.835590711 +0100
@@ -2715,3 +2715,15 @@
wm deiconify $w
}
}
+
+
+proc mscroll {bindtag} {
+ bind $bindtag <button-5> [list %W yview scroll 5 units]
+ bind $bindtag <button-4> [list %W yview scroll -5 units]
+ bind $bindtag <shift-button-5> [list %W yview scroll 1 units]
+ bind $bindtag <shift-button-4> [list %W yview scroll -1 units]
+ bind $bindtag <control-button-5> [list %W yview scroll 1 pages]
+ bind $bindtag <control-button-4> [list %W yview scroll -1 pages]
+}
+
+mscroll Text</control-button-4></control-button-5></shift-button-4></shift-button-5></button-4></button-5>