equal
deleted
inserted
replaced
610 NOTICE: |
610 NOTICE: |
611 in ST-80, this message is only defined for Dictionaries, |
611 in ST-80, this message is only defined for Dictionaries, |
612 however, having a common protocol with indexed collections |
612 however, having a common protocol with indexed collections |
613 often simplifies things." |
613 often simplifies things." |
614 |
614 |
615 ((index < 1) or:[index > self size]) ifTrue:[ |
615 (index between:1 and:self size) ifFalse:[ |
616 ^ exceptionBlock value |
616 ^ exceptionBlock value |
617 ]. |
617 ]. |
618 ^ self at:index |
618 ^ self at:index |
619 |
619 |
620 " |
620 " |
6604 ! ! |
6604 ! ! |
6605 |
6605 |
6606 !SequenceableCollection class methodsFor:'documentation'! |
6606 !SequenceableCollection class methodsFor:'documentation'! |
6607 |
6607 |
6608 version |
6608 version |
6609 ^ '$Header: /cvs/stx/stx/libbasic/SequenceableCollection.st,v 1.213 2004-09-22 07:15:38 cg Exp $' |
6609 ^ '$Header: /cvs/stx/stx/libbasic/SequenceableCollection.st,v 1.214 2004-09-22 09:55:16 cg Exp $' |
6610 ! ! |
6610 ! ! |
6611 |
6611 |
6612 SequenceableCollection initialize! |
6612 SequenceableCollection initialize! |