#FEATURE by cg
class: Tools::ViewTreeInspectorApplication
more menu-item menu actions
comment/format in: #selectedView
changed:
#objectToInspectOrBrowse:
#submenuMenuItemInterface:
class: Tools::ViewTreeInspectorApplication class
changed: #middleButtonMenuForMenuItems
--- a/Tools__ViewTreeApplication.st Wed Aug 16 13:52:20 2017 +0200
+++ b/Tools__ViewTreeApplication.st Wed Aug 16 13:58:23 2017 +0200
@@ -771,16 +771,16 @@
(
(MenuItem
label: 'Browse Menu Item''s Class'
- itemValue: doBrowseMenuItem:
- argument: view
+ itemValue: doBrowse:
+ argument: menuItem
)
(MenuItem
label: '-'
)
(MenuItem
label: 'Inspect Menu Item'
- itemValue: doInspectMenuItem:
- argument: view
+ itemValue: doInspect:
+ argument: menuItem
)
(MenuItem
label: '-'
@@ -1886,7 +1886,13 @@
list := OrderedCollection new.
- list add:(MenuDesc title:'itemValue' value:(item itemValue)).
+ list add:(MenuDesc
+ title:'itemValue'
+ value:(item itemValue)
+ action:[
+ UserPreferences systemBrowserClass
+ browseImplementorsOf:item itemValue
+ ]).
^ MenuDesc buildFromList:list onGC:aMenu
@@ -2083,7 +2089,9 @@
item := model selectedItem.
item notNil ifTrue:[ ^ item widget ].
- ^ nil
+ ^ nil
+
+ "Modified (format): / 16-08-2017 / 13:57:30 / cg"
! !
!ViewTreeInspectorApplication methodsFor:'testing'!
@@ -2318,16 +2326,21 @@
objectToInspectOrBrowse:what
"return one of:
- #view inspect view/widget
- #group inspect windowGroup
- #model inspect model
- #application inspect application
- #controller inspect controller
- #process inspect application's process
- #widgetClass browse widget's class
+ #view for inspect/browse view/widget
+ #group for inspect/browse windowGroup
+ #model for inspect/browse model
+ #application for inspect/browse application
+ #controller for inspect/browse controller
+ #process for inspect/browse application's process
+ #widgetClass for inspect/browse widget's class
+ #menuItem for inspect/browse menuItem
"
|view|
+ what == #menuItem ifTrue:[
+ ^ model selectedItem menuItem
+ ].
+
view := self selectedView.
view isNil ifTrue:[^ nil].
@@ -2341,7 +2354,7 @@
^ view
- "Modified: / 28-08-2013 / 23:58:27 / cg"
+ "Modified: / 16-08-2017 / 13:57:36 / cg"
!
openDocumentation