equal
deleted
inserted
replaced
202 |
202 |
203 new |
203 new |
204 ^ self basicNew initialize |
204 ^ self basicNew initialize |
205 |
205 |
206 "Created: 12.5.1996 / 20:00:58 / cg" |
206 "Created: 12.5.1996 / 20:00:58 / cg" |
|
207 ! |
|
208 |
|
209 string:aString |
|
210 |
|
211 ^ self new icon:nil string:aString |
|
212 |
|
213 "Created: / 21.6.1998 / 04:57:28 / cg" |
207 ! ! |
214 ! ! |
208 |
215 |
209 !LabelAndIcon methodsFor:'accessing'! |
216 !LabelAndIcon methodsFor:'accessing'! |
|
217 |
|
218 beCheckMark |
|
219 self icon:(CheckToggle checkFormOn:Screen current) |
|
220 |
|
221 "Created: / 21.6.1998 / 05:01:01 / cg" |
|
222 "Modified: / 21.6.1998 / 05:03:23 / cg" |
|
223 ! |
210 |
224 |
211 form:aForm image:anImage string:aString |
225 form:aForm image:anImage string:aString |
212 |
226 |
213 icon := aForm. |
227 icon := aForm. |
214 image:= anImage. |
228 image:= anImage. |
412 ! ! |
426 ! ! |
413 |
427 |
414 !LabelAndIcon class methodsFor:'documentation'! |
428 !LabelAndIcon class methodsFor:'documentation'! |
415 |
429 |
416 version |
430 version |
417 ^ '$Header: /cvs/stx/stx/libwidg2/LabelAndIcon.st,v 1.22 1998-06-21 02:48:23 cg Exp $' |
431 ^ '$Header: /cvs/stx/stx/libwidg2/LabelAndIcon.st,v 1.23 1998-07-09 23:58:57 cg Exp $' |
418 ! ! |
432 ! ! |