equal
deleted
inserted
replaced
74 "Modified: 28.3.1997 / 16:40:44 / cg" |
74 "Modified: 28.3.1997 / 16:40:44 / cg" |
75 ! ! |
75 ! ! |
76 |
76 |
77 !DisplayObject methodsFor:'ST-80 drawing'! |
77 !DisplayObject methodsFor:'ST-80 drawing'! |
78 |
78 |
79 displayOn: aDisplayMedium |
79 displayOn:aGCOrStream |
80 "for ST-80 compatibility; not used in ST/X" |
80 "for ST-80 compatibility; not used in ST/X" |
81 |
81 |
82 self displayOn:aDisplayMedium |
82 "/ what a kludge - Dolphin and Squeak mean: printOn:; |
|
83 "/ ST/X (and some old ST80's) mean: draw-yourself on. |
|
84 (aGCOrStream isStream or:[aGCOrStream == Transcript]) ifTrue:[ |
|
85 self printOn:aGCOrStream. |
|
86 ^ self |
|
87 ]. |
|
88 |
|
89 self displayOn:aGCOrStream |
83 at:0@0 |
90 at:0@0 |
84 clippingBox:nil |
91 clippingBox:nil |
85 rule:#copy |
92 rule:#copy |
86 mask:nil |
93 mask:nil |
87 |
94 |
519 ! ! |
526 ! ! |
520 |
527 |
521 !DisplayObject class methodsFor:'documentation'! |
528 !DisplayObject class methodsFor:'documentation'! |
522 |
529 |
523 version |
530 version |
524 ^ '$Header: /cvs/stx/stx/libview2/DisplayObject.st,v 1.26 2002-07-23 15:31:56 mb Exp $' |
531 ^ '$Header: /cvs/stx/stx/libview2/DisplayObject.st,v 1.27 2002-12-09 10:44:15 cg Exp $' |
525 ! ! |
532 ! ! |