equal
deleted
inserted
replaced
8 be provided or otherwise made available to, or used by, any |
8 be provided or otherwise made available to, or used by, any |
9 other person. No title to or ownership of the software is |
9 other person. No title to or ownership of the software is |
10 hereby transferred. |
10 hereby transferred. |
11 " |
11 " |
12 |
12 |
|
13 |
|
14 "{ Package: 'stx:libwidg2' }" |
13 |
15 |
14 ListEntry subclass:#LabelAndIcon |
16 ListEntry subclass:#LabelAndIcon |
15 instanceVariableNames:'icon gap string image offset' |
17 instanceVariableNames:'icon gap string image offset' |
16 classVariableNames:'' |
18 classVariableNames:'' |
17 poolDictionaries:'' |
19 poolDictionaries:'' |
294 string := aString |
296 string := aString |
295 |
297 |
296 "Created: 12.5.1996 / 20:00:52 / cg" |
298 "Created: 12.5.1996 / 20:00:52 / cg" |
297 ! ! |
299 ! ! |
298 |
300 |
|
301 !LabelAndIcon methodsFor:'comparing'! |
|
302 |
|
303 sameStringAndEmphasisAs:someStringOrLabelAndIcon |
|
304 (string sameStringAndEmphasisAs:someStringOrLabelAndIcon) ifFalse:[ ^ false]. |
|
305 (icon isNil and:[image isNil]) ifTrue:[^ true]. |
|
306 someStringOrLabelAndIcon isString ifTrue:[^ false]. |
|
307 someStringOrLabelAndIcon species == self species ifFalse:[^ false]. |
|
308 icon = someStringOrLabelAndIcon icon ifFalse:[^ false]. |
|
309 image = someStringOrLabelAndIcon image ifFalse:[^ false]. |
|
310 ^ true |
|
311 ! ! |
|
312 |
299 !LabelAndIcon methodsFor:'conversion'! |
313 !LabelAndIcon methodsFor:'conversion'! |
300 |
314 |
301 asString |
315 asString |
302 "return my string part" |
316 "return my string part" |
303 |
317 |
430 ! ! |
444 ! ! |
431 |
445 |
432 !LabelAndIcon class methodsFor:'documentation'! |
446 !LabelAndIcon class methodsFor:'documentation'! |
433 |
447 |
434 version |
448 version |
435 ^ '$Header: /cvs/stx/stx/libwidg2/LabelAndIcon.st,v 1.25 1999-10-26 17:51:26 cg Exp $' |
449 ^ '$Header: /cvs/stx/stx/libwidg2/LabelAndIcon.st,v 1.26 2000-08-21 11:20:55 cg Exp $' |
436 ! ! |
450 ! ! |