Преглед изворни кода

TextView cursor now shows even if selection and 2 pixels wide.

Mark Sibly пре 9 година
родитељ
комит
69301ab5ed
1 измењених фајлова са 4 додато и 2 уклоњено
  1. 4 2
      modules/mojox/textview.monkey2

+ 4 - 2
modules/mojox/textview.monkey2

@@ -849,8 +849,10 @@ Class TextView Extends ScrollableView
 				canvas.DrawRect( 0,min.Bottom,clip.Right,max.Top-min.Bottom )
 				canvas.DrawRect( 0,min.Bottom,clip.Right,max.Top-min.Bottom )
 				canvas.DrawRect( 0,max.Top,max.Left,max.Height )
 				canvas.DrawRect( 0,max.Top,max.Left,max.Height )
 			Endif
 			Endif
+		
+		Endif
 			
 			
-		Else If Not _readOnly And App.KeyView=Self And _blinkOn
+		If Not _readOnly And App.KeyView=Self And _blinkOn
 		
 		
 			canvas.Color=_cursorColor
 			canvas.Color=_cursorColor
 			
 			
@@ -862,7 +864,7 @@ Class TextView Extends ScrollableView
 				canvas.DrawRect( _cursorRect.X-2,_cursorRect.Y,5,1 )
 				canvas.DrawRect( _cursorRect.X-2,_cursorRect.Y,5,1 )
 				canvas.DrawRect( _cursorRect.X-2,_cursorRect.Y+_cursorRect.Height-1,5,1 )
 				canvas.DrawRect( _cursorRect.X-2,_cursorRect.Y+_cursorRect.Height-1,5,1 )
 			Default
 			Default
-				canvas.DrawRect( _cursorRect.X,_cursorRect.Y,1,_cursorRect.Height )
+				canvas.DrawRect( _cursorRect.X-1,_cursorRect.Y,2,_cursorRect.Height )
 			End
 			End
 			
 			
 		Endif
 		Endif