226 ^ super bindingOf: varName |
226 ^ super bindingOf: varName |
227 ! ! |
227 ! ! |
228 |
228 |
229 !SharedPool class methodsFor:'printing & storing'! |
229 !SharedPool class methodsFor:'printing & storing'! |
230 |
230 |
231 displayString |
231 displayOn:aGCOrStream |
|
232 "Compatibility |
|
233 append a printed desription on some stream (Dolphin, Squeak) |
|
234 OR: |
|
235 display the receiver in a graphicsContext at 0@0 (ST80). |
|
236 This method allows for any object to be displayed in some view |
|
237 (although the fallBack is to display its printString ...)" |
|
238 |
|
239 "/ what a kludge - Dolphin and Squeak mean: printOn: a stream; |
|
240 "/ ST/X (and some old ST80's) mean: draw-yourself on a GC. |
|
241 aGCOrStream isStream ifFalse:[ |
|
242 ^ super displayOn:aGCOrStream. |
|
243 ]. |
|
244 |
232 "return a printed represenation - here, a reminder is appended, |
245 "return a printed represenation - here, a reminder is appended, |
233 that this is not a regular class" |
246 that this is not a regular class" |
234 |
247 |
235 self == SharedPool ifTrue:[ |
248 self == NameSpace ifTrue:[ |
236 ^ super displayString |
249 super displayOn:aGCOrStream. |
237 ]. |
250 ] ifFalse:[ |
238 ^ self name , ' (* SharedPool *)' |
251 aGCOrStream |
|
252 nextPutAll:self name; |
|
253 nextPutAll:' (* SharedPool *)'. |
|
254 ]. |
239 ! ! |
255 ! ! |
240 |
256 |
241 !SharedPool class methodsFor:'queries'! |
257 !SharedPool class methodsFor:'queries'! |
242 |
258 |
243 isSharedPool |
259 isSharedPool |
245 ! ! |
261 ! ! |
246 |
262 |
247 !SharedPool class methodsFor:'documentation'! |
263 !SharedPool class methodsFor:'documentation'! |
248 |
264 |
249 version |
265 version |
250 ^ '$Id: SharedPool.st 10794 2012-03-27 15:32:25Z vranyj1 $' |
266 ^ '$Header: /cvs/stx/stx/libbasic/SharedPool.st,v 1.21 2012/08/03 15:52:47 stefan Exp $' |
251 ! |
267 ! |
252 |
268 |
253 version_CVS |
269 version_CVS |
254 ^ '§Header: /cvs/stx/stx/libbasic/SharedPool.st,v 1.20 2012/03/06 16:09:32 cg Exp §' |
270 ^ '§Header: /cvs/stx/stx/libbasic/SharedPool.st,v 1.21 2012/08/03 15:52:47 stefan Exp §' |
255 ! |
271 ! |
256 |
272 |
257 version_SVN |
273 version_SVN |
258 ^ '$Id: SharedPool.st 10794 2012-03-27 15:32:25Z vranyj1 $' |
274 ^ '$Id: SharedPool.st 10844 2012-09-07 16:24:32Z vranyj1 $' |
259 ! ! |
275 ! ! |