extensions.st
changeset 15183 0ae565404b9a
parent 15177 28ce238b8a47
child 15185 a6fe90f74c11
--- a/extensions.st	Wed Feb 04 13:35:07 2015 +0100
+++ b/extensions.st	Wed Feb 04 16:02:45 2015 +0100
@@ -1401,13 +1401,25 @@
 !Object methodsFor:'inspecting'!
 
 inspector2Tabs
-    self inspectorClass ~~ Inspector ifTrue:[
-        ^ #( inspector2TabCommon inspector2TabForBasicInspect )
+    | tabs |
+
+    tabs := self inspectorClass ~~ Inspector 
+                ifTrue:[#( inspector2TabCommon inspector2TabForBasicInspect )]
+                ifFalse:[#( inspector2TabCommon )].
+
+    "/ Workaround for stc bug
+    ((self >> #inspector2TabClass) annotationAt: #inspector2Tab) isNil ifTrue:[ 
+        tabs := tabs copyWith:#inspector2TabClass
     ].
-
-    ^ #( inspector2TabCommon )
+    ^ tabs
+
+    "
+    1 inspect
+    self inspect
+    "
 
     "Created: / 05-07-2011 / 13:39:24 / cg"
+    "Modified: / 04-02-2015 / 12:37:52 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !Object methodsFor:'debugging'!
@@ -2421,7 +2433,7 @@
 !stx_libtool class methodsFor:'documentation'!
 
 extensionsVersion_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/extensions.st,v 1.137 2015-02-03 11:18:00 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/extensions.st,v 1.138 2015-02-04 15:02:45 vrany Exp $'
 ! !
 
 !stx_libtool class methodsFor:'documentation'!