author | Claus Gittinger <cg@exept.de> |
Fri, 14 Feb 2014 01:24:06 +0100 | |
changeset 3080 | 918f79c8b30d |
parent 3079 | 25a38a666be1 |
child 3081 | feb178704671 |
ImageEditor.st | file | annotate | diff | comparison | revisions |
--- a/ImageEditor.st Thu Feb 06 12:40:37 2014 +0100 +++ b/ImageEditor.st Fri Feb 14 01:24:06 2014 +0100 @@ -3503,7 +3503,9 @@ ! imageHasImageSequence - ^ self image notNil and:[self image imageSequence notNil] + |img| + + ^ (img := self image) notNil and:[img imageSequence notNil] "Created: / 21-10-2010 / 14:35:45 / cg" !