equal
deleted
inserted
replaced
209 "Created: 12.5.1996 / 20:00:52 / cg" |
209 "Created: 12.5.1996 / 20:00:52 / cg" |
210 ! |
210 ! |
211 |
211 |
212 string |
212 string |
213 ^ string |
213 ^ string |
|
214 ! ! |
|
215 |
|
216 !LabelAndIcon methodsFor:'conversion'! |
|
217 |
|
218 asString |
|
219 ^ string |
|
220 |
|
221 "Created: 12.5.1996 / 21:26:47 / cg" |
214 ! ! |
222 ! ! |
215 |
223 |
216 !LabelAndIcon methodsFor:'displaying'! |
224 !LabelAndIcon methodsFor:'displaying'! |
217 |
225 |
218 displayOn:aGC x:x y:y opaque:opaque |
226 displayOn:aGC x:x y:y opaque:opaque |
243 gap := 4 |
251 gap := 4 |
244 ! ! |
252 ! ! |
245 |
253 |
246 !LabelAndIcon methodsFor:'queries'! |
254 !LabelAndIcon methodsFor:'queries'! |
247 |
255 |
248 asString |
|
249 ^ string |
|
250 |
|
251 "Created: 12.5.1996 / 21:26:47 / cg" |
|
252 ! |
|
253 |
|
254 heightOn:aGC |
256 heightOn:aGC |
255 "return the height of the receiver, if it is to be displayed on aGC" |
257 "return the height of the receiver, if it is to be displayed on aGC" |
256 |
258 |
257 ^ icon height + (aGC device pixelPerMillimeter x rounded) |
259 ^ icon height + (aGC device pixelPerMillimeter x rounded) |
258 max:(string heightOn:aGC) |
260 max:(string heightOn:aGC) |
271 ! ! |
273 ! ! |
272 |
274 |
273 !LabelAndIcon class methodsFor:'documentation'! |
275 !LabelAndIcon class methodsFor:'documentation'! |
274 |
276 |
275 version |
277 version |
276 ^ '$Header: /cvs/stx/stx/libwidg2/LabelAndIcon.st,v 1.3 1996-05-12 19:27:13 cg Exp $' |
278 ^ '$Header: /cvs/stx/stx/libwidg2/LabelAndIcon.st,v 1.4 1996-05-12 19:29:03 cg Exp $' |
277 ! ! |
279 ! ! |