author | Claus Gittinger <cg@exept.de> |
Wed, 26 Feb 2014 12:27:25 +0100 | |
changeset 3087 | bbbb798caa45 |
parent 3086 | e5c34fbda3f4 |
child 3088 | 5a5e9b9b5138 |
MenuEditor.st | file | annotate | diff | comparison | revisions |
--- a/MenuEditor.st Tue Feb 25 14:37:21 2014 +0100 +++ b/MenuEditor.st Wed Feb 26 12:27:25 2014 +0100 @@ -4209,7 +4209,7 @@ ] ifFalse:[ (cls respondsTo:#visualFor:) ifTrue:[ image := cls visualFor:sel. - image ~~ (cls perform:sel) ifTrue:[ + image ~~ (cls perform:sel ifNotUnderstood:nil) ifTrue:[ self warn:'The image is resolved via #visualFor: from some unknown class'. sel := #visualFor:. ].