# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1401503783 -7200
# Node ID bcbf8cb1b3d15977e486a7fa018646762e64e4ed
# Parent  6197bf1337fe24f7a99f0a7d787f8d75b9a55a6f
class: TextView
changed: #selectFromLine:col:toLine:col:

diff -r 6197bf1337fe -r bcbf8cb1b3d1 TextView.st
--- a/TextView.st	Fri May 30 23:20:49 2014 +0200
+++ b/TextView.st	Sat May 31 04:36:23 2014 +0200
@@ -4597,6 +4597,11 @@
 selectFromLine:startLine col:startCol toLine:endLine col:endCol
     "select a piece of text and redraw that area"
 
+    ((selectionStartLine = startLine)
+      and:[ (selectionStartCol = startCol)
+      and:[ (selectionEndLine = endLine)
+      and:[ (selectionEndCol = endCol) ]]]) ifTrue:[^ self ].
+
     self unselect.
     startLine notNil ifTrue:[
         "new:"
@@ -4879,11 +4884,11 @@
 !TextView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.373 2014-04-30 13:57:55 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.374 2014-05-31 02:36:23 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.373 2014-04-30 13:57:55 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.374 2014-05-31 02:36:23 cg Exp $'
 ! !