Fixed scrolling direction with mouse wheel for horizontal scrollers

WINGs/ChangeLog

@@ -51,6 +51,7 @@ Changes since wmaker 0.64.0:
 - fixed a bug that made the scroller knob jump backwards when dragged (this
   bug had no relation with the behavior that #define STRICT_NEXT_BEHAVIOUR
   attempts to accomplish).
+- fixed scrolling direction with mouse wheel for horizontal scroller.
 
 
 changes since wmaker 0.63.1:

WINGs/wscroller.c

@@ -798,6 +798,7 @@ static void
 handleActionEvents(XEvent *event, void *data)
 {
     Scroller *sPtr = (Scroller*)data;
+    int wheelDecrement, wheelIncrement;
     int id, dd;
 
 
@@ -810,7 +811,6 @@ handleActionEvents(XEvent *event, void *data)
 
     switch (event->type) {
     case EnterNotify:
-	
         break;
 
     case LeaveNotify:
@@ -826,7 +826,16 @@ handleActionEvents(XEvent *event, void *data)
         /* FIXME: change Mod1Mask with something else */
         if (sPtr->flags.documentFullyVisible)
             break;
-	if (event->xbutton.button==WINGsConfiguration.mouseWheelUp) {
+
+        if (sPtr->flags.horizontal) {
+            wheelDecrement = WINGsConfiguration.mouseWheelDown;
+            wheelIncrement = WINGsConfiguration.mouseWheelUp;
+        } else {
+            wheelDecrement = WINGsConfiguration.mouseWheelUp;
+            wheelIncrement = WINGsConfiguration.mouseWheelDown;
+        }
+
+	if (event->xbutton.button == wheelDecrement) {
             if (event->xbutton.state & ControlMask) {
                 sPtr->flags.hitPart = WSDecrementPage;
             } else if (event->xbutton.state & ShiftMask) {
@@ -839,7 +848,7 @@ handleActionEvents(XEvent *event, void *data)
 		WMPostNotificationName(WMScrollerDidScrollNotification, sPtr,
 				       NULL);
 	    }
-	} else if (event->xbutton.button==WINGsConfiguration.mouseWheelDown) {
+	} else if (event->xbutton.button == wheelIncrement) {
             if (event->xbutton.state & ControlMask) {
                 sPtr->flags.hitPart = WSIncrementPage;
             } else if (event->xbutton.state & ShiftMask) {