ETxtView.st
changeset 70 14443a9ea4ec
parent 62 7cc1e330da47
child 77 565b052f5277
--- a/ETxtView.st	Tue Nov 22 15:33:56 1994 +0100
+++ b/ETxtView.st	Mon Nov 28 22:05:43 1994 +0100
@@ -32,7 +32,7 @@
 COPYRIGHT (c) 1989 by Claus Gittinger
 	    All Rights Reserved
 
-$Header: /cvs/stx/stx/libwidg/Attic/ETxtView.st,v 1.17 1994-11-17 14:33:59 claus Exp $
+$Header: /cvs/stx/stx/libwidg/Attic/ETxtView.st,v 1.18 1994-11-28 21:04:55 claus Exp $
 '!
 
 !EditTextView class methodsFor:'documentation'!
@@ -53,7 +53,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libwidg/Attic/ETxtView.st,v 1.17 1994-11-17 14:33:59 claus Exp $
+$Header: /cvs/stx/stx/libwidg/Attic/ETxtView.st,v 1.18 1994-11-28 21:04:55 claus Exp $
 "
 !
 
@@ -1267,6 +1267,7 @@
 
     |start end|
 
+    selectionStartLine isNil ifTrue:[^ self].
     start := selectionStartLine.
     end := selectionEndLine.
     (selectionEndCol == 0) ifTrue:[