--- a/LabelAndIcon.st Thu Jul 09 18:12:26 1998 +0200
+++ b/LabelAndIcon.st Fri Jul 10 01:58:57 1998 +0200
@@ -204,10 +204,24 @@
^ self basicNew initialize
"Created: 12.5.1996 / 20:00:58 / cg"
+!
+
+string:aString
+
+ ^ self new icon:nil string:aString
+
+ "Created: / 21.6.1998 / 04:57:28 / cg"
! !
!LabelAndIcon methodsFor:'accessing'!
+beCheckMark
+ self icon:(CheckToggle checkFormOn:Screen current)
+
+ "Created: / 21.6.1998 / 05:01:01 / cg"
+ "Modified: / 21.6.1998 / 05:03:23 / cg"
+!
+
form:aForm image:anImage string:aString
icon := aForm.
@@ -414,5 +428,5 @@
!LabelAndIcon class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg2/LabelAndIcon.st,v 1.22 1998-06-21 02:48:23 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg2/LabelAndIcon.st,v 1.23 1998-07-09 23:58:57 cg Exp $'
! !