EditField.st
changeset 1654 2569ec675d8a
parent 1632 01a7b330622a
child 1683 48afbdaa32d5
--- a/EditField.st	Thu Aug 27 13:08:46 1998 +0200
+++ b/EditField.st	Sat Aug 29 17:59:11 1998 +0200
@@ -1987,15 +1987,17 @@
 !
 
 validateNewSelection
-     "make certain that only one line is ever selected"
+    "make certain that only one line is ever selected"
 
-     selectionEndLine > 1 ifTrue:[
-	selectionEndLine := 2. selectionEndCol := 0
-     ].
+    selectionEndLine notNil ifTrue:[
+        selectionEndLine > 1 ifTrue:[
+            selectionEndLine := 2. selectionEndCol := 0
+        ]
+    ].
 ! !
 
 !EditField class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/EditField.st,v 1.112 1998-08-03 16:41:20 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/EditField.st,v 1.113 1998-08-29 15:59:11 ca Exp $'
 ! !