#BUGFIX by cg
authorClaus Gittinger <cg@exept.de>
Thu, 27 Apr 2017 14:09:50 +0200
changeset 5534 4806c4eec412
parent 5533 1cfdd4a99f96
child 5535 050287c97b5b
#BUGFIX by cg class: ImageView changed: #setImage:scroll:invalidate:
ImageView.st
--- a/ImageView.st	Wed Apr 26 18:18:52 2017 +0200
+++ b/ImageView.st	Thu Apr 27 14:09:50 2017 +0200
@@ -470,7 +470,7 @@
 
     |oldSize newSize newImageIsSmaller|
 
-    self assert:(anImage isImage or:[anImage isNil]).
+    self assert:(anImage isImage or:[anImage isForm or:[anImage isNil]]).
     
     oldSize := image isNil ifTrue:[0@0] ifFalse:[image extent].