#BUGFIX by cg
authorClaus Gittinger <cg@exept.de>
Fri, 12 Oct 2018 15:11:27 +0200
changeset 6454 64f4dc5b8c5a
parent 6453 b98c935b55aa
child 6455 e761c8425f5d
#BUGFIX by cg class: TextView changed: #expandSelectionUp
TextView.st
--- a/TextView.st	Fri Oct 12 14:25:22 2018 +0200
+++ b/TextView.st	Fri Oct 12 15:11:27 2018 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 1989 by Claus Gittinger
               All Rights Reserved
@@ -5124,8 +5122,10 @@
 
             l := selectionEndLine.
             (selectionEndLine < clickLine
-            or:[(selectionEndLine == clickLine and:[selectionEndCol < clickCol])])
-            ifTrue:[
+                or:[(selectionEndLine == clickLine 
+                    and:[clickCol notNil
+                    and:[selectionEndCol < clickCol]])]
+            ) ifTrue:[
                 t := selectionStartLine.
                 selectionStartLine := selectionEndLine.
                 selectionEndLine := t.