class: Tools::ViewTreeInspectorApplication
authorClaus Gittinger <cg@exept.de>
Fri, 08 May 2015 16:10:06 +0200
changeset 3213 33e1f779fa15
parent 3212 c973eab410cb
child 3214 eceb5d2c5526
class: Tools::ViewTreeInspectorApplication changed: #middleButtonMenu reorganazied to move heavily used functions to the top
Tools__ViewTreeApplication.st
--- a/Tools__ViewTreeApplication.st	Fri May 08 16:09:36 2015 +0200
+++ b/Tools__ViewTreeApplication.st	Fri May 08 16:10:06 2015 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 2007 by eXept Software AG
               All Rights Reserved
@@ -611,9 +609,10 @@
     "Do not manually edit this!! If it is corrupted,
      the MenuEditor may not be able to read the specification."
 
+
     "
-     MenuEditor new openOnClass:ViewTreeApplication andSelector:#middleButtonMenu
-     (Menu new fromLiteralArrayEncoding:(ViewTreeApplication middleButtonMenu)) startUp
+     MenuEditor new openOnClass:Tools::ViewTreeInspectorApplication andSelector:#middleButtonMenu
+     (Menu new fromLiteralArrayEncoding:(Tools::ViewTreeInspectorApplication middleButtonMenu)) startUp
     "
 
     <resource: #menu>
@@ -622,52 +621,27 @@
      #(Menu
         (
          (MenuItem
-            label: 'Geometry'
-            translateLabel: true
-            submenuChannel: submenuGeometry:
-            keepLinkedMenu: true
-          )
-         (MenuItem
-            label: 'Interface'
-            translateLabel: true
-            submenuChannel: submenuInterface:
-            keepLinkedMenu: true
-          )
-         (MenuItem
-            label: 'Visibility'
-            translateLabel: true
-            submenuChannel: submenuVisibility:
-            keepLinkedMenu: true
-          )
-         (MenuItem
-            label: '-'
-          )
-         (MenuItem
             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: '-'
@@ -675,35 +649,30 @@
          (MenuItem
             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: '-'
@@ -711,7 +680,6 @@
          (MenuItem
             label: 'Flash'
             itemValue: doFlash
-            translateLabel: true
           )
          (MenuItem
             label: '-'
@@ -719,14 +687,28 @@
          (MenuItem
             label: 'Destroy'
             itemValue: doDestroy
-            translateLabel: true
+            labelImage: (ResourceRetriever ToolbarIconLibrary erase16x16Icon 'Destroy')
           )
          (MenuItem
             label: '-'
           )
          (MenuItem
+            label: 'Geometry'
+            submenuChannel: submenuGeometry:
+            keepLinkedMenu: true
+          )
+         (MenuItem
+            label: 'Interface'
+            submenuChannel: submenuInterface:
+            keepLinkedMenu: true
+          )
+         (MenuItem
+            label: 'Visibility'
+            submenuChannel: submenuVisibility:
+            keepLinkedMenu: true
+          )
+         (MenuItem
             label: 'Instance Variables'
-            translateLabel: true
             submenuChannel: submenuInspector:
             keepLinkedMenu: true
           )
@@ -740,7 +722,6 @@
             enabled: selectedComponentHasChildren
             label: 'Applications'
             nameKey: single
-            translateLabel: true
             submenuChannel: submenuApplications:
             keepLinkedMenu: true
           )
@@ -748,7 +729,6 @@
             enabled: selectedComponentHasChildren
             label: 'Components'
             nameKey: single
-            translateLabel: true
             submenuChannel: submenuComponents:
             keepLinkedMenu: true
           )