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]</button-5>
  • bind $bindtag <button-4> [list %W yview scroll -5 units]</button-4>
  • bind $bindtag <shift-button-5> [list %W yview scroll 1 units]</shift-button-5>
  • bind $bindtag <shift-button-4> [list %W yview scroll -1 units]</shift-button-4>
  • bind $bindtag <control-button-5> [list %W yview scroll 1 pages]</control-button-5>
  • bind $bindtag <control-button-4> [list %W yview scroll -1 pages]
    +}
    +
    +mscroll Text</control-button-4>