66 |
66 |
67 new |
67 new |
68 ^ self basicNew initialize |
68 ^ self basicNew initialize |
69 ! ! |
69 ! ! |
70 |
70 |
|
71 !VisualComponent class methodsFor:'queries'! |
|
72 |
|
73 defaultFont |
|
74 ^ SimpleView defaultFont |
|
75 |
|
76 "Created: / 18.6.1998 / 16:14:22 / cg" |
|
77 ! |
|
78 |
|
79 defaultViewBackgroundColor |
|
80 ^ SimpleView defaultViewBackgroundColor |
|
81 |
|
82 "Created: / 18.6.1998 / 16:15:17 / cg" |
|
83 ! ! |
|
84 |
71 !VisualComponent methodsFor:'accessing'! |
85 !VisualComponent methodsFor:'accessing'! |
72 |
86 |
|
87 backgroundColor |
|
88 ^ Color white |
|
89 |
|
90 "Created: / 18.6.1998 / 16:01:00 / cg" |
|
91 ! |
|
92 |
|
93 backgroundColor:aColor |
|
94 "ignored here" |
|
95 |
|
96 "Created: / 18.6.1998 / 16:15:28 / cg" |
|
97 ! |
|
98 |
73 container:someContainer |
99 container:someContainer |
74 "ignored here" |
100 "ignored here" |
75 |
101 |
76 "Created: 9.5.1996 / 00:48:54 / cg" |
102 "Created: 9.5.1996 / 00:48:54 / cg" |
|
103 ! |
|
104 |
|
105 defaultFont |
|
106 ^ SimpleView defaultFont |
|
107 |
|
108 "Created: / 18.6.1998 / 16:13:56 / cg" |
|
109 ! |
|
110 |
|
111 font:aFont |
|
112 "ignored here" |
|
113 |
|
114 "Created: / 18.6.1998 / 16:14:39 / cg" |
|
115 ! |
|
116 |
|
117 foregroundColor |
|
118 ^ Color black |
|
119 |
|
120 "Created: / 18.6.1998 / 16:01:07 / cg" |
|
121 ! |
|
122 |
|
123 foregroundColor:aColor |
|
124 "ignored here" |
|
125 |
|
126 "Created: / 18.6.1998 / 16:14:53 / cg" |
|
127 ! |
|
128 |
|
129 geometryLayout:aLayout |
|
130 "ignored here" |
|
131 |
|
132 "Created: / 18.6.1998 / 16:15:39 / cg" |
|
133 ! |
|
134 |
|
135 hiddenOnRealize:aBoolean |
|
136 "ignored here" |
|
137 |
|
138 "Created: / 18.6.1998 / 16:13:19 / cg" |
|
139 ! |
|
140 |
|
141 id |
|
142 "ignored here" |
|
143 |
|
144 ^ nil |
|
145 |
|
146 "Created: / 18.6.1998 / 16:13:34 / cg" |
77 ! |
147 ! |
78 |
148 |
79 setParentViewIn:aView |
149 setParentViewIn:aView |
80 "ignored here - for now" |
150 "ignored here - for now" |
81 |
151 |
82 "Created: 9.5.1996 / 00:19:39 / cg" |
152 "Created: 9.5.1996 / 00:19:39 / cg" |
|
153 ! |
|
154 |
|
155 superView |
|
156 ^ self container |
|
157 |
|
158 "Created: / 18.6.1998 / 16:16:07 / cg" |
83 ! ! |
159 ! ! |
84 |
160 |
85 !VisualComponent methodsFor:'accessing - dimensions'! |
161 !VisualComponent methodsFor:'accessing - dimensions'! |
86 |
162 |
87 bottom |
163 bottom |
98 |
174 |
99 ^ bounds |
175 ^ bounds |
100 |
176 |
101 "Created: 8.5.1996 / 23:35:19 / cg" |
177 "Created: 8.5.1996 / 23:35:19 / cg" |
102 "Modified: 9.5.1996 / 00:12:00 / cg" |
178 "Modified: 9.5.1996 / 00:12:00 / cg" |
103 ! ! |
179 ! |
104 |
|
105 !VisualComponent ignoredMethodsFor:'accessing - dimensions'! |
|
106 |
180 |
107 bounds:aRectangle |
181 bounds:aRectangle |
108 "set my bounds" |
182 "set my bounds" |
109 |
183 |
110 bounds := aRectangle |
184 bounds := aRectangle |
111 |
185 |
112 "Created: 8.5.1996 / 23:36:07 / cg" |
186 "Created: 8.5.1996 / 23:36:07 / cg" |
113 "Modified: 9.5.1996 / 00:13:12 / cg" |
187 "Modified: 9.5.1996 / 00:13:12 / cg" |
114 ! ! |
188 ! |
115 |
|
116 !VisualComponent methodsFor:'accessing - dimensions'! |
|
117 |
189 |
118 left |
190 left |
119 "return my left x coordinate" |
191 "return my left x coordinate" |
120 |
192 |
121 ^ self bounds left |
193 ^ self bounds left |