--- 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'!