class: Tools::ViewTreeInspectorApplication
comment/format in: #middleButtonMenu
changed: #objectToInspectOrBrowse:
--- a/Tools__ViewTreeApplication.st Mon Dec 01 17:43:38 2014 +0100
+++ b/Tools__ViewTreeApplication.st Tue Dec 02 19:23:38 2014 +0100
@@ -682,28 +682,28 @@
label: 'Browse View Class'
itemValue: doBrowse:
translateLabel: true
- argument: view
+ argument: #view
)
(MenuItem
label: 'Browse Model Class'
itemValue: doBrowse:
translateLabel: true
isVisible: hasModel
- argument: model
+ argument: #model
)
(MenuItem
label: 'Browse Application Class'
itemValue: doBrowse:
translateLabel: true
isVisible: hasApplication
- argument: application
+ argument: #application
)
(MenuItem
label: 'Browse Controller Class'
itemValue: doBrowse:
translateLabel: true
isVisible: hasController
- argument: controller
+ argument: #controller
)
(MenuItem
label: '-'
@@ -712,34 +712,34 @@
label: 'Inspect View'
itemValue: doInspect:
translateLabel: true
- argument: view
+ argument: #view
)
(MenuItem
label: 'Inspect Window Group'
itemValue: doInspect:
translateLabel: true
- argument: group
+ argument: #group
)
(MenuItem
label: 'Inspect Model'
itemValue: doInspect:
translateLabel: true
isVisible: hasModel
- argument: model
+ argument: #model
)
(MenuItem
label: 'Inspect Application'
itemValue: doInspect:
translateLabel: true
isVisible: hasApplication
- argument: application
+ argument: #application
)
(MenuItem
label: 'Inspect Controller'
itemValue: doInspect:
translateLabel: true
isVisible: hasController
- argument: controller
+ argument: #controller
)
(MenuItem
label: '-'
@@ -2122,7 +2122,8 @@
ifFalse:[what == #application ifTrue:[ inst := view application ]
ifFalse:[what == #controller ifTrue:[ inst := view controller ]
ifFalse:[what == #process ifTrue:[ inst := view windowGroup process ]
- ifFalse:[what == #sensor ifTrue:[ inst := view sensor ]]]]]].
+ ifFalse:[what == #sensor ifTrue:[ inst := view sensor ]
+ ifFalse:[inst := view ]]]]]].
(inst isNil and:[what == #application]) ifTrue:[
inst := view topView