--- a/LabelAndIcon.st	Sat Aug 19 20:28:07 2000 +0200
+++ b/LabelAndIcon.st	Mon Aug 21 13:20:55 2000 +0200
@@ -11,6 +11,8 @@
 "
 
 
+"{ Package: 'stx:libwidg2' }"
+
 ListEntry subclass:#LabelAndIcon
 	instanceVariableNames:'icon gap string image offset'
 	classVariableNames:''
@@ -296,6 +298,18 @@
     "Created: 12.5.1996 / 20:00:52 / cg"
 ! !
 
+!LabelAndIcon methodsFor:'comparing'!
+
+sameStringAndEmphasisAs:someStringOrLabelAndIcon
+    (string sameStringAndEmphasisAs:someStringOrLabelAndIcon) ifFalse:[ ^ false].
+    (icon isNil and:[image isNil]) ifTrue:[^ true].
+    someStringOrLabelAndIcon isString ifTrue:[^ false].
+    someStringOrLabelAndIcon species == self species ifFalse:[^ false].
+    icon = someStringOrLabelAndIcon icon ifFalse:[^ false].
+    image = someStringOrLabelAndIcon image ifFalse:[^ false].
+    ^ true
+! !
+
 !LabelAndIcon methodsFor:'conversion'!
 
 asString
@@ -432,5 +446,5 @@
 !LabelAndIcon class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/LabelAndIcon.st,v 1.25 1999-10-26 17:51:26 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/LabelAndIcon.st,v 1.26 2000-08-21 11:20:55 cg Exp $'
 ! !