EditTextView.st
branchtext-view-selection-refactoring
changeset 4845 23ab15b7f4e0
parent 4844 269a12794578
child 4846 cd2e0b754655
--- a/EditTextView.st	Fri Aug 30 00:22:34 2013 +0100
+++ b/EditTextView.st	Fri Aug 30 18:02:56 2013 +0100
@@ -4604,6 +4604,7 @@
                 oldTypeOfSelection == #paste ifTrue:[
                     cursorLine := selectionEndLine.
                     cursorCol := selectionEndCol + 1.
+                ].
                 self unselect; makeCursorVisible.
                 self cursorRight.
             ].