--- a/LabelAndIcon.st	Wed Jul 04 10:35:29 2001 +0200
+++ b/LabelAndIcon.st	Fri Jul 13 14:55:05 2001 +0200
@@ -202,6 +202,10 @@
     "Created: 12.5.1996 / 20:00:58 / cg"
 !
 
+label:aString icon:anIcon
+    ^ self new icon:anIcon string:aString
+!
+
 new
     ^ self basicNew initialize
 
@@ -460,5 +464,5 @@
 !LabelAndIcon class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/LabelAndIcon.st,v 1.29 2001-07-02 12:41:27 martin Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/LabelAndIcon.st,v 1.30 2001-07-13 12:55:05 tm Exp $'
 ! !