--- a/Tools__Inspector2.st Wed Jul 06 15:14:33 2011 +0200
+++ b/Tools__Inspector2.st Wed Jul 06 15:54:33 2011 +0200
@@ -368,7 +368,7 @@
!Inspector2::NavigationState class methodsFor:'documentation'!
version
- ^'$Id: Tools__Inspector2.st,v 1.5 2011-07-01 13:29:35 cg Exp $'
+ ^'$Id: Tools__Inspector2.st,v 1.6 2011-07-06 13:54:33 cg Exp $'
!
version_SVN
@@ -495,11 +495,8 @@
initializeExtraTabs
- theObject class allSelectors
- select:
- [:selector|selector startsWith:#inspector2Tab]
- thenDo:
- [:selector|
+ "/ cg: I prefer using explicit getter - so I find them in the browser
+ theObject inspector2Tabs do: [:selector|
| tab |
tab := [ theObject perform: selector ]
on: Error do:
@@ -515,6 +512,7 @@
"Created: / 16-01-2008 / 17:25:24 / janfrog"
"Modified: / 17-02-2008 / 10:30:43 / janfrog"
"Modified: / 07-11-2008 / 08:40:35 / Jan Vrany <vranyj1@fel.cvut.cz>"
+ "Modified (comment): / 05-07-2011 / 13:43:23 / cg"
!
initializeTabs
@@ -531,7 +529,7 @@
!Inspector2 class methodsFor:'documentation'!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/Tools__Inspector2.st,v 1.5 2011-07-01 13:29:35 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools__Inspector2.st,v 1.6 2011-07-06 13:54:33 cg Exp $'
!
version_CVS_jvrany