--- a/DataSetBuilder.st	Mon Feb 02 18:46:04 1998 +0100
+++ b/DataSetBuilder.st	Mon Feb 02 18:47:58 1998 +0100
@@ -70,6 +70,9 @@
 
   ^ super helpSpec addPairsFrom:#(
 
+#addColumn
+'Adds a new column.'
+
 #backgroundColor
 'Sets the background color of the column if the color-checkBox is turned on. Otherwise, the column uses its default background color (which is specified in the styleSheet).'
 
@@ -1151,6 +1154,7 @@
                        #(#MenuItem
                           #'label:' 'Exit'
                           #'value:' #closeRequest
+                          #'activeHelpKey:' #fileExit
                       )
                     ) nil
                     nil
@@ -1169,6 +1173,7 @@
                        #(#MenuItem
                           #'label:' 'Column'
                           #'value:' #doCreateColumn
+                          #'activeHelpKey:' #addColumn
                           #'enabled:' #columnIsNotEditing
                           #'labelImage:' #(#ResourceRetriever nil #newColumnIcon 'Column')
                       )
@@ -1207,16 +1212,19 @@
              #(#MenuItem
                 #'label:' 'Cut'
                 #'value:' #doCutColumn
+                #'activeHelpKey:' #editCut
                 #'enabled:' #isColumnSelected
             )
              #(#MenuItem
                 #'label:' 'Copy'
                 #'value:' #doCopyColumn
+                #'activeHelpKey:' #editCopy
                 #'enabled:' #isColumnSelected
             )
              #(#MenuItem
                 #'label:' 'Paste'
                 #'value:' #doPasteColumn
+                #'activeHelpKey:' #editPaste
                 #'enabled:' #valueOfHavingClipboard
             )
              #(#MenuItem
@@ -1225,6 +1233,7 @@
              #(#MenuItem
                 #'label:' 'Move Up'
                 #'value:' #'doMoveColumn:'
+                #'activeHelpKey:' #editMoveUp
                 #'enabled:' #isColumnSelected
                 #'argument:' #up
                 #'labelImage:' #(#ResourceRetriever #DataSetBuilder #upIcon 'Move Up')
@@ -1232,6 +1241,7 @@
              #(#MenuItem
                 #'label:' 'Move Down'
                 #'value:' #'doMoveColumn:'
+                #'activeHelpKey:' #editMoveDown
                 #'enabled:' #isColumnSelected
                 #'argument:' #down
                 #'labelImage:' #(#ResourceRetriever #DataSetBuilder #downIcon 'Move Down')
@@ -1260,9 +1270,10 @@
           
            #(
              #(#MenuItem
-                #'label:' 'Create Column'
+                #'label:' 'Add Column'
                 #'isButton:' true
                 #'value:' #doCreateColumn
+                #'activeHelpKey:' #addColumn
                 #'enabled:' #columnIsNotEditing
                 #'labelImage:' #(#ResourceRetriever nil #newColumnIcon)
             )
@@ -1270,17 +1281,19 @@
                 #'label:' ''
             )
              #(#MenuItem
-                #'label:' 'Step Up'
+                #'label:' 'Move Up'
                 #'isButton:' true
                 #'value:' #'doMoveColumn:'
+                #'activeHelpKey:' #editMoveUp
                 #'enabled:' #isColumnSelected
                 #'argument:' #up
                 #'labelImage:' #(#ResourceRetriever nil #upIcon)
             )
              #(#MenuItem
-                #'label:' 'Step Down'
+                #'label:' 'Move Down'
                 #'isButton:' true
                 #'value:' #'doMoveColumn:'
+                #'activeHelpKey:' #editMoveDown
                 #'enabled:' #isColumnSelected
                 #'argument:' #down
                 #'labelImage:' #(#ResourceRetriever nil #downIcon)