EditTextView.st
changeset 5057 990eb60b7dbe
parent 5056 9984a425a389
child 5060 669de456849b
--- a/EditTextView.st	Wed Jun 11 11:26:31 2014 +0200
+++ b/EditTextView.st	Wed Jun 11 13:14:44 2014 +0200
@@ -4624,12 +4624,14 @@
                     "/ remember the last click posision and adjust in the double click
                     "/ event handling (i.e. subtract the number of scrolled lines in between)
                     "/ Time will show, if this hack works.
-
-                    "/ self cursorLine:clickLine col:newCursorCol.
-                    self cursorLine:clickLine col:newCursorCol makeVisible:false.
-                    Processor 
-                        addTimedBlock:[self sensor pushUserEvent:#makeCursorVisible for:self]
-                        afterSeconds:0.3.
+                    clickLine >= (self lastLineShown -1 ) ifTrue:[
+                        self cursorLine:clickLine col:newCursorCol makeVisible:false.
+                        Processor 
+                            addTimedBlock:[self sensor pushUserEvent:#makeCursorVisible for:self]
+                            afterSeconds:0.3.
+                    ] ifFalse:[
+                        self cursorLine:clickLine col:newCursorCol.
+                    ].
                 ].
                 true "self hadSelectionBeforeClick not" ifTrue:[
                     list notEmptyOrNil ifTrue:[
@@ -8603,10 +8605,10 @@
 !EditTextView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.607 2014-06-11 09:26:31 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.608 2014-06-11 11:14:44 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.607 2014-06-11 09:26:31 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.608 2014-06-11 11:14:44 cg Exp $'
 ! !