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