--- a/EditTextView.st Wed Dec 21 13:36:30 2005 +0100
+++ b/EditTextView.st Thu Dec 22 16:03:56 2005 +0100
@@ -5127,7 +5127,7 @@
nStr isEmptyOrNil ifTrue:[^ self].
n := Integer readFrom:nStr onError:[^ self].
- extractor := [:l | ((l asCollectionOfWords select:[:w | w isEmpty or:[w first isLetterOrDigit]]) at:n ifAbsent:'')].
+ extractor := [:l | ((l asCollectionOfWords) at:n ifAbsent:'')].
] ifFalse:[ how == #words ifTrue:[
lineWise := false.
extractor := [:w | w].
@@ -6251,5 +6251,5 @@
!EditTextView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.380 2005-12-21 10:32:22 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.381 2005-12-22 15:03:56 cg Exp $'
! !