--- a/SequenceableCollection.st Thu Nov 03 21:06:17 2016 +0100
+++ b/SequenceableCollection.st Thu Nov 03 21:32:59 2016 +0100
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
"
COPYRIGHT (c) 1989 by Claus Gittinger
All Rights Reserved
@@ -450,6 +448,7 @@
^ self == SequenceableCollection
! !
+
!SequenceableCollection methodsFor:'Compatibility-Squeak'!
allButFirst
@@ -6981,7 +6980,8 @@
s := self species new:size withAll:padElement.
s replaceFrom:(size - len + 1) with:self.
^ s
- ]
+ ].
+ ^ self
"
'foo' leftPaddedTo:10 with:$.
@@ -7874,6 +7874,7 @@
"Created: 14.2.1997 / 16:13:03 / cg"
! !
+
!SequenceableCollection methodsFor:'searching'!
detect:aBlock startingAt:startIndex