DataSetBuilder.st
changeset 2380 4dc5c818aa21
parent 2371 233e1bda3570
child 2382 f90f0f66793a
equal deleted inserted replaced
2379:d54bd94c8090 2380:4dc5c818aa21
  2328                )
  2328                )
  2329               nil
  2329               nil
  2330               nil
  2330               nil
  2331             )
  2331             )
  2332           )
  2332           )
  2333         (MenuItem
  2333          (MenuItem
  2334             label: 'Alignment'
  2334             label: 'Alignment'
  2335             translateLabel: true
  2335             translateLabel: true
  2336             submenu: 
  2336             submenu: 
  2337            (Menu
  2337            (Menu
  2338               (
  2338               (
  2394                 )
  2394                 )
  2395                (MenuItem
  2395                (MenuItem
  2396                   enabled: hasSelection
  2396                   enabled: hasSelection
  2397                   label: 'Set Selected Cell Color Selectors'
  2397                   label: 'Set Selected Cell Color Selectors'
  2398                   itemValue: setSelectedCellColorSelectors
  2398                   itemValue: setSelectedCellColorSelectors
       
  2399                   translateLabel: true
       
  2400                 )
       
  2401                )
       
  2402               nil
       
  2403               nil
       
  2404             )
       
  2405           )
       
  2406          (MenuItem
       
  2407             label: 'Behavior'
       
  2408             translateLabel: true
       
  2409             submenu: 
       
  2410            (Menu
       
  2411               (
       
  2412                (MenuItem
       
  2413                   enabled: hasSelection
       
  2414                   label: 'Make Selected Cells Unselectable'
       
  2415                   itemValue: makeSelectedCellsUnselectable
       
  2416                   translateLabel: true
       
  2417                 )
       
  2418                (MenuItem
       
  2419                   enabled: hasSelection
       
  2420                   label: 'Make Selected Cells Selectable'
       
  2421                   itemValue: makeSelectedCellsSelectable
  2399                   translateLabel: true
  2422                   translateLabel: true
  2400                 )
  2423                 )
  2401                )
  2424                )
  2402               nil
  2425               nil
  2403               nil
  2426               nil
  3280 
  3303 
  3281 makeColumnsUnselectable
  3304 makeColumnsUnselectable
  3282     self makeColumnsSelectable:false
  3305     self makeColumnsSelectable:false
  3283 !
  3306 !
  3284 
  3307 
       
  3308 makeSelectedCellsSelectable
       
  3309     self selectedColumnsDo:[:eachColDescr |
       
  3310         eachColDescr canSelect:true
       
  3311     ].
       
  3312     self updateAfterOperation.
       
  3313 !
       
  3314 
       
  3315 makeSelectedCellsUnselectable
       
  3316     self selectedColumnsDo:[:eachColDescr |
       
  3317         eachColDescr canSelect:false
       
  3318     ].
       
  3319     self updateAfterOperation.
       
  3320 !
       
  3321 
  3285 removeCellSeparators
  3322 removeCellSeparators
  3286     self removeRowSeparators.
  3323     self removeRowSeparators.
  3287     self removeColumnSeparators.
  3324     self removeColumnSeparators.
  3288 !
  3325 !
  3289 
  3326