equal
deleted
inserted
replaced
933 displayOn:aGCOrStream |
933 displayOn:aGCOrStream |
934 "Append to aStream an expression which, if evaluated, will generate |
934 "Append to aStream an expression which, if evaluated, will generate |
935 an object similar to the receiver." |
935 an object similar to the receiver." |
936 |
936 |
937 "/ what a kludge - Dolphin and Squeak mean: printOn: a stream; |
937 "/ what a kludge - Dolphin and Squeak mean: printOn: a stream; |
938 "/ ST/X (and some old ST80's) mean: draw-yourself on a GC. |
938 "/ old ST80 means: draw-yourself on a GC. |
939 (aGCOrStream isStream) ifTrue:[ |
939 (aGCOrStream isStream) ifTrue:[ |
940 aGCOrStream nextPutAll: '(RunArray new'. |
940 aGCOrStream nextPutAll: '(RunArray new'. |
941 contentsArray notNil ifTrue:[ |
941 contentsArray notNil ifTrue:[ |
942 contentsArray pairWiseDo:[:len :val | |
942 contentsArray pairWiseDo:[:len :val | |
943 aGCOrStream nextPutAll: ' add:'. val displayOn:aGCOrStream. |
943 aGCOrStream nextPutAll: ' add:'. val displayOn:aGCOrStream. |
963 add:5; |
963 add:5; |
964 yourself) displayString |
964 yourself) displayString |
965 |
965 |
966 RunArray new displayString |
966 RunArray new displayString |
967 " |
967 " |
|
968 |
|
969 "Modified (comment): / 22-02-2017 / 16:49:50 / cg" |
968 ! |
970 ! |
969 |
971 |
970 storeOn:aStream |
972 storeOn:aStream |
971 "Append to aStream an expression which, if evaluated, will generate |
973 "Append to aStream an expression which, if evaluated, will generate |
972 an object similar to the receiver." |
974 an object similar to the receiver." |