--- a/Label.st Sat Jan 08 18:31:31 1994 +0100
+++ b/Label.st Thu Jan 13 01:18:51 1994 +0100
@@ -26,7 +26,7 @@
COPYRIGHT (c) 1989 by Claus Gittinger
All Rights Reserved
-$Header: /cvs/stx/stx/libwidg/Label.st,v 1.4 1993-12-11 01:45:54 claus Exp $
+$Header: /cvs/stx/stx/libwidg/Label.st,v 1.5 1994-01-13 00:16:48 claus Exp $
written spring/summer 89 by claus
'!
@@ -386,11 +386,11 @@
logo notNil ifTrue:[
self paint:fg on:bg.
(logo isKindOf:Image) ifTrue:[
- logo := logo on:device
- ].
+ logo := logo on:device
+ ].
((logo isKindOf:Form) or:[logo isKindOf:Image]) ifTrue:[
self background:bg.
- self drawOpaqueForm:logo x:labelOriginX y:labelOriginY
+ self displayOpaqueForm:logo x:labelOriginX y:labelOriginY
] ifFalse:[
x := labelOriginX + hSpace.
y := labelOriginY + (font ascent) + vSpace.