DataSetBuilder.st
changeset 521 61569efc19f4
parent 505 d9ed26eeafe9
child 524 6ced725af608
equal deleted inserted replaced
520:f6ca67d537b6 521:61569efc19f4
  1161             )
  1161             )
  1162              #(#MenuItem
  1162              #(#MenuItem
  1163                 #'label:' 'Edit'
  1163                 #'label:' 'Edit'
  1164                 #'submenuChannel:' #menuEdit
  1164                 #'submenuChannel:' #menuEdit
  1165             )
  1165             )
       
  1166              #(#MenuItem
       
  1167                 #'label:' 'Add'
       
  1168                 #'submenu:' 
       
  1169                  #(#Menu
       
  1170                     
       
  1171                      #(
       
  1172                        #(#MenuItem
       
  1173                           #'label:' 'Column'
       
  1174                           #'value:' #doCreateColumn
       
  1175                           #'enabled:' #columnIsNotEditing
       
  1176                           #'labelImage:' #(#ResourceRetriever nil #newColumnIcon 'Column')
       
  1177                       )
       
  1178                     ) nil
       
  1179                     nil
       
  1180                 )
       
  1181             )
       
  1182              #(#MenuItem
       
  1183                 #'label:' 'Help'
       
  1184                 #'submenuChannel:' #menuHelp
       
  1185             )
  1166           ) nil
  1186           ) nil
  1167           nil
  1187           nil
  1168       )
  1188       )
  1169 !
  1189 !
  1170 
  1190 
  1203             )
  1223             )
  1204              #(#MenuItem
  1224              #(#MenuItem
  1205                 #'label:' '-'
  1225                 #'label:' '-'
  1206             )
  1226             )
  1207              #(#MenuItem
  1227              #(#MenuItem
  1208                 #'label:' 'Create Column'
  1228                 #'label:' 'Move Up'
  1209                 #'value:' #doCreateColumn
       
  1210                 #'enabled:' #columnIsNotEditing
       
  1211                 #'labelImage:' #(#ResourceRetriever nil #newColumnIcon 'Create Column')
       
  1212             )
       
  1213              #(#MenuItem
       
  1214                 #'label:' '-'
       
  1215             )
       
  1216              #(#MenuItem
       
  1217                 #'label:' 'Shift Up'
       
  1218                 #'value:' #'doMoveColumn:'
  1229                 #'value:' #'doMoveColumn:'
  1219                 #'enabled:' #isColumnSelected
  1230                 #'enabled:' #isColumnSelected
  1220                 #'argument:' #up
  1231                 #'argument:' #up
  1221                 #'labelImage:' #(#ResourceRetriever #DataSetBuilder #upIcon 'Shift Up')
  1232                 #'labelImage:' #(#ResourceRetriever #DataSetBuilder #upIcon 'Move Up')
  1222             )
  1233             )
  1223              #(#MenuItem
  1234              #(#MenuItem
  1224                 #'label:' 'Shift Down'
  1235                 #'label:' 'Move Down'
  1225                 #'value:' #'doMoveColumn:'
  1236                 #'value:' #'doMoveColumn:'
  1226                 #'enabled:' #isColumnSelected
  1237                 #'enabled:' #isColumnSelected
  1227                 #'argument:' #down
  1238                 #'argument:' #down
  1228                 #'labelImage:' #(#ResourceRetriever #DataSetBuilder #downIcon 'Shift Down')
  1239                 #'labelImage:' #(#ResourceRetriever #DataSetBuilder #downIcon 'Move Down')
  1229             )
  1240             )
  1230           ) nil
  1241           ) nil
  1231           nil
  1242           nil
  1232       )
  1243       )
  1233 !
  1244 !