222 displayString

   222 displayOn:aGCOrStream

   223     "return a string for display in inspectors etc."

   223     "Compatibility

   224 

   224      append a printed desription on some stream (Dolphin,  Squeak)

   225     ^ self class name , '(' , selector printString , ')'

   225      OR:

   226 

   226      display the receiver in a graphicsContext at 0@0 (ST80).

   227     "Modified: 28.10.1996 / 17:04:29 / cg"

   227      This method allows for any object to be displayed in some view

   228      (although the fallBack is to display its printString ...)"

   229 

   230     "/ what a kludge - Dolphin and Squeak mean: printOn: a stream;

   231     "/ ST/X (and some old ST80's) mean: draw-yourself on a GC.

   232     aGCOrStream isStream ifFalse:[

   233         ^ super displayOn:aGCOrStream.

   234     ].

   235 

   236     aGCOrStream 

   237         nextPutAll:self class name;

   238         nextPut:$(.

   239     selector storeOn:aGCOrStream. 

   240     aGCOrStream nextPut:$)

   261     ^ '$Header: /cvs/stx/stx/libbasic/Message.st,v 1.33 2007-05-31 15:51:35 cg Exp $'

   274     ^ '$Header: /cvs/stx/stx/libbasic/Message.st,v 1.34 2012-08-03 15:52:57 stefan Exp $'

   262 ! !

   275 ! !