author | Claus Gittinger <cg@exept.de> |
Thu, 27 Apr 2017 14:09:50 +0200 | |
changeset 5534 | 4806c4eec412 |
parent 5533 | 1cfdd4a99f96 |
child 5535 | 050287c97b5b |
ImageView.st | file | annotate | diff | comparison | revisions |
--- 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].