equal
deleted
inserted
replaced
843 contentsArray pairWiseDo:aBlock |
843 contentsArray pairWiseDo:aBlock |
844 ] |
844 ] |
845 |
845 |
846 "Modified: 11.5.1996 / 13:35:03 / cg" |
846 "Modified: 11.5.1996 / 13:35:03 / cg" |
847 "Created: 12.5.1996 / 11:06:51 / cg" |
847 "Created: 12.5.1996 / 11:06:51 / cg" |
|
848 ! |
|
849 |
|
850 withStartStopAndValueDo:aThreeArgBlock |
|
851 "Evaluate aBlock with each of the receiver's runs, passing |
|
852 start, end and attributes as arguments." |
|
853 |
|
854 |idx| |
|
855 |
|
856 contentsArray notNil ifTrue:[ |
|
857 idx := 1. |
|
858 contentsArray pairWiseDo:[:count :emp | |
|
859 aThreeArgBlock value:idx value:(idx+count-1) value:emp |
|
860 ] |
|
861 ] |
848 ! ! |
862 ! ! |
849 |
863 |
850 !RunArray methodsFor:'printing & storing'! |
864 !RunArray methodsFor:'printing & storing'! |
851 |
865 |
852 displayOn:aGCOrStream |
866 displayOn:aGCOrStream |
1315 |
1329 |
1316 |
1330 |
1317 !RunArray class methodsFor:'documentation'! |
1331 !RunArray class methodsFor:'documentation'! |
1318 |
1332 |
1319 version |
1333 version |
1320 ^ '$Header: /cvs/stx/stx/libbasic2/RunArray.st,v 1.30 2013-03-19 09:22:36 cg Exp $' |
1334 ^ '$Header: /cvs/stx/stx/libbasic2/RunArray.st,v 1.31 2013-03-30 01:27:05 cg Exp $' |
1321 ! |
1335 ! |
1322 |
1336 |
1323 version_CVS |
1337 version_CVS |
1324 ^ '$Header: /cvs/stx/stx/libbasic2/RunArray.st,v 1.30 2013-03-19 09:22:36 cg Exp $' |
1338 ^ '$Header: /cvs/stx/stx/libbasic2/RunArray.st,v 1.31 2013-03-30 01:27:05 cg Exp $' |
1325 ! ! |
1339 ! ! |
1326 |
1340 |