Oops, fixed stupid bug in Object>>inspector2Tabs workaround.
authorJan Vrany <jan.vrany@fit.cvut.cz>
Wed, 04 Feb 2015 16:27:02 +0100
changeset 15185 a6fe90f74c11
parent 15184 f20011c9afc6
child 15186 222979799257
Oops, fixed stupid bug in Object>>inspector2Tabs workaround.
extensions.st
--- a/extensions.st	Wed Feb 04 16:25:50 2015 +0100
+++ b/extensions.st	Wed Feb 04 16:27:02 2015 +0100
@@ -1408,7 +1408,7 @@
                 ifFalse:[#( inspector2TabCommon )].
 
     "/ Workaround for stc bug
-    ((self >> #inspector2TabClass) annotationAt: #inspector2Tab) isNil ifTrue:[ 
+    ((self class lookupMethodFor: #inspector2TabClass) annotationAt: #inspector2Tab) isNil ifTrue:[ 
         tabs := tabs copyWith:#inspector2TabClass
     ].
     ^ tabs
@@ -1419,7 +1419,7 @@
     "
 
     "Created: / 05-07-2011 / 13:39:24 / cg"
-    "Modified: / 04-02-2015 / 12:37:52 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 04-02-2015 / 15:12:04 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !Object methodsFor:'debugging'!
@@ -2433,7 +2433,7 @@
 !stx_libtool class methodsFor:'documentation'!
 
 extensionsVersion_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/extensions.st,v 1.138 2015-02-04 15:02:45 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/extensions.st,v 1.139 2015-02-04 15:27:02 vrany Exp $'
 ! !
 
 !stx_libtool class methodsFor:'documentation'!