--- a/ImageView.st Fri Oct 07 10:15:51 2016 +0200
+++ b/ImageView.st Tue Oct 11 15:50:24 2016 +0200
@@ -393,9 +393,9 @@
].
(shown and:[doInvalidate]) ifTrue:[
-"/ newImageIsSmaller ifTrue:[
-"/ self clear.
-"/ ].
+ "/ (anImage isNil "or:[newImageIsSmaller]") ifTrue:[
+ "/ self clear.
+ "/ ].
self invalidate
].
self changed:#image.
@@ -572,7 +572,9 @@
width:w height:(bott - imgHeight - yI)
].
].
- ]
+ ] ifFalse:[
+ self clearRectangleX:x y:y width:w height:h.
+ ].
"Created: / 11.7.1996 / 21:02:12 / cg"
"Modified: / 12.8.1998 / 14:02:28 / cg"