sort by nth word: do not skip non-alphanumeric words
authorClaus Gittinger <cg@exept.de>
Thu, 22 Dec 2005 16:03:56 +0100
changeset 3227 49b97c45652a
parent 3226 43c19d2a074d
child 3228 8bca2c69b673
sort by nth word: do not skip non-alphanumeric words
EditTextView.st
--- 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 $'
 ! !