equal
deleted
inserted
replaced
67 ^ self basicNew initialize |
67 ^ self basicNew initialize |
68 ! ! |
68 ! ! |
69 |
69 |
70 !VisualComponent methodsFor:'accessing'! |
70 !VisualComponent methodsFor:'accessing'! |
71 |
71 |
|
72 container:someContainer |
|
73 "ignored here" |
|
74 |
|
75 "Created: 9.5.1996 / 00:48:54 / cg" |
|
76 ! |
|
77 |
|
78 setParentViewIn:aView |
|
79 "ignored here - for now" |
|
80 |
|
81 "Created: 9.5.1996 / 00:19:39 / cg" |
|
82 ! ! |
|
83 |
|
84 !VisualComponent methodsFor:'accessing - dimensions'! |
|
85 |
|
86 bottom |
|
87 "return my bottom y coordinate" |
|
88 |
|
89 ^ self bounds bottom |
|
90 |
|
91 "Modified: 9.5.1996 / 00:13:12 / cg" |
|
92 "Created: 26.5.1996 / 12:56:12 / cg" |
|
93 ! |
|
94 |
72 bounds |
95 bounds |
73 "return my bounds" |
96 "return my bounds" |
74 |
97 |
75 ^ bounds |
98 ^ bounds |
76 |
99 |
85 |
108 |
86 "Created: 8.5.1996 / 23:36:07 / cg" |
109 "Created: 8.5.1996 / 23:36:07 / cg" |
87 "Modified: 9.5.1996 / 00:13:12 / cg" |
110 "Modified: 9.5.1996 / 00:13:12 / cg" |
88 ! |
111 ! |
89 |
112 |
90 container:someContainer |
113 left |
91 "ignored here" |
114 "return my left x coordinate" |
92 |
115 |
93 "Created: 9.5.1996 / 00:48:54 / cg" |
116 ^ self bounds left |
|
117 |
|
118 "Created: 8.5.1996 / 23:36:07 / cg" |
|
119 "Modified: 26.5.1996 / 12:56:22 / cg" |
94 ! |
120 ! |
95 |
121 |
96 preferredBounds |
122 preferredBounds |
97 "return my preferredBounds" |
123 "return my preferredBounds" |
98 |
124 |
100 |
126 |
101 "Created: 8.5.1996 / 23:36:29 / cg" |
127 "Created: 8.5.1996 / 23:36:29 / cg" |
102 "Modified: 9.5.1996 / 00:13:22 / cg" |
128 "Modified: 9.5.1996 / 00:13:22 / cg" |
103 ! |
129 ! |
104 |
130 |
105 setParentViewIn:aView |
131 right |
106 "ignored here - for now" |
132 "return my right x coordinate" |
107 |
133 |
108 "Created: 9.5.1996 / 00:19:39 / cg" |
134 ^ self bounds right |
|
135 |
|
136 "Modified: 9.5.1996 / 00:13:12 / cg" |
|
137 "Created: 26.5.1996 / 12:56:25 / cg" |
|
138 ! |
|
139 |
|
140 top |
|
141 "return my top y coordinate" |
|
142 |
|
143 ^ self bounds top |
|
144 |
|
145 "Modified: 9.5.1996 / 00:13:12 / cg" |
|
146 "Created: 26.5.1996 / 12:56:15 / cg" |
109 ! ! |
147 ! ! |
110 |
148 |
111 !VisualComponent methodsFor:'accessing - look'! |
149 !VisualComponent methodsFor:'accessing - look'! |
112 |
150 |
113 backgroundColor:aColor |
151 backgroundColor:aColor |
234 ! ! |
272 ! ! |
235 |
273 |
236 !VisualComponent class methodsFor:'documentation'! |
274 !VisualComponent class methodsFor:'documentation'! |
237 |
275 |
238 version |
276 version |
239 ^ '$Header: /cvs/stx/stx/libview2/VisualComponent.st,v 1.6 1996-05-13 09:34:25 cg Exp $' |
277 ^ '$Header: /cvs/stx/stx/libview2/VisualComponent.st,v 1.7 1996-05-26 11:28:16 cg Exp $' |
240 ! ! |
278 ! ! |