Label.st
changeset 24 966098a893f8
parent 7 15a9291b9bd0
child 25 975bead4571a
--- 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.