Label.st
changeset 806 a641ed42df70
parent 799 64f8700489a4
child 817 58c611fad735
--- a/Label.st	Thu Jul 25 19:55:25 1996 +0200
+++ b/Label.st	Fri Jul 26 18:08:42 1996 +0200
@@ -957,15 +957,18 @@
                 ]
             ]
         ] ifFalse:[
+            "/ any change ?
             (logo = aStringOrFormOrImage) ifTrue:[
-                ^ self
+                (logo emphasis = aStringOrFormOrImage emphasis) ifTrue:[
+                    ^ self
+                ]
             ]
         ].
         logo := aStringOrFormOrImage.
         self newLayout
     ]
 
-    "Modified: 26.5.1996 / 18:09:49 / cg"
+    "Modified: 26.7.1996 / 17:20:52 / cg"
 !
 
 labelString:aString
@@ -1610,5 +1613,5 @@
 !Label  class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Label.st,v 1.67 1996-07-19 18:57:13 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Label.st,v 1.68 1996-07-26 16:08:42 cg Exp $'
 ! !