Label.st
changeset 1089 abb0c3d4b5f4
parent 1039 28ff56306e31
child 1162 23bb55154778
--- a/Label.st	Sat Mar 01 14:14:02 1997 +0100
+++ b/Label.st	Sun Mar 02 00:17:38 1997 +0100
@@ -1537,7 +1537,11 @@
 
             logo := logo on:device.
 "/            self background:bg.
-            self displayOpaqueForm:logo x:x y:y 
+            logo mask notNil ifTrue:[
+                self displayForm:logo x:x y:y 
+            ] ifFalse:[
+                self displayOpaqueForm:logo x:x y:y 
+            ]
         ] ifFalse:[
             x := x + hSpace.
             y := y + vSpace.
@@ -1597,7 +1601,7 @@
 
     ]
 
-    "Modified: 13.5.1996 / 11:16:37 / cg"
+    "Modified: 2.3.1997 / 00:16:49 / cg"
 !
 
 redraw
@@ -1640,5 +1644,5 @@
 !Label class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Label.st,v 1.74 1997-02-24 20:10:55 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Label.st,v 1.75 1997-03-01 23:17:38 cg Exp $'
 ! !