--- a/Message.st Wed Sep 22 11:53:14 2004 +0200
+++ b/Message.st Wed Sep 22 11:55:56 2004 +0200
@@ -161,6 +161,17 @@
^ self sendTo:aReceiver
! !
+!Message methodsFor:'Compatibility-Squeak'!
+
+argument
+ "return the 1st argument of the message"
+
+ args size == 1 ifFalse:[
+ self error:'Not a 1-arg message'
+ ].
+ ^ args at:1
+! !
+
!Message methodsFor:'accessing'!
arg1
@@ -228,5 +239,5 @@
!Message class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/Message.st,v 1.30 2004-08-22 18:06:43 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Message.st,v 1.31 2004-09-22 09:55:56 cg Exp $'
! !
--- a/SequenceableCollection.st Wed Sep 22 11:53:14 2004 +0200
+++ b/SequenceableCollection.st Wed Sep 22 11:55:56 2004 +0200
@@ -612,7 +612,7 @@
however, having a common protocol with indexed collections
often simplifies things."
- ((index < 1) or:[index > self size]) ifTrue:[
+ (index between:1 and:self size) ifFalse:[
^ exceptionBlock value
].
^ self at:index
@@ -6606,7 +6606,7 @@
!SequenceableCollection class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/SequenceableCollection.st,v 1.213 2004-09-22 07:15:38 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/SequenceableCollection.st,v 1.214 2004-09-22 09:55:16 cg Exp $'
! !
SequenceableCollection initialize!