#FEATURE by cg draft
authorClaus Gittinger <cg@exept.de>
Tue, 17 Jul 2018 09:26:56 +0200
changeset 3573 fc569c283368
parent 3572 656e8b807454
child 3574 ea4dce86360d
#FEATURE by cg class: Tools::ViewTreeInspectorApplication comment/format in: #inspectorModeIndexHolder changed: #inspectorMode #inspectorModes #updateInspector
Tools__ViewTreeApplication.st
--- a/Tools__ViewTreeApplication.st	Mon Jul 09 03:31:19 2018 +0000
+++ b/Tools__ViewTreeApplication.st	Tue Jul 17 09:26:56 2018 +0200
@@ -995,9 +995,10 @@
 
     |mode|
     mode := inspectorModeIndexHolder value.
-    ^ #( widget application group sensor model widgetClass applicationClass) at:mode ifAbsent:#widget
+    ^ #( widget application group sensor model widgetClass applicationClass resources) at:mode ifAbsent:#widget
 
     "Created: / 30-07-2013 / 07:44:59 / cg"
+    "Modified: / 17-07-2018 / 08:49:20 / Claus Gittinger"
 !
 
 inspectorModeIndexHolder
@@ -1009,18 +1010,21 @@
      5->Model
      6->Widget Class
      7->Application Class
+     8->Resources
     "
 
     ^ inspectorModeIndexHolder
 
     "Created: / 30-07-2013 / 07:44:07 / cg"
+    "Modified (comment): / 17-07-2018 / 08:46:12 / Claus Gittinger"
 !
 
 inspectorModes
     "/ labels of tabs
-    ^ #('Widget' 'Application' 'WindowGroup' 'Sensor' 'Model' 'Widget Class' 'App Class')
+    ^ #('Widget' 'Application' 'WindowGroup' 'Sensor' 'Model' 'Widget Class' 'App Class' 'Resources')
 
     "Created: / 30-07-2013 / 09:42:16 / cg"
+    "Modified: / 17-07-2018 / 08:45:56 / Claus Gittinger"
 !
 
 inspectorVisibleHolder
@@ -1224,28 +1228,31 @@
     mode := self inspectorMode.
 
     ((mode == #widgetClass) or:[(mode == #applicationClass)]) ifTrue:[
-	"/ update the browser
-	view notNil ifTrue:[
-	    self updateBrowser.
-	].
-	^ self.
+        "/ update the browser
+        view notNil ifTrue:[
+            self updateBrowser.
+        ].
+        ^ self.
     ].
 
     (view isNil or:[mode == #widget]) ifTrue:[
-	obj := view.
+        obj := view.
     ] ifFalse:[ (mode == #group) ifTrue:[
-	obj := view windowGroup
+        obj := view windowGroup
     ] ifFalse:[ (mode == #sensor) ifTrue:[
-	obj := view sensor
+        obj := view sensor
     ] ifFalse:[ (mode == #model) ifTrue:[
-	obj := view model
+        obj := view model
+    ] ifFalse:[ (mode == #resources) ifTrue:[
+        obj := view resources
     ] ifFalse:[
-	obj := view application.
-    ]]]].
+        obj := view application.
+    ]]]]].
     inspectorView inspect:obj.
     inspectorView headLineLabel:(obj class nameWithoutPrefix)
 
     "Created: / 30-07-2013 / 09:21:16 / cg"
+    "Modified: / 17-07-2018 / 08:46:40 / Claus Gittinger"
 ! !
 
 !ViewTreeInspectorApplication methodsFor:'event processing'!