--- 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 $'
! !