From 3b7649bdc1d6357c2c3145879d0720493e784622 Mon Sep 17 00:00:00 2001
From: "jan.nijtmans" <nijtmans@users.sourceforge.net>
Date: Fri, 8 Jan 2016 15:40:47 +0000
Subject: ..... horizontal scrollbar too

---
 library/scrlbar.tcl | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/library/scrlbar.tcl b/library/scrlbar.tcl
index 7b1c3af..b1658ac 100644
--- a/library/scrlbar.tcl
+++ b/library/scrlbar.tcl
@@ -153,7 +153,10 @@ switch [tk windowingsystem] {
     }
     "x11" {
 	bind Scrollbar <MouseWheel> {
-	    tk::ScrollByUnits %W v [expr {- (%D/120)}]
+	    tk::ScrollByUnits %W v [expr {- (%D /120 )}]
+	}
+	bind Scrollbar <Shift-MouseWheel> {
+	    tk::ScrollByUnits %W h [expr {- (%D /120 )}]
 	}
 	bind Scrollbar <4> {tk::ScrollByUnits %W v -5}
 	bind Scrollbar <5> {tk::ScrollByUnits %W v 5}
-- 
cgit v0.12