# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1256043644 -7200
# Node ID 715591d6adffbbca6c9f617f065bcf1917f20777
# Parent  14184c505e24aeb4a09fa6a19c5030b29e86cfdc
added: #string:image:
changed: #documentation

diff -r 14184c505e24 -r 715591d6adff LabelAndIcon.st
--- a/LabelAndIcon.st	Mon Oct 19 22:55:32 2009 +0200
+++ b/LabelAndIcon.st	Tue Oct 20 15:00:44 2009 +0200
@@ -37,7 +37,10 @@
 
 documentation
 "
-    an icon and a string, side by side.
+    an icon, a string and an image side by side (from left to right).
+    Each may be nil (i.e. with nil image, it's a Label-and-Icon proper (icon to the left of the string);
+    with nil icon, it's a string with an image to the right.
+
     Usable as list entries in a listView (a fileList), as
     popUpMenuItems or as Label/Button image.
 
@@ -231,6 +234,12 @@
     ^ self new icon:nil string:aString
 
     "Created: / 21.6.1998 / 04:57:28 / cg"
+!
+
+string:aString image:image
+    "return an instance consisting of a label-string and an image (on the right)"
+
+    ^ self new form:nil image:image string:aString
 ! !
 
 !LabelAndIcon methodsFor:'accessing'!
@@ -503,5 +512,9 @@
 !LabelAndIcon class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/LabelAndIcon.st,v 1.39 2008-06-28 11:46:01 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/LabelAndIcon.st,v 1.40 2009-10-20 13:00:44 cg Exp $'
+!
+
+version_CVS
+    ^ '$Header: /cvs/stx/stx/libwidg2/LabelAndIcon.st,v 1.40 2009-10-20 13:00:44 cg Exp $'
 ! !