#UI_ENHANCEMENT by exept draft
authorClaus Gittinger <cg@exept.de>
Wed, 28 Aug 2019 17:11:53 +0200
changeset 3752 24695ab8fa75
parent 3751 5c7bb0559dc1
child 3753 eb97ded9cc8e
#UI_ENHANCEMENT by exept class: Tools::ViewTreeInspectorApplication class changed: #middleButtonMenu
Tools__ViewTreeApplication.st
--- a/Tools__ViewTreeApplication.st	Tue Aug 27 00:48:09 2019 +0200
+++ b/Tools__ViewTreeApplication.st	Wed Aug 28 17:11:53 2019 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 2007 by eXept Software AG
 	      All Rights Reserved
@@ -632,153 +630,158 @@
 
     <resource: #menu>
 
-    ^
-     #(Menu
-        (
-         (MenuItem
-            label: 'Browse View Class'
-            itemValue: doBrowse:
-            argument: view
-          )
-         (MenuItem
-            label: 'Browse Model Class'
-            itemValue: doBrowse:
-            isVisible: hasModel
-            argument: model
-          )
-         (MenuItem
-            label: 'Browse Application Class'
-            itemValue: doBrowse:
-            isVisible: hasApplication
-            argument: application
-          )
-         (MenuItem
-            label: 'Browse Master Application Class'
-            itemValue: doBrowse:
-            isVisible: hasApplication
-            enabled: hasMasterApplication
-            argument: masterApplication
-          )
-         (MenuItem
-            label: 'Browse Controller Class'
-            itemValue: doBrowse:
-            isVisible: hasController
-            argument: controller
-          )
-         (MenuItem
-            label: '-'
-          )
-         (MenuItem
-            label: 'Inspect View'
-            itemValue: doInspect:
-            argument: view
-          )
-         (MenuItem
-            label: 'Inspect Window Group'
-            itemValue: doInspect:
-            argument: group
-          )
-         (MenuItem
-            label: 'Inspect Model'
-            itemValue: doInspect:
-            isVisible: hasModel
-            argument: model
-          )
-         (MenuItem
-            label: 'Inspect Application'
-            itemValue: doInspect:
-            isVisible: hasApplication
-            argument: application
-          )
-         (MenuItem
-            label: 'Inspect Master Application'
-            itemValue: doInspect:
-            isVisible: hasApplication
-            enabled: hasMasterApplication
-            argument: masterApplication
-          )
-         (MenuItem
-            label: 'Inspect Controller'
-            itemValue: doInspect:
-            isVisible: hasController
-            argument: controller
-          )
-         (MenuItem
-            label: '-'
-          )
-         (MenuItem
-            label: 'Edit Language Resources'
-            itemValue: doEditLanguageResources
-          )
-         (MenuItem
-            label: '-'
-          )
-         (MenuItem
-            label: 'Flash'
-            itemValue: doFlash
-          )
-         (MenuItem
-            label: '-'
-          )
-         (MenuItem
-            label: 'Destroy View'
-            itemValue: doDestroy
-            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: 'Presentation'
-            submenuChannel: submenuPresentation:
-            keepLinkedMenu: true
-          )
-         (MenuItem
-            label: 'Instance Variables'
-            submenuChannel: submenuInspector:
-            keepLinkedMenu: true
-          )
-         (MenuItem
-            label: '='
-          )
-         (MenuItem
-            label: ''
-          )
-         (MenuItem
-            enabled: selectedComponentHasChildren
-            label: 'Applications'
-            nameKey: single
-            submenuChannel: submenuApplications:
-            keepLinkedMenu: true
-          )
-         (MenuItem
-            enabled: selectedComponentHasChildren
-            label: 'Components'
-            nameKey: single
-            submenuChannel: submenuComponents:
-            keepLinkedMenu: true
-          )
+    ^ 
+     #(Menu 
+       (MenuItem
+          label: 'Browse'
+          nameKey: BrowseMenu
+          submenu: 
+         (Menu 
+           (MenuItem
+              label: 'View Class (Widget)'
+              itemValue: doBrowse:
+              argument: view
+           ) 
+           (MenuItem
+              label: 'Model Class'
+              itemValue: doBrowse:
+              isVisible: hasModel
+              argument: model
+           ) 
+           (MenuItem
+              label: 'Application Class'
+              itemValue: doBrowse:
+              isVisible: hasApplication
+              argument: application
+           ) 
+           (MenuItem
+              enabled: hasMasterApplication
+              label: 'Master Application Class'
+              itemValue: doBrowse:
+              isVisible: hasApplication
+              argument: masterApplication
+           ) 
+           (MenuItem
+              label: 'Controller Class'
+              itemValue: doBrowse:
+              isVisible: hasController
+              argument: controller
+           )
          )
-        nil
-        nil
-      )
-
-    "Modified: / 18-07-2019 / 12:22:06 / Claus Gittinger"
+       ) 
+       (MenuItem
+          label: 'Inspect'
+          nameKey: InspectMenu
+          submenu: 
+         (Menu 
+           (MenuItem
+              label: 'View (Widget)'
+              itemValue: doInspect:
+              argument: view
+           ) 
+           (MenuItem
+              label: 'Model'
+              itemValue: doInspect:
+              isVisible: hasModel
+              argument: model
+           ) 
+           (MenuItem
+              label: 'Application'
+              itemValue: doInspect:
+              isVisible: hasApplication
+              argument: application
+           ) 
+           (MenuItem
+              enabled: hasMasterApplication
+              label: 'Master Application'
+              itemValue: doInspect:
+              isVisible: hasApplication
+              argument: masterApplication
+           ) 
+           (MenuItem
+              label: 'Window Group'
+              itemValue: doInspect:
+              argument: group
+           ) 
+           (MenuItem
+              label: 'Controller'
+              itemValue: doInspect:
+              isVisible: hasController
+              argument: controller
+           )
+         )
+       ) 
+       (MenuItem
+          label: '-'
+       ) 
+       (MenuItem
+          label: 'Edit Language Resources'
+          itemValue: doEditLanguageResources
+       ) 
+       (MenuItem
+          label: '-'
+       ) 
+       (MenuItem
+          label: 'Flash'
+          itemValue: doFlash
+       ) 
+       (MenuItem
+          label: '-'
+       ) 
+       (MenuItem
+          label: 'Destroy View'
+          itemValue: doDestroy
+          labelImage: (ResourceRetriever ToolbarIconLibrary erase16x16Icon 'Destroy View')
+       ) 
+       (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: 'Presentation'
+          submenuChannel: submenuPresentation:
+          keepLinkedMenu: true
+       ) 
+       (MenuItem
+          label: 'Instance Variables'
+          submenuChannel: submenuInspector:
+          keepLinkedMenu: true
+       ) 
+       (MenuItem
+          label: '='
+       ) 
+       (MenuItem
+          label: ''
+       ) 
+       (MenuItem
+          enabled: selectedComponentHasChildren
+          label: 'Applications'
+          nameKey: single
+          submenuChannel: submenuApplications:
+          keepLinkedMenu: true
+       ) 
+       (MenuItem
+          enabled: selectedComponentHasChildren
+          label: 'Components'
+          nameKey: single
+          submenuChannel: submenuComponents:
+          keepLinkedMenu: true
+       )
+     )
 !
 
 middleButtonMenuForMenuItems