#FEATURE by cg draft
authorClaus Gittinger <cg@exept.de>
Wed, 16 Aug 2017 13:58:23 +0200
changeset 3457 3f3ea99e8af5
parent 3456 4d4297bad4fa
child 3458 159bab42fdbb
#FEATURE by cg class: Tools::ViewTreeInspectorApplication more menu-item menu actions comment/format in: #selectedView changed: #objectToInspectOrBrowse: #submenuMenuItemInterface: class: Tools::ViewTreeInspectorApplication class changed: #middleButtonMenuForMenuItems
Tools__ViewTreeApplication.st
--- 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