#REFACTORING by stefan
authorStefan Vogel <sv@exept.de>
Thu, 07 Jul 2016 14:11:03 +0200
changeset 16725 1c11c89be586
parent 16724 9ff9bed9f98e
child 16726 d2f028e5a546
#REFACTORING by stefan class: Tools::Inspector2::NavigationState
Tools__Inspector2.st
--- 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"