equal
deleted
inserted
replaced
112 |
112 |
113 displayOn:aGCOrStream |
113 displayOn:aGCOrStream |
114 "print a representation of the receiver on aGCOrStream for display in inspectors etc." |
114 "print a representation of the receiver on aGCOrStream for display in inspectors etc." |
115 |
115 |
116 "/ what a kludge - Dolphin and Squeak mean: printOn: a stream; |
116 "/ what a kludge - Dolphin and Squeak mean: printOn: a stream; |
117 "/ ST/X (and some old ST80's) mean: draw-yourself on a GC. |
117 "/ old ST80 means: draw-yourself on a GC. |
118 (aGCOrStream isStream) ifFalse:[ |
118 (aGCOrStream isStream) ifFalse:[ |
119 ^ super displayOn:aGCOrStream |
119 ^ super displayOn:aGCOrStream |
120 ]. |
120 ]. |
121 |
121 |
122 aGCOrStream nextPutAll:('VirtualArray(size=%1, generator=%2)' |
122 aGCOrStream nextPutAll:('VirtualArray(size=%1, generator=%2)' |
123 bindWith:size with:generator printString). |
123 bindWith:size with:generator printString). |
|
124 |
|
125 "Modified (comment): / 22-02-2017 / 16:49:54 / cg" |
124 ! ! |
126 ! ! |
125 |
127 |
126 !VirtualArray methodsFor:'queries'! |
128 !VirtualArray methodsFor:'queries'! |
127 |
129 |
128 species |
130 species |