added:
authorClaus Gittinger <cg@exept.de>
Mon, 30 Jan 2012 16:54:20 +0100
changeset 11229 ea36af905114
parent 11228 fda9e307094f
child 11230 a29b30fcd694
added: #expandArraysInAllList #expandArraysInAllList: #mainMenu changed: #windowSpec
Tools__Inspector2.st
--- a/Tools__Inspector2.st	Mon Jan 30 16:44:52 2012 +0100
+++ b/Tools__Inspector2.st	Mon Jan 30 16:54:20 2012 +0100
@@ -325,6 +325,7 @@
           labelChannel: windowTitleAspect
           min: (Point 0 0)
           bounds: (Rectangle 0 0 388 421)
+          menu: mainMenu
         )
         component: 
        (SpecCollection
@@ -354,6 +355,71 @@
 
 !Inspector2 class methodsFor:'menu specs'!
 
+mainMenu
+    "This resource specification was automatically generated
+     by the MenuEditor of ST/X."
+
+    "Do not manually edit this!! If it is corrupted,
+     the MenuEditor may not be able to read the specification."
+
+
+    "
+     MenuEditor new openOnClass:Tools::Inspector2 andSelector:#mainMenu
+     (Menu new fromLiteralArrayEncoding:(Tools::Inspector2 mainMenu)) startUp
+    "
+
+    <resource: #menu>
+
+    ^ 
+     #(Menu
+        (
+         (MenuItem
+            label: 'File'
+            translateLabel: true
+            submenu: 
+           (Menu
+              (
+               (MenuItem
+                  label: 'Exit'
+                  itemValue: closeRequest
+                  translateLabel: true
+                )
+               )
+              nil
+              nil
+            )
+          )
+         (MenuItem
+            label: 'View'
+            translateLabel: true
+            submenu: 
+           (Menu
+              (
+               (MenuItem
+                  label: 'Expand Arrays in All-List'
+                  itemValue: expandArraysInAllList:
+                  translateLabel: true
+                  indication: expandArraysInAllList
+                )
+               (MenuItem
+                  label: '-'
+                )
+               (MenuItem
+                  label: 'Color Setting'
+                  translateLabel: true
+                  submenuChannel: settingsMenu
+                )
+               )
+              nil
+              nil
+            )
+          )
+         )
+        nil
+        nil
+      )
+!
+
 settingsMenu
     "This resource specification was automatically generated
      by the MenuEditor of ST/X."
@@ -654,6 +720,18 @@
     "Created: / 15-01-2012 / 10:06:28 / cg"
 !
 
+expandArraysInAllList
+    ^ InspectorView expandArraysInAllLists
+
+    "Created: / 30-01-2012 / 16:52:46 / cg"
+!
+
+expandArraysInAllList:aBoolean
+    InspectorView expandArraysInAllLists:aBoolean
+
+    "Created: / 30-01-2012 / 16:53:15 / cg"
+!
+
 forwardButtonEnabledHolder
     "return/create the 'backButtonEnabledHolder' value holder (automatically generated)"
 
@@ -917,7 +995,7 @@
 !Inspector2::NavigationState class methodsFor:'documentation'!
 
 version
-    ^'$Header: /cvs/stx/stx/libtool/Tools__Inspector2.st,v 1.25 2012-01-19 13:01:09 cg Exp $'
+    ^'$Header: /cvs/stx/stx/libtool/Tools__Inspector2.st,v 1.26 2012-01-30 15:54:20 cg Exp $'
 !
 
 version_SVN
@@ -1119,11 +1197,11 @@
 !Inspector2 class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__Inspector2.st,v 1.25 2012-01-19 13:01:09 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__Inspector2.st,v 1.26 2012-01-30 15:54:20 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__Inspector2.st,v 1.25 2012-01-19 13:01:09 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__Inspector2.st,v 1.26 2012-01-30 15:54:20 cg Exp $'
 !
 
 version_CVS_jvrany