404 "remove selected items from right list to the left list" |
406 "remove selected items from right list to the left list" |
405 |
407 |
406 |sel t selectedItemList possibleItemList| |
408 |sel t selectedItemList possibleItemList| |
407 |
409 |
408 sel := self selectedItemListSelection value. |
410 sel := self selectedItemListSelection value. |
409 sel size > 0 ifTrue:[ |
411 sel size ~~ 0 ifTrue:[ |
410 possibleItemList := self listOfPossibleItems. |
412 possibleItemList := self listOfPossibleItems. |
411 t := possibleItemList value copy. |
413 t := possibleItemList value copy. |
412 t addAll:sel. |
414 t addAll:sel. |
413 possibleItemList value:t. |
415 possibleItemList value:t. |
414 |
416 |
439 ^ addAllButtonVisibleHolder. |
443 ^ addAllButtonVisibleHolder. |
440 ! |
444 ! |
441 |
445 |
442 canAddAllItemsToSelection |
446 canAddAllItemsToSelection |
443 canAddAllItemsToSelection isNil ifTrue:[ |
447 canAddAllItemsToSelection isNil ifTrue:[ |
444 canAddAllItemsToSelection := BlockValue with:[:m | m size > 0] |
448 canAddAllItemsToSelection := BlockValue with:[:m | m size ~~ 0] |
445 argument:self listOfPossibleItems |
449 argument:self listOfPossibleItems |
446 ]. |
450 ]. |
447 ^ canAddAllItemsToSelection. |
451 ^ canAddAllItemsToSelection. |
448 |
452 |
449 "Modified: / 08-03-2007 / 22:59:51 / cg" |
453 "Modified: / 08-03-2007 / 22:59:51 / cg" |
|
454 "Modified: / 01-03-2019 / 16:02:08 / Claus Gittinger" |
450 ! |
455 ! |
451 |
456 |
452 canAddItemToSelection |
457 canAddItemToSelection |
453 "automatically generated by UIPainter ..." |
458 "automatically generated by UIPainter ..." |
454 |
459 |
455 <resource: #uiAspect> |
460 <resource: #uiAspect> |
456 |
461 |
457 canAddItemToSelection isNil ifTrue:[ |
462 canAddItemToSelection isNil ifTrue:[ |
458 canAddItemToSelection := BlockValue |
463 canAddItemToSelection := BlockValue |
459 with:[:m | m size > 0] |
464 with:[:m | m size ~~ 0] |
460 argument:self possibleItemListSelection |
465 argument:self possibleItemListSelection |
461 ]. |
466 ]. |
462 ^ canAddItemToSelection. |
467 ^ canAddItemToSelection. |
463 |
468 |
464 "Modified: / 08-03-2007 / 22:59:54 / cg" |
469 "Modified: / 08-03-2007 / 22:59:54 / cg" |
|
470 "Modified: / 01-03-2019 / 16:02:05 / Claus Gittinger" |
465 ! |
471 ! |
466 |
472 |
467 canRemoveAllItemsFromSelection |
473 canRemoveAllItemsFromSelection |
468 canRemoveAllItemsFromSelection isNil ifTrue:[ |
474 canRemoveAllItemsFromSelection isNil ifTrue:[ |
469 canRemoveAllItemsFromSelection := BlockValue with:[:m | m size > 0] |
475 canRemoveAllItemsFromSelection := BlockValue with:[:m | m size ~~ 0] |
470 argument:self listOfSelectedItems |
476 argument:self listOfSelectedItems |
471 ]. |
477 ]. |
472 ^ canRemoveAllItemsFromSelection. |
478 ^ canRemoveAllItemsFromSelection. |
473 |
479 |
474 "Modified: / 08-03-2007 / 22:59:58 / cg" |
480 "Modified: / 08-03-2007 / 22:59:58 / cg" |
|
481 "Modified: / 01-03-2019 / 16:02:01 / Claus Gittinger" |
475 ! |
482 ! |
476 |
483 |
477 canRemoveItemFromSelection |
484 canRemoveItemFromSelection |
478 "automatically generated by UIPainter ..." |
485 "automatically generated by UIPainter ..." |
479 |
486 |
480 <resource: #uiAspect> |
487 <resource: #uiAspect> |
481 |
488 |
482 canRemoveItemFromSelection isNil ifTrue:[ |
489 canRemoveItemFromSelection isNil ifTrue:[ |
483 canRemoveItemFromSelection := BlockValue |
490 canRemoveItemFromSelection := BlockValue |
484 with:[:m | m size > 0] |
491 with:[:m | m size ~~ 0] |
485 argument:self selectedItemListSelection |
492 argument:self selectedItemListSelection |
486 ]. |
493 ]. |
487 ^ canRemoveItemFromSelection. |
494 ^ canRemoveItemFromSelection. |
488 |
495 |
489 "Modified: / 08-03-2007 / 23:00:01 / cg" |
496 "Modified: / 08-03-2007 / 23:00:01 / cg" |
|
497 "Modified: / 01-03-2019 / 16:01:57 / Claus Gittinger" |
490 ! |
498 ! |
491 |
499 |
492 enableChannel |
500 enableChannel |
493 enableChannel isNil ifTrue:[ |
501 enableChannel isNil ifTrue:[ |
494 enableChannel := true asValue |
502 enableChannel := true asValue |