DataSetBuilder.st
changeset 429 132c3299631c
parent 427 ad235cdacee5
child 431 23ff7c325946
equal deleted inserted replaced
428:f87cca33874e 429:132c3299631c
  1141                 #'labelImage:' #(#ResourceRetriever #UIPainter #icon)
  1141                 #'labelImage:' #(#ResourceRetriever #UIPainter #icon)
  1142                 #'submenuChannel:' #menuAbout
  1142                 #'submenuChannel:' #menuAbout
  1143             )
  1143             )
  1144              #(#MenuItem
  1144              #(#MenuItem
  1145                 #'label:' 'File'
  1145                 #'label:' 'File'
  1146                 #'accessCharacterPosition:' 1
       
  1147                 #'submenu:' 
  1146                 #'submenu:' 
  1148                  #(#Menu
  1147                  #(#Menu
  1149                     
  1148                     
  1150                      #(
  1149                      #(
  1151                        #(#MenuItem
  1150                        #(#MenuItem
  1174                     nil
  1173                     nil
  1175                 )
  1174                 )
  1176             )
  1175             )
  1177              #(#MenuItem
  1176              #(#MenuItem
  1178                 #'label:' 'Edit'
  1177                 #'label:' 'Edit'
  1179                 #'accessCharacterPosition:' 1
       
  1180                 #'submenuChannel:' #menuEdit
  1178                 #'submenuChannel:' #menuEdit
  1181             )
  1179             )
  1182           ) nil
  1180           ) nil
  1183           nil
  1181           nil
  1184       )
  1182       )
  1405 
  1403 
  1406 
  1404 
  1407 
  1405 
  1408 !
  1406 !
  1409 
  1407 
       
  1408 modifiedChannel
       
  1409     "returns a boolean value holder which is set to true if something is modified
       
  1410      and not accepted"
       
  1411 
       
  1412     ^builder booleanValueAspectFor:#modifiedChannel
       
  1413 
       
  1414 
       
  1415 
       
  1416 !
       
  1417 
  1410 rendererTypeList
  1418 rendererTypeList
  1411     "generate list of supported renderer types"
  1419     "generate list of supported renderer types"
  1412 
  1420 
  1413     |list|
  1421     |list|
  1414 
  1422