--- a/Tools__Inspector2.st Thu Jul 07 14:07:40 2016 +0200
+++ b/Tools__Inspector2.st Thu Jul 07 14:11:03 2016 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
"
COPYRIGHT (c) 2006 by eXept Software AG
All Rights Reserved
@@ -1470,7 +1468,7 @@
] on: Error do:[:ex|
"/ for debugging:
"/ ex reject.
- Transcript show:'error in inspector setup: ', ex description.
+ Logger error:'inspector setup: %1' with:ex description.
tab := Tools::Inspector2Tab new
application:application;
label:selector;
@@ -1495,7 +1493,6 @@
"/ Old style - tabs are specified by method #inspector2Tabs
selectors := theObject inspector2Tabs asSet.
- selectors do:[:eachSelector| self initializeTab: eachSelector ].
"/ New style - tab are defined by methods with <inspector2Tab> annotation
theObject class withAllSuperclassesDo:[:eachClass|
@@ -1503,12 +1500,14 @@
(selectors includes: eachSelector) ifFalse:[
(method hasAnnotation: #inspector2Tab) ifTrue:[
selectors add: eachSelector.
- self initializeTab: eachSelector.
].
].
].
].
- tabs := tabs asSortedCollection:[:a :b| a priority > b priority].
+
+ selectors do:[:eachSelector| self initializeTab: eachSelector ].
+
+ tabs := tabs sort:[:a :b| a priority > b priority].
"Created: / 16-01-2008 / 16:54:28 / janfrog"
"Modified: / 17-02-2008 / 10:08:04 / janfrog"
@@ -1516,7 +1515,6 @@
!
refreshTabs
- tabs := nil.
self initializeTabs.
"Created: / 21-08-2011 / 08:23:11 / cg"