591 ! ! |
591 ! ! |
592 |
592 |
593 |
593 |
594 !NameSpace class methodsFor:'printing & storing'! |
594 !NameSpace class methodsFor:'printing & storing'! |
595 |
595 |
596 displayString |
596 displayOn:aGCOrStream |
|
597 "Compatibility |
|
598 append a printed desription on some stream (Dolphin, Squeak) |
|
599 OR: |
|
600 display the receiver in a graphicsContext at 0@0 (ST80). |
|
601 This method allows for any object to be displayed in some view |
|
602 (although the fallBack is to display its printString ...)" |
|
603 |
|
604 "/ what a kludge - Dolphin and Squeak mean: printOn: a stream; |
|
605 "/ ST/X (and some old ST80's) mean: draw-yourself on a GC. |
|
606 aGCOrStream isStream ifFalse:[ |
|
607 ^ super displayOn:aGCOrStream. |
|
608 ]. |
|
609 |
597 "return a printed represenation - here, a reminder is appended, |
610 "return a printed represenation - here, a reminder is appended, |
598 that this is not a regular class" |
611 that this is not a regular class" |
599 |
612 |
600 self == NameSpace ifTrue:[ |
613 self == NameSpace ifTrue:[ |
601 ^ super displayString |
614 super displayOn:aGCOrStream. |
602 ]. |
615 ] ifFalse:[ |
603 ^ self name , ' (* NameSpace *)' |
616 aGCOrStream |
604 |
617 nextPutAll:self name; |
605 "Created: 8.11.1996 / 21:37:24 / cg" |
618 nextPutAll:' (* NameSpace *)'. |
606 "Modified: 20.12.1996 / 15:11:31 / cg" |
619 ]. |
607 ! ! |
620 ! ! |
608 |
621 |
609 !NameSpace class methodsFor:'private'! |
622 !NameSpace class methodsFor:'private'! |
610 |
623 |
611 setImports: anArrayOrNil |
624 setImports: anArrayOrNil |