# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1539349887 -7200
# Node ID 64f4dc5b8c5a9a55862eb2845c60effc2ec8fce1
# Parent  b98c935b55aac8125c1d3a0d63466fcf017c1abe
#BUGFIX by cg
class: TextView
changed: #expandSelectionUp

diff -r b98c935b55aa -r 64f4dc5b8c5a 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.