Explorar el Código

Scrollview now only eats mousewheel event if scrolling occured.

Mark Sibly hace 8 años
padre
commit
3f79ae2a11
Se han modificado 1 ficheros con 6 adiciones y 5 borrados
  1. 6 5
      modules/mojox/scrollview.monkey2

+ 6 - 5
modules/mojox/scrollview.monkey2

@@ -253,13 +253,14 @@ Class ScrollView Extends DockingView
 		Select event.Type
 		Case EventType.MouseWheel
 		
-			Scroll-=New Vec2i( 0,_content.RenderStyle.Font.Height*event.Wheel.Y )
+			Local scroll:=_scroll
 			
-		Default
-			Return
+			Local delta:=New Vec2i( 0,_content.RenderStyle.Font.Height*event.Wheel.Y )
+			
+			Scroll-=delta
+			
+			If scroll<>_scroll event.Eat()
 		End
-		
-		event.Eat()
 	End
 	
 	Method ContentViewContainer:View( contentView:View ) Override