diff -r 454a490d797f -r 35cffcc6036e DataSetBuilder.st --- 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)