Browse Source

attempt 2 at fixing keyup issue...

Mark Sibly 8 years ago
parent
commit
2a7eb5ba52
1 changed files with 7 additions and 15 deletions
  1. 7 15
      modules/mojo/app/app.monkey2

+ 7 - 15
modules/mojo/app/app.monkey2

@@ -645,27 +645,19 @@ Class AppInstance
 	
 	
 		Local view:=KeyView
 		Local view:=KeyView
 		
 		
-		Local event:=New KeyEvent( type,view,_key,_rawKey,_modifiers,_keyChar )
-		
-		KeyEventFilter( event )
-		
-		If event.Eaten Or Not view
-			_keyDownView=Null
-			Return
-		Endif
-		
 		Select type
 		Select type
 		Case EventType.KeyDown
 		Case EventType.KeyDown
 			_keyDownView=view
 			_keyDownView=view
 		Case EventType.KeyUp
 		Case EventType.KeyUp
-			If view<>_keyDownView
-				_keyDownView=Null
-				Return
-			Endif
-		Default
-			_keyDownView=Null
+			If view<>_keyDownView Return
 		End
 		End
 		
 		
+		Local event:=New KeyEvent( type,view,_key,_rawKey,_modifiers,_keyChar )
+		
+		KeyEventFilter( event )
+		
+		If event.Eaten Or Not view Return
+		
 		view.SendKeyEvent( event )
 		view.SendKeyEvent( event )
 	End
 	End