equal
deleted
inserted
replaced
11 " |
11 " |
12 |
12 |
13 |
13 |
14 "{ Package: 'stx:libwidg2' }" |
14 "{ Package: 'stx:libwidg2' }" |
15 |
15 |
16 ListEntry subclass:#LabelAndIcon |
16 ModelListEntry subclass:#LabelAndIcon |
17 instanceVariableNames:'icon gap string image offset' |
17 instanceVariableNames:'icon gap image offset' |
18 classVariableNames:'' |
18 classVariableNames:'' |
19 poolDictionaries:'' |
19 poolDictionaries:'' |
20 category:'Views-Support' |
20 category:'Views-Support' |
21 ! |
21 ! |
22 |
22 |
292 The default is 0." |
292 The default is 0." |
293 |
293 |
294 offset := pixels. |
294 offset := pixels. |
295 |
295 |
296 "Created: / 21.6.1998 / 03:11:03 / cg" |
296 "Created: / 21.6.1998 / 03:11:03 / cg" |
297 ! |
|
298 |
|
299 string |
|
300 "return my string part" |
|
301 |
|
302 ^ string |
|
303 ! |
|
304 |
|
305 string:aString |
|
306 "set the labelString" |
|
307 |
|
308 string := aString |
|
309 |
|
310 "Created: 12.5.1996 / 20:00:52 / cg" |
|
311 ! ! |
297 ! ! |
312 |
298 |
313 !LabelAndIcon methodsFor:'comparing'! |
299 !LabelAndIcon methodsFor:'comparing'! |
314 |
300 |
315 sameStringAndEmphasisAs:someStringOrLabelAndIcon |
301 sameStringAndEmphasisAs:someStringOrLabelAndIcon |
323 (string sameStringAndEmphasisAs:someStringOrLabelAndIcon) ifFalse:[ ^ false]. |
309 (string sameStringAndEmphasisAs:someStringOrLabelAndIcon) ifFalse:[ ^ false]. |
324 (icon isNil and:[image isNil]) ifTrue:[^ true]. |
310 (icon isNil and:[image isNil]) ifTrue:[^ true]. |
325 ^ false |
311 ^ false |
326 ! ! |
312 ! ! |
327 |
313 |
328 !LabelAndIcon methodsFor:'conversion'! |
|
329 |
|
330 asString |
|
331 "return my string part" |
|
332 |
|
333 ^ string |
|
334 |
|
335 "Created: 12.5.1996 / 21:26:47 / cg" |
|
336 ! ! |
|
337 |
|
338 !LabelAndIcon methodsFor:'displaying'! |
314 !LabelAndIcon methodsFor:'displaying'! |
339 |
315 |
340 displayOn:aGC x:x y:y opaque:opaque |
316 displayOn:aGC x:x y:y opaque:opaque |
341 "display the receiver on a GC" |
317 "display the receiver on a GC" |
342 |
318 |
462 ! ! |
438 ! ! |
463 |
439 |
464 !LabelAndIcon class methodsFor:'documentation'! |
440 !LabelAndIcon class methodsFor:'documentation'! |
465 |
441 |
466 version |
442 version |
467 ^ '$Header: /cvs/stx/stx/libwidg2/LabelAndIcon.st,v 1.30 2001-07-13 12:55:05 tm Exp $' |
443 ^ '$Header: /cvs/stx/stx/libwidg2/LabelAndIcon.st,v 1.31 2002-09-18 19:33:10 stefan Exp $' |
468 ! ! |
444 ! ! |