Browse Source

Scrollview now only eats mousewheel event if scrolling occured.

Mark Sibly 8 years ago
parent
commit
3f79ae2a11
1 changed files with 6 additions and 5 deletions
  1. 6 5
      modules/mojox/scrollview.monkey2

+ 6 - 5
modules/mojox/scrollview.monkey2

@@ -253,13 +253,14 @@ Class ScrollView Extends DockingView
 		Select event.Type
 		Select event.Type
 		Case EventType.MouseWheel
 		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
 		End
-		
-		event.Eat()
 	End
 	End
 	
 	
 	Method ContentViewContainer:View( contentView:View ) Override
 	Method ContentViewContainer:View( contentView:View ) Override