--- a/HierarchicalItemWithLabelAndIcon.st	Sun Jan 24 22:10:14 2016 +0100
+++ b/HierarchicalItemWithLabelAndIcon.st	Sun Jan 24 22:10:18 2016 +0100
@@ -36,6 +36,12 @@
 "
 ! !
 
+!HierarchicalItemWithLabelAndIcon class methodsFor:'instance creation'!
+
+label:aLabel icon:anIcon
+    ^ self new label:aLabel icon:anIcon
+! !
+
 !HierarchicalItemWithLabelAndIcon methodsFor:'accessing'!
 
 icon
@@ -77,6 +83,6 @@
 !HierarchicalItemWithLabelAndIcon class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalItemWithLabelAndIcon.st,v 1.2 2015-01-13 10:31:50 cg Exp $'
+    ^ '$Header$'
 ! !