# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 900028737 -7200
# Node ID ed6b89c43416de57cf4a23e07dff42aea99e73ea
# Parent  275897f12b52075f24785b59c74c356f0be86b05
added #beCheckMark for ST80 compatibility

diff -r 275897f12b52 -r ed6b89c43416 LabelAndIcon.st
--- 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 $'
 ! !