--- a/WorkspaceApplication.st	Tue May 07 18:09:48 2002 +0200
+++ b/WorkspaceApplication.st	Wed May 08 11:23:00 2002 +0200
@@ -95,14 +95,17 @@
            #(#Menu
               #(
                #(#MenuItem
-                  #label: 'New'
+                  #label: 'New Workspace'
                   #translateLabel: true
-                  #isVisible: false
-                  #value: #menuNew
+                  #value: #newWorkspace
+                )
+               #(#MenuItem
+                  #label: 'New SystemWorkspace'
+                  #translateLabel: true
+                  #value: #newSystemWorkspace
                 )
                #(#MenuItem
                   #label: '-'
-                  #isVisible: false
                 )
                #(#MenuItem
                   #label: 'Load File...'
@@ -131,22 +134,20 @@
             )
           )
          #(#MenuItem
-            #label: 'Workspace'
+            #label: 'Buffer'
             #translateLabel: true
-            #nameKey: #Workspace
+            #nameKey: #Buffer
             #submenu: 
            #(#Menu
               #(
                #(#MenuItem
                   #label: 'Add Buffer'
                   #translateLabel: true
-                  #triggerOnDown: true
                   #value: #addWorkspace
                 )
                #(#MenuItem
                   #label: 'Rename...'
                   #translateLabel: true
-                  #triggerOnDown: true
                   #value: #renameWorkspace
                 )
                #(#MenuItem
@@ -155,18 +156,9 @@
                #(#MenuItem
                   #label: 'Remove Buffer'
                   #translateLabel: true
-                  #triggerOnDown: true
                   #value: #removeWorkspace
                   #enabled: #canRemoveWorkspace
                 )
-               #(#MenuItem
-                  #label: '-'
-                )
-               #(#MenuItem
-                  #label: 'New SystemWorkspace'
-                  #translateLabel: true
-                  #value: #newSystemWorkspace
-                )
                )
               nil
               nil
@@ -316,13 +308,13 @@
          #(#MenuItem
             #label: 'Add Buffer'
             #translateLabel: true
-            #triggerOnDown: true
+            "/ #triggerOnDown: true
             #value: #addWorkspace
           )
          #(#MenuItem
             #label: 'Rename...'
             #translateLabel: true
-            #triggerOnDown: true
+            "/ #triggerOnDown: true
             #value: #renameWorkspace:
           )
          #(#MenuItem
@@ -331,7 +323,7 @@
          #(#MenuItem
             #label: 'Remove Buffer'
             #translateLabel: true
-            #triggerOnDown: true
+            "/ #triggerOnDown: true
             #value: #removeWorkspace:
             #enabled: #canRemoveWorkspace:
           )
@@ -640,6 +632,10 @@
     self class openSystemWorkspace
 !
 
+newWorkspace
+    self class open
+!
+
 openDocumentation
     "opens the documentation file"
 
@@ -784,5 +780,5 @@
 !WorkspaceApplication class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/WorkspaceApplication.st,v 1.28 2002-05-06 06:28:58 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/WorkspaceApplication.st,v 1.29 2002-05-08 09:23:00 cg Exp $'
 ! !