--- a/Tools__ViewTreeApplication.st Thu Jul 25 12:00:17 2013 +0200
+++ b/Tools__ViewTreeApplication.st Thu Jul 25 12:35:01 2013 +0200
@@ -432,6 +432,37 @@
submenuChannel: middleButtonMenu
)
(MenuItem
+ label: 'Widget'
+ submenu:
+ (Menu
+ (
+ (MenuItem
+ enabled: hasSingleSelectionHolder
+ label: 'Browse'
+ itemValue: doBrowse:
+ argument: view
+ )
+ (MenuItem
+ enabled: hasSingleSelectionHolder
+ label: 'Inspect'
+ itemValue: doInspect:
+ argument: view
+ )
+ (MenuItem
+ label: '-'
+ )
+ (MenuItem
+ enabled: hasTargetWidgetChannel
+ label: 'All Components'
+ startGroup: right
+ submenuChannel: submenuComponents:
+ )
+ )
+ nil
+ nil
+ )
+ )
+ (MenuItem
label: 'Application'
submenu:
(Menu
@@ -469,30 +500,22 @@
)
)
(MenuItem
- label: 'Widget'
+ label: 'Process'
submenu:
(Menu
(
(MenuItem
enabled: hasSingleSelectionHolder
- label: 'Browse'
- itemValue: doBrowse:
- argument: view
- )
- (MenuItem
- enabled: hasSingleSelectionHolder
label: 'Inspect'
itemValue: doInspect:
- argument: view
+ argument: process
)
(MenuItem
label: '-'
)
(MenuItem
- enabled: hasTargetWidgetChannel
- label: 'All Components'
- startGroup: right
- submenuChannel: submenuComponents:
+ label: 'Open Process Monitor'
+ itemValue: doOpenProcessMonitor
)
)
nil
@@ -1578,31 +1601,35 @@
process isNil ifTrue:[
theProcess := process :=
- Process for:[ |update testModeChannel|
-
- update := false.
- testModeChannel := model testModeChannel.
-
- [process == theProcess] whileTrue:[
- Delay waitForSeconds:0.5.
-
- (treeView notNil and:[process == theProcess and:[treeView shown]]) ifTrue:[
- (testModeChannel value == true and:[followFocusChannel value == true]) ifTrue:[
- self selectFocusView.
- ].
- update ifTrue:[
- self updateShownStatus.
- ].
- update := update not.
- ].
+ Process
+ for:[
+ |update testModeChannel|
+
+ update := false.
+ testModeChannel := model testModeChannel.
+
+ [process == theProcess] whileTrue:[
+ Delay waitForSeconds:0.5.
+
+ (treeView notNil and:[process == theProcess and:[treeView shown]]) ifTrue:[
+ (testModeChannel value == true and:[followFocusChannel value == true]) ifTrue:[
+ self selectFocusView.
].
-
- ] priority:8.
- theProcess name:'ViewTreeInspector - Follow Focus'.
+ update ifTrue:[
+ self updateShownStatus.
+ ].
+ update := update not.
+ ].
+ ].
+ ]
+ priority:(Processor userSchedulingPriority).
+ theProcess name:'ViewTreeInspector - Focus Follower'.
theProcess resume.
].
].
model rootItem:aRootItemOrNil.
+
+ "Modified: / 25-07-2013 / 12:03:44 / cg"
!
updateShownStatus
@@ -1755,6 +1782,7 @@
#model inspect model
#application inspect application
#controller inspect controller
+ #process inspect application's process
"
|inst|
@@ -1764,11 +1792,18 @@
what == #group ifTrue:[ inst := inst windowGroup ]
ifFalse:[what == #model ifTrue:[ inst := inst model ]
ifFalse:[what == #application ifTrue:[ inst := inst application ]
- ifFalse:[what == #controller ifTrue:[ inst := inst controller ]]]].
+ ifFalse:[what == #controller ifTrue:[ inst := inst controller ]
+ ifFalse:[what == #process ifTrue:[ inst := inst windowGroup process ]]]]].
inst notNil ifTrue:[ inst inspect ].
!
+doOpenProcessMonitor
+ (ProcessMonitorV2 ? ProcessMonitor) open
+
+ "Created: / 25-07-2013 / 12:34:23 / cg"
+!
+
doPickView
"pick a window's topView"