--- 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'!