3834 OR: |
3836 OR: |
3835 display the receiver in a graphicsContext at 0@0 (ST80). |
3837 display the receiver in a graphicsContext at 0@0 (ST80). |
3836 This method allows for any object to be displayed in some view |
3838 This method allows for any object to be displayed in some view |
3837 (although the fallBack is to display its printString ...)" |
3839 (although the fallBack is to display its printString ...)" |
3838 |
3840 |
3839 "/ what a kludge - Dolphin and Squeak mean: printOn: a stream; |
3841 aGCOrStream isStream ifFalse:[ |
3840 "/ old ST80 means: draw-yourself on a GC. |
3842 "/ what a kludge - Dolphin and Squeak mean: printOn: a stream; |
3841 aGCOrStream isStream ifTrue:[ |
3843 "/ old ST80 means: draw-yourself on a GC. |
3842 self printOn:aGCOrStream. |
3844 self obsoleteFeatureWarning:'displayOn: should not be used to display objects in a GC'. |
3843 ^ self |
3845 self displayOn:aGCOrStream x:0 y:0. |
3844 ]. |
3846 ^ self. |
3845 self obsoleteFeatureWarning:'displayOn: should not be used to display objects in a GC'. |
3847 ]. |
3846 ^ self displayOn:aGCOrStream x:0 y:0. |
3848 self printOn:aGCOrStream. |
3847 |
3849 |
3848 "Created: / 29-05-1996 / 16:28:58 / cg" |
3850 "Created: / 29-05-1996 / 16:28:58 / cg" |
3849 "Modified (format): / 22-02-2017 / 17:03:14 / cg" |
3851 "Modified (format): / 22-02-2017 / 17:03:14 / cg" |
|
3852 "Modified: / 23-11-2018 / 14:54:12 / Stefan Vogel" |
3850 ! |
3853 ! |
3851 |
3854 |
3852 displayOn:aGC at:aPoint |
3855 displayOn:aGC at:aPoint |
3853 "ST-80 Compatibility |
3856 "ST-80 Compatibility |
3854 display the receiver in a graphicsContext - this method allows |
3857 display the receiver in a graphicsContext - this method allows |
3855 for any object to be displayed in a ListView - for example." |
3858 for any object to be displayed in a ListView - for example." |
3856 |
3859 |
3857 ^ self displayOn:aGC x:(aPoint x) y:(aPoint y). |
3860 self displayOn:aGC x:(aPoint x) y:(aPoint y). |
|
3861 |
|
3862 "Modified: / 23-11-2018 / 14:54:34 / Stefan Vogel" |
3858 ! |
3863 ! |
3859 |
3864 |
3860 displayOn:aGC x:x y:y |
3865 displayOn:aGC x:x y:y |
3861 "display the receiver in a graphicsContext - this method allows |
3866 "display the receiver in a graphicsContext - this method allows |
3862 for any object to be displayed in a ListView - for example." |
3867 for any object to be displayed in a ListView - for example." |