From 645579913d0bfbfdcc9cd0107dd55bd121a99990 Mon Sep 17 00:00:00 2001
From: Jonathan Moore Liles <j.liles@unix.net>
Date: Fri, 6 Sep 2013 00:46:01 -0700
Subject: [PATCH] Fl_Panzoomer: Add keybinding for Shift+Mousewheel to scroll
 horizontally.

---
 src/Fl_Panzoomer.cxx | 20 +++++++++++++++++++-
 1 file changed, 19 insertions(+), 1 deletion(-)

diff --git a/src/Fl_Panzoomer.cxx b/src/Fl_Panzoomer.cxx
index 6d0a825..6b21c98 100644
--- a/src/Fl_Panzoomer.cxx
+++ b/src/Fl_Panzoomer.cxx
@@ -306,8 +306,26 @@ Fl_Panzoomer::handle ( int m, int X, int Y, int W, int H )
 
                 return 1;
             }
+            
+            if ( Fl::event_alt() )
+                return 0;
+
+            if ( Fl::event_shift())
+            {
+                if ( dx )
+                    y_value( _ypos + ( (double)dx*5 / H ) * _ymax );
 
-            if ( !Fl::event_alt() && !Fl::event_shift())
+                if ( dy )
+                    x_value( _xpos + ( (double)dy*5 / W ) * _xmax );
+                
+                if ( when() & FL_WHEN_CHANGED )
+                    do_callback();
+                
+                damage( FL_DAMAGE_USER1 );
+                
+                return 1;
+            }
+            else
             {
                 if ( dy )
                     y_value( _ypos + ( (double)dy*5 / H ) * _ymax );