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

+ 5 - 3
modules/mojox/textview.monkey2

@@ -1045,9 +1045,11 @@ Class TextView Extends ScrollableView
 		Case Key.Home
 		Case Key.Home
 			_cursor=0
 			_cursor=0
 			UpdateCursor()
 			UpdateCursor()
+			Return True
 		Case Key.KeyEnd
 		Case Key.KeyEnd
 			_cursor=_doc.TextLength
 			_cursor=_doc.TextLength
 			UpdateCursor()
 			UpdateCursor()
+			Return True
 		Case Key.Left
 		Case Key.Left
 			If _anchor<>_cursor And Not (modifiers & Modifier.Shift)
 			If _anchor<>_cursor And Not (modifiers & Modifier.Shift)
 				_cursor=Min( _anchor,_cursor )
 				_cursor=Min( _anchor,_cursor )
@@ -1063,6 +1065,7 @@ Class TextView Extends ScrollableView
 			
 			
 			_cursor=FindWord( Max( _cursor-1,0 ),term )
 			_cursor=FindWord( Max( _cursor-1,0 ),term )
 			UpdateCursor()
 			UpdateCursor()
+			Return True
 		Case Key.Right
 		Case Key.Right
 			If _anchor<>_cursor And Not (modifiers & Modifier.Shift)
 			If _anchor<>_cursor And Not (modifiers & Modifier.Shift)
 				_cursor=Max( _anchor,_cursor )
 				_cursor=Max( _anchor,_cursor )
@@ -1079,11 +1082,10 @@ Class TextView Extends ScrollableView
 			Wend
 			Wend
 			
 			
 			UpdateCursor()
 			UpdateCursor()
-		Default
-			Return false
+			Return True
 		End
 		End
 		
 		
-		Return True
+		Return False
 	End
 	End
 	
 	
 	Method OnKeyEvent( event:KeyEvent ) Override
 	Method OnKeyEvent( event:KeyEvent ) Override