66 ! ! |
66 ! ! |
67 |
67 |
68 !DisplayObject methodsFor:'ST-80 drawing'! |
68 !DisplayObject methodsFor:'ST-80 drawing'! |
69 |
69 |
70 displayOn: aDisplayMedium |
70 displayOn: aDisplayMedium |
|
71 "for ST-80 compatibility; not used in ST/X" |
|
72 |
71 self displayOn:aDisplayMedium |
73 self displayOn:aDisplayMedium |
72 at:0@0 |
74 at:0@0 |
73 clippingBox:nil |
75 clippingBox:nil |
74 rule:#copy |
76 rule:#copy |
75 mask:nil |
77 mask:nil |
|
78 |
|
79 "Modified: 12.5.1996 / 20:19:11 / cg" |
76 ! |
80 ! |
77 |
81 |
78 displayOn:aDisplayMedium at:aPoint |
82 displayOn:aDisplayMedium at:aPoint |
|
83 "for ST-80 compatibility; not used in ST/X" |
|
84 |
79 self displayOn:aDisplayMedium |
85 self displayOn:aDisplayMedium |
80 at:aPoint |
86 at:aPoint |
81 clippingBox:nil |
87 clippingBox:nil |
82 rule:#copy |
88 rule:#copy |
83 mask:nil |
89 mask:nil |
|
90 |
|
91 "Modified: 12.5.1996 / 20:19:15 / cg" |
84 ! |
92 ! |
85 |
93 |
86 displayOn:aDisplayMedium at:aPoint clippingBox:clipRectangle |
94 displayOn:aDisplayMedium at:aPoint clippingBox:clipRectangle |
|
95 "for ST-80 compatibility; not used in ST/X" |
|
96 |
87 ^ self displayOn:aDisplayMedium |
97 ^ self displayOn:aDisplayMedium |
88 at:aPoint |
98 at:aPoint |
89 clippingBox:clipRectangle |
99 clippingBox:clipRectangle |
90 rule:#copy |
100 rule:#copy |
91 mask:nil |
101 mask:nil |
|
102 |
|
103 "Modified: 12.5.1996 / 20:19:17 / cg" |
92 ! |
104 ! |
93 |
105 |
94 displayOn:aDisplayMedium at:aPoint clippingBox:clip rule:rule mask: aForm |
106 displayOn:aDisplayMedium at:aPoint clippingBox:clip rule:rule mask: aForm |
95 "in ST-80 programs, this is redefined" |
107 "for ST-80 compatibility; not used in ST/X. |
|
108 in ST-80 programs, this is redefined" |
96 |
109 |
97 aDisplayMedium function:rule. |
110 aDisplayMedium function:rule. |
98 ^ self drawIn:aDisplayMedium |
111 ^ self drawIn:aDisplayMedium at:(aPoint + self origin) |
99 at:(aPoint + self origin) |
112 |
|
113 "Modified: 12.5.1996 / 20:19:27 / cg" |
|
114 ! |
|
115 |
|
116 displayOn:aDisplayMedium x:x y:y |
|
117 self displayOn:aDisplayMedium |
|
118 at:(x@y) |
|
119 clippingBox:nil |
|
120 rule:#copy |
|
121 mask:nil |
|
122 |
|
123 "Modified: 12.5.1996 / 20:19:15 / cg" |
|
124 "Created: 12.5.1996 / 20:20:09 / cg" |
100 ! ! |
125 ! ! |
101 |
126 |
102 !DisplayObject methodsFor:'accessing'! |
127 !DisplayObject methodsFor:'accessing'! |
103 |
128 |
104 corner |
129 corner |