--- 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 $'
! !