equal
deleted
inserted
replaced
197 |
197 |
198 !RunArray class methodsFor:'instance creation'! |
198 !RunArray class methodsFor:'instance creation'! |
199 |
199 |
200 new:size |
200 new:size |
201 "ignore the size argument - we dont know how many runs are |
201 "ignore the size argument - we dont know how many runs are |
202 needed - anyway" |
202 needed." |
203 |
203 |
204 ^ self new |
204 ^ self new |
|
205 |
|
206 "Modified: 11.5.1996 / 14:07:12 / cg" |
|
207 ! |
|
208 |
|
209 new:size withAll:anObject |
|
210 "create a new runArray, containing anObject size times" |
|
211 |
|
212 ^ self basicNew setElement:anObject occurrences:size |
|
213 |
|
214 " |
|
215 RunArray new:100 withAll:#hello |
|
216 " |
|
217 |
|
218 "Modified: 11.5.1996 / 14:06:48 / cg" |
205 ! ! |
219 ! ! |
206 |
220 |
207 !RunArray methodsFor:'accessing'! |
221 !RunArray methodsFor:'accessing'! |
208 |
222 |
209 at:anInteger |
223 at:anInteger |
785 |
799 |
786 ^ #(0 0) |
800 ^ #(0 0) |
787 |
801 |
788 "Created: 10.5.1996 / 17:12:28 / cg" |
802 "Created: 10.5.1996 / 17:12:28 / cg" |
789 "Modified: 11.5.1996 / 13:35:21 / cg" |
803 "Modified: 11.5.1996 / 13:35:21 / cg" |
|
804 ! |
|
805 |
|
806 setElement:newObject occurrences:n |
|
807 "private instance setup" |
|
808 |
|
809 contentsArray := Array with:n with:newObject. |
|
810 |
|
811 "Created: 11.5.1996 / 14:05:58 / cg" |
790 ! ! |
812 ! ! |
791 |
813 |
792 !RunArray methodsFor:'user interface'! |
814 !RunArray methodsFor:'user interface'! |
793 |
815 |
794 inspect |
816 inspect |
801 ! ! |
823 ! ! |
802 |
824 |
803 !RunArray class methodsFor:'documentation'! |
825 !RunArray class methodsFor:'documentation'! |
804 |
826 |
805 version |
827 version |
806 ^ '$Header: /cvs/stx/stx/libbasic2/RunArray.st,v 1.4 1996-05-11 11:53:37 cg Exp $' |
828 ^ '$Header: /cvs/stx/stx/libbasic2/RunArray.st,v 1.5 1996-05-11 12:07:28 cg Exp $' |
807 ! ! |
829 ! ! |