112 display the receiver in a graphicsContext at 0@0 (ST80). |
112 display the receiver in a graphicsContext at 0@0 (ST80). |
113 This method allows for any object to be displayed in some view |
113 This method allows for any object to be displayed in some view |
114 (although the fallBack is to display its printString ...)" |
114 (although the fallBack is to display its printString ...)" |
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 |
122 aGCOrStream |
123 nextPutAll:self className; |
123 nextPutAll:self className; |
124 nextPut:$(. |
124 nextPut:$(. |
125 key displayOn:aGCOrStream. |
125 key displayOn:aGCOrStream. |
126 aGCOrStream nextPut:$) |
126 aGCOrStream nextPut:$) |
|
127 |
|
128 "Modified (comment): / 22-02-2017 / 16:49:37 / cg" |
127 ! |
129 ! |
128 |
130 |
129 printOn:aStream |
131 printOn:aStream |
130 "append a user printed representation of the receiver to aStream. |
132 "append a user printed representation of the receiver to aStream. |
131 The format is suitable for a human - not meant to be read back." |
133 The format is suitable for a human - not meant to be read back." |
132 |
134 |
133 key printOn:aStream. |
135 key printOn:aStream. |
134 ! ! |
136 ! ! |
135 |
137 |
|
138 |
136 !LookupKey class methodsFor:'documentation'! |
139 !LookupKey class methodsFor:'documentation'! |
137 |
140 |
138 version |
141 version |
139 ^ '$Header$' |
142 ^ '$Header$' |
140 ! ! |
143 ! ! |