--- a/MenuEditor.st Mon May 04 16:42:14 2015 +0200
+++ b/MenuEditor.st Fri May 08 14:56:14 2015 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
"
COPYRIGHT (c) 1997 by eXept Software AG
All Rights Reserved
@@ -4389,11 +4391,13 @@
(cls respondsTo:#visualFor:) ifTrue:[
image := cls visualFor:sel.
image ~~ (cls perform:sel ifNotUnderstood:nil) ifTrue:[
- self warn:'The image is resolved via #visualFor: from some unknown class'.
- sel := #visualFor:.
+ self warn:'The image as returned by #visualFor: is probably provided by another class.\\Showing all implementors of #',sel.
+ "/ sel := #visualFor:.
+ UserPreferences systemBrowserClass browseImplementorsOf:sel.
+ ^ self.
].
].
- UserPreferences systemBrowserClass openInClass:cls class selector:sel
+ UserPreferences systemBrowserClass openInClass:(cls class) selector:sel
]
]