Horizontal scrolling with the mouse wheel is now supported

[factor.git] / library / ui / x11 / ui.factor

diff --git a/library/ui/x11/ui.factor b/library/ui/x11/ui.factor
index f0a836375b89ff964d29c20cab8ca4f72e6a8456..db32afb79122f68f4877034ac0f9b63486440a34 100644 (file)
--- a/library/ui/x11/ui.factor
+++ b/library/ui/x11/ui.factor
@@ -108,8 +108,11 @@ M: world button-up-event
     >r mouse-event>gesture >r <button-up> r> r>
     send-button-up ;
 
+: mouse-event>scroll-direction ( event -- pair )
+    XButtonEvent-button 4 = 1 -1 ? 0 swap 2array ;
+
 M: world wheel-event
-    >r dup XButtonEvent-button 4 = swap mouse-event-loc r>
+    >r dup mouse-event>scroll-direction swap mouse-event-loc r>
     send-wheel ;
 
 M: world enter-event motion-event ;