ImageView.st
changeset 5400 db097f6162be
parent 5399 0dab5e63d3d9
child 5402 ac1a78db1d84
--- a/ImageView.st	Mon Jan 16 17:18:55 2017 +0100
+++ b/ImageView.st	Mon Jan 16 17:22:06 2017 +0100
@@ -687,8 +687,11 @@
     oldMagnifiedImage := magnifiedImage.
     magnifiedImage := nil.
     self generateMagnifiedImage.
-    oldMagnifiedImage extent = magnifiedImage extent ifFalse:[
-        self clear.
+    (oldMagnifiedImage isNil
+      or:[ magnifiedImage isNil
+      or:[ oldMagnifiedImage extent ~= magnifiedImage extent ]]
+    ) ifTrue:[
+        "/ self clear.
         self invalidate.
     ].
 ! !