# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1417544618 -3600
# Node ID 54d9e27b384d3588c962e84cf9cd6f02bfb4aaab
# Parent  894c517d8696055556132399e5d00bce6d07c9c5
class: Tools::ViewTreeInspectorApplication
comment/format in: #middleButtonMenu
changed: #objectToInspectOrBrowse:

diff -r 894c517d8696 -r 54d9e27b384d Tools__ViewTreeApplication.st
--- 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