--- 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)