check if label is a string, before asking for emphasis
authorClaus Gittinger <cg@exept.de>
Fri, 02 Aug 1996 21:03:07 +0200
changeset 817 58c611fad735
parent 816 8ed221c75ac5
child 818 e922d238966c
check if label is a string, before asking for emphasis
Label.st
--- a/Label.st	Thu Aug 01 19:15:06 1996 +0200
+++ b/Label.st	Fri Aug 02 21:03:07 1996 +0200
@@ -959,8 +959,10 @@
         ] ifFalse:[
             "/ any change ?
             (logo = aStringOrFormOrImage) ifTrue:[
-                (logo emphasis = aStringOrFormOrImage emphasis) ifTrue:[
-                    ^ self
+                (logo isString) ifTrue:[
+                    (logo emphasis = aStringOrFormOrImage emphasis) ifTrue:[
+                        ^ self
+                    ]
                 ]
             ]
         ].
@@ -968,7 +970,7 @@
         self newLayout
     ]
 
-    "Modified: 26.7.1996 / 17:20:52 / cg"
+    "Modified: 2.8.1996 / 21:02:41 / cg"
 !
 
 labelString:aString
@@ -1613,5 +1615,5 @@
 !Label  class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Label.st,v 1.68 1996-07-26 16:08:42 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Label.st,v 1.69 1996-08-02 19:03:07 cg Exp $'
 ! !