From fc8e81838529c499063d90c4742a6dfa5671ddec Mon Sep 17 00:00:00 2001
From: erg <erg@trifocus.net>
Date: Mon, 28 Aug 2006 01:52:25 +0000
Subject: [PATCH] fix win32 mouse scrolling

---
 library/ui/windows/ui.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/library/ui/windows/ui.factor b/library/ui/windows/ui.factor
index 2951a508b8..3b75db2e5b 100644
--- a/library/ui/windows/ui.factor
+++ b/library/ui/windows/ui.factor
@@ -175,7 +175,7 @@ SYMBOL: hWnd
     } cond ;
 
 : mouse-coordinate ( lParam -- seq ) [ lo-word ] keep hi-word 2array ;
-: mouse-wheel ( lParam -- n ) hi-word 0 > 1 -1 ? ;
+: mouse-wheel ( lParam -- n ) hi-word 0 > ;
 
 : prepare-mouse ( hWnd uMsg wParam lParam -- world )
     nip >r mouse-button r> mouse-coordinate rot window ;