extensions.st
changeset 17267 417b4efdd40c
parent 17257 4f93c9ff29e5
child 17299 44269d07c040
--- 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