--- a/extensions.st Wed Jan 25 16:49:19 2017 +0100
+++ b/extensions.st Wed Jan 25 16:49:50 2017 +0100
@@ -1336,9 +1336,17 @@
].
ownerSelector := ownerSelector , s upToEnd.
ownerSelector knownAsSymbol ifFalse:[^ nil].
+ ownerSelector := ownerSelector asSymbol.
+ (ownerClass implements:ownerSelector) ifFalse:[
+ ownerClass := ownerClass isMeta ifTrue:[ ownerClass theNonMetaclass] ifFalse:[ ownerClass theMetaclass ].
+ (ownerClass implements:ownerSelector) ifFalse:[
+ ^ nil
+ ].
+ ].
+
^ Tools::Inspector2Tab
- toBrowseClass:ownerClass selector:ownerSelector asSymbol label:'Creator Class'
+ toBrowseClass:ownerClass selector:ownerSelector label:'Image Creator'
"
ToolbarIconLibrary systemBrowserIcon inspect