#BUGFIX by cg
authorClaus Gittinger <cg@exept.de>
Wed, 21 Mar 2018 17:43:05 +0100
changeset 6297 d664b5423622
parent 6296 7d5714c65387
child 6298 91adfda26278
#BUGFIX by cg class: Label changed: #drawImageLogo:x:y:opaque: care to clear the background of a masked image (garbage leftover when changing the image on press, for example)
Label.st
--- a/Label.st	Thu Mar 15 22:43:45 2018 +0100
+++ b/Label.st	Wed Mar 21 17:43:05 2018 +0100
@@ -1929,6 +1929,7 @@
 
 drawImageLogo:imageOrForm x:x y:y opaque:opaque
     (opaque not or:[imageOrForm mask notNil]) ifTrue:[
+        gc clearRectangleX:x y:y width:imageOrForm width height:imageOrForm height.
         gc displayForm:imageOrForm x:x y:y 
     ] ifFalse:[
         gc displayOpaqueForm:imageOrForm x:x y:y