class: Tools::ViewTreeInspectorApplication
comment/format in: #inspectorModeIndexHolder
changed:6 methods
--- a/Tools__ViewTreeApplication.st Fri Aug 23 12:28:19 2013 +0200
+++ b/Tools__ViewTreeApplication.st Thu Aug 29 00:52:54 2013 +0200
@@ -329,12 +329,6 @@
component:
(SpecCollection
collection: (
- (ViewSpec
- name: 'Inspector'
- layout: (LayoutFrame 0 0 26 0 0 1 0 1)
- postBuildCallback: postBuildInspectorView:
- viewClassName: 'InspectorView'
- )
(TabViewSpec
name: 'TabHeader1'
layout: (LayoutFrame 0 0.0 0 0 0 1.0 25 0)
@@ -343,6 +337,12 @@
useIndex: true
translateLabel: true
)
+ (ViewSpec
+ name: 'Inspector'
+ layout: (LayoutFrame 0 0 26 0 0 1 0 1)
+ viewClassName: 'InspectorView'
+ postBuildCallback: postBuildInspectorView:
+ )
)
)
@@ -854,21 +854,32 @@
!
inspectorMode
- "what is shwn in the inspector:
+ "what is shown in the inspector:
1->widget
- 2->application"
-
- ^ (inspectorModeIndexHolder value == 1)
- ifTrue:[#widget]
- ifFalse:[#application]
+ 2->application
+ 3->WindowGroup
+ 4->Sensor
+ 5->Model
+ "
+
+ (inspectorModeIndexHolder value == 1) ifTrue:[ ^#widget].
+ (inspectorModeIndexHolder value == 2) ifTrue:[ ^#application].
+ (inspectorModeIndexHolder value == 3) ifTrue:[ ^#group].
+ (inspectorModeIndexHolder value == 4) ifTrue:[ ^#sensor].
+ (inspectorModeIndexHolder value == 5) ifTrue:[ ^#model].
+ ^ #application
"Created: / 30-07-2013 / 07:44:59 / cg"
!
inspectorModeIndexHolder
- "what is shwn in the inspector:
- 1->widget
- 2->application"
+ "what is shown in the inspector:
+ 1->Widget
+ 2->Application
+ 3->WindowGroup
+ 4->Sensor
+ 5->Model
+ "
^ inspectorModeIndexHolder
@@ -876,7 +887,7 @@
!
inspectorModes
- ^ #('Widget' 'Application')
+ ^ #('Widget' 'Application' 'WindowGroup' 'Sensor' 'Model')
"Created: / 30-07-2013 / 09:42:16 / cg"
!
@@ -978,9 +989,15 @@
view := self selectedView.
(view isNil or:[self inspectorMode == #widget]) ifTrue:[
obj := view.
+ ] ifFalse:[ (self inspectorMode == #group) ifTrue:[
+ obj := view windowGroup
+ ] ifFalse:[ (self inspectorMode == #sensor) ifTrue:[
+ obj := view sensor
+ ] ifFalse:[ (self inspectorMode == #model) ifTrue:[
+ obj := view model
] ifFalse:[
obj := view application.
- ].
+ ]]]].
inspectorView inspect:obj.
inspectorView headLineLabel:(obj class nameWithoutPrefix)
@@ -1792,13 +1809,17 @@
ifFalse:[what == #model ifTrue:[ inst := view model ]
ifFalse:[what == #application ifTrue:[ inst := view application ]
ifFalse:[what == #controller ifTrue:[ inst := view controller ]
+ ifFalse:[what == #sensor ifTrue:[ inst := view sensor ]
+ ifFalse:[what == #group ifTrue:[ inst := view windowGroup ]
ifFalse:[
^ self
- ]]]].
+ ]]]]]].
inst notNil ifTrue:[
inst class browserClass openInClass:(inst class) selector:nil
].
+
+ "Modified: / 28-08-2013 / 23:57:42 / cg"
!
doDestroy
@@ -1870,9 +1891,12 @@
ifFalse:[what == #model ifTrue:[ inst := inst model ]
ifFalse:[what == #application ifTrue:[ inst := inst application ]
ifFalse:[what == #controller ifTrue:[ inst := inst controller ]
- ifFalse:[what == #process ifTrue:[ inst := inst windowGroup process ]]]]].
+ ifFalse:[what == #process ifTrue:[ inst := inst windowGroup process ]
+ ifFalse:[what == #sensor ifTrue:[ inst := inst sensor ]]]]]].
inst notNil ifTrue:[ inst inspect ].
+
+ "Modified: / 28-08-2013 / 23:58:27 / cg"
!
doOpenProcessMonitor