--- a/ProcessMonitorV2.st	Mon Oct 16 13:35:34 2006 +0200
+++ b/ProcessMonitorV2.st	Mon Oct 16 13:37:29 2006 +0200
@@ -9,7 +9,6 @@
  other person.  No title to or ownership of the software is
  hereby transferred.
 "
-
 "{ Package: 'stx:libtool' }"
 
 ApplicationModel subclass:#ProcessMonitorV2
@@ -786,62 +785,62 @@
     <resource: #menu>
 
     ^ 
-     #(#Menu
-        #(
-         #(#MenuItem
-            #label: 'File'
-            #translateLabel: true
-            #submenu: 
-           #(#Menu
-              #(
-               #(#MenuItem
-                  #label: 'Print'
-                  #itemValue: #printProcessList
-                  #translateLabel: true
+     #(Menu
+        (
+         (MenuItem
+            label: 'File'
+            translateLabel: true
+            submenu: 
+           (Menu
+              (
+               (MenuItem
+                  label: 'Print'
+                  itemValue: printProcessList
+                  translateLabel: true
                 )
-               #(#MenuItem
-                  #label: '-'
+               (MenuItem
+                  label: '-'
                 )
-               #(#MenuItem
-                  #label: 'Exit'
-                  #itemValue: #closeRequest
-                  #translateLabel: true
+               (MenuItem
+                  label: 'Exit'
+                  itemValue: closeRequest
+                  translateLabel: true
                 )
                )
               nil
               nil
             )
           )
-         #(#MenuItem
-            #label: 'Process'
-            #translateLabel: true
-            #isVisible: #allowModifications
-            #submenuChannel: #tableMenu
+         (MenuItem
+            label: 'Process'
+            translateLabel: true
+            isVisible: allowModifications
+            submenuChannel: tableMenu
           )
-         #(#MenuItem
-            #label: 'View'
-            #translateLabel: true
-            #submenuChannel: #viewDetailsMenuSpec
+         (MenuItem
+            label: 'View'
+            translateLabel: true
+            submenuChannel: viewDetailsMenuSpec
           )
-         #(#MenuItem
-            #label: 'Help'
-            #translateLabel: true
-            #startGroup: #right
-            #submenu: 
-           #(#Menu
-              #(
-               #(#MenuItem
-                  #label: 'Documentation'
-                  #itemValue: #openDocumentation
-                  #translateLabel: true
+         (MenuItem
+            label: 'Help'
+            translateLabel: true
+            startGroup: conditionalRight
+            submenu: 
+           (Menu
+              (
+               (MenuItem
+                  label: 'Documentation'
+                  itemValue: openDocumentation
+                  translateLabel: true
                 )
-               #(#MenuItem
-                  #label: '-'
+               (MenuItem
+                  label: '-'
                 )
-               #(#MenuItem
-                  #label: 'About this Application...'
-                  #itemValue: #openAboutThisApplication
-                  #translateLabel: true
+               (MenuItem
+                  label: 'About this Application...'
+                  itemValue: openAboutThisApplication
+                  translateLabel: true
                 )
                )
               nil
@@ -2952,5 +2951,5 @@
 !ProcessMonitorV2 class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/ProcessMonitorV2.st,v 1.31 2006-09-12 15:20:54 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/ProcessMonitorV2.st,v 1.32 2006-10-16 11:37:29 cg Exp $'
 ! !