# HG changeset patch
# User tz
# Date 886086097 -3600
# Node ID 61569efc19f439ee0b79b150d5c3a43f4c97e4aa
# Parent  f6ca67d537b6d22d9b0d181c1d66dac36881b286
menu rearranged

diff -r f6ca67d537b6 -r 61569efc19f4 DataSetBuilder.st
--- a/DataSetBuilder.st	Thu Jan 29 15:55:27 1998 +0100
+++ b/DataSetBuilder.st	Thu Jan 29 16:01:37 1998 +0100
@@ -1163,6 +1163,26 @@
                 #'label:' 'Edit'
                 #'submenuChannel:' #menuEdit
             )
+             #(#MenuItem
+                #'label:' 'Add'
+                #'submenu:' 
+                 #(#Menu
+                    
+                     #(
+                       #(#MenuItem
+                          #'label:' 'Column'
+                          #'value:' #doCreateColumn
+                          #'enabled:' #columnIsNotEditing
+                          #'labelImage:' #(#ResourceRetriever nil #newColumnIcon 'Column')
+                      )
+                    ) nil
+                    nil
+                )
+            )
+             #(#MenuItem
+                #'label:' 'Help'
+                #'submenuChannel:' #menuHelp
+            )
           ) nil
           nil
       )
@@ -1205,27 +1225,18 @@
                 #'label:' '-'
             )
              #(#MenuItem
-                #'label:' 'Create Column'
-                #'value:' #doCreateColumn
-                #'enabled:' #columnIsNotEditing
-                #'labelImage:' #(#ResourceRetriever nil #newColumnIcon 'Create Column')
-            )
-             #(#MenuItem
-                #'label:' '-'
-            )
-             #(#MenuItem
-                #'label:' 'Shift Up'
+                #'label:' 'Move Up'
                 #'value:' #'doMoveColumn:'
                 #'enabled:' #isColumnSelected
                 #'argument:' #up
-                #'labelImage:' #(#ResourceRetriever #DataSetBuilder #upIcon 'Shift Up')
+                #'labelImage:' #(#ResourceRetriever #DataSetBuilder #upIcon 'Move Up')
             )
              #(#MenuItem
-                #'label:' 'Shift Down'
+                #'label:' 'Move Down'
                 #'value:' #'doMoveColumn:'
                 #'enabled:' #isColumnSelected
                 #'argument:' #down
-                #'labelImage:' #(#ResourceRetriever #DataSetBuilder #downIcon 'Shift Down')
+                #'labelImage:' #(#ResourceRetriever #DataSetBuilder #downIcon 'Move Down')
             )
           ) nil
           nil