7 inclusion of the above copyright notice. This software may not |
7 inclusion of the above copyright notice. This software may not |
8 be provided or otherwise made available to, or used by, any |
8 be provided or otherwise made available to, or used by, any |
9 other person. No title to or ownership of the software is |
9 other person. No title to or ownership of the software is |
10 hereby transferred. |
10 hereby transferred. |
11 " |
11 " |
12 |
|
13 "{ Package: 'stx:libwidg2' }" |
12 "{ Package: 'stx:libwidg2' }" |
14 |
13 |
15 ApplicationModel subclass:#MultipleItemSelectionWidget |
14 ApplicationModel subclass:#MultipleItemSelectionWidget |
16 instanceVariableNames:'possibleItemsLabelHolder possibleItemListSelection |
15 instanceVariableNames:'possibleItemsLabelHolder possibleItemListSelection |
17 listOfPossibleItems selectedItemListSelection |
16 listOfPossibleItems selectedItemListSelection |
422 ^ accepted == true |
421 ^ accepted == true |
423 ! |
422 ! |
424 |
423 |
425 canAddAllItemsToSelection |
424 canAddAllItemsToSelection |
426 canAddAllItemsToSelection isNil ifTrue:[ |
425 canAddAllItemsToSelection isNil ifTrue:[ |
427 canAddAllItemsToSelection := BlockValue with:[:m | m value size > 0] |
426 canAddAllItemsToSelection := BlockValue with:[:m | m size > 0] |
428 argument:self listOfPossibleItems |
427 argument:self listOfPossibleItems |
429 ]. |
428 ]. |
430 ^ canAddAllItemsToSelection. |
429 ^ canAddAllItemsToSelection. |
|
430 |
|
431 "Modified: / 08-03-2007 / 22:59:51 / cg" |
431 ! |
432 ! |
432 |
433 |
433 canAddItemToSelection |
434 canAddItemToSelection |
434 "automatically generated by UIPainter ..." |
435 "automatically generated by UIPainter ..." |
435 |
436 |
436 "*** the code below creates a default model when invoked." |
437 "*** the code below creates a default model when invoked." |
437 "*** (which may not be the one you wanted)" |
438 "*** (which may not be the one you wanted)" |
438 "*** Please change as required and accept it in the browser." |
439 "*** Please change as required and accept it in the browser." |
439 |
440 |
440 canAddItemToSelection isNil ifTrue:[ |
441 canAddItemToSelection isNil ifTrue:[ |
441 canAddItemToSelection := BlockValue with:[:m | m value size > 0] |
442 canAddItemToSelection := BlockValue with:[:m | m size > 0] |
442 argument:self possibleItemListSelection |
443 argument:self possibleItemListSelection |
443 ]. |
444 ]. |
444 ^ canAddItemToSelection. |
445 ^ canAddItemToSelection. |
|
446 |
|
447 "Modified: / 08-03-2007 / 22:59:54 / cg" |
445 ! |
448 ! |
446 |
449 |
447 canRemoveAllItemsFromSelection |
450 canRemoveAllItemsFromSelection |
448 canRemoveAllItemsFromSelection isNil ifTrue:[ |
451 canRemoveAllItemsFromSelection isNil ifTrue:[ |
449 canRemoveAllItemsFromSelection := BlockValue with:[:m | m value size > 0] |
452 canRemoveAllItemsFromSelection := BlockValue with:[:m | m size > 0] |
450 argument:self listOfSelectedItems |
453 argument:self listOfSelectedItems |
451 ]. |
454 ]. |
452 ^ canRemoveAllItemsFromSelection. |
455 ^ canRemoveAllItemsFromSelection. |
|
456 |
|
457 "Modified: / 08-03-2007 / 22:59:58 / cg" |
453 ! |
458 ! |
454 |
459 |
455 canRemoveItemFromSelection |
460 canRemoveItemFromSelection |
456 "automatically generated by UIPainter ..." |
461 "automatically generated by UIPainter ..." |
457 |
462 |
458 "*** the code below creates a default model when invoked." |
463 "*** the code below creates a default model when invoked." |
459 "*** (which may not be the one you wanted)" |
464 "*** (which may not be the one you wanted)" |
460 "*** Please change as required and accept it in the browser." |
465 "*** Please change as required and accept it in the browser." |
461 |
466 |
462 canRemoveItemFromSelection isNil ifTrue:[ |
467 canRemoveItemFromSelection isNil ifTrue:[ |
463 canRemoveItemFromSelection := BlockValue with:[:m | m value size > 0] |
468 canRemoveItemFromSelection := BlockValue with:[:m | m size > 0] |
464 argument:self selectedItemListSelection |
469 argument:self selectedItemListSelection |
465 ]. |
470 ]. |
466 ^ canRemoveItemFromSelection. |
471 ^ canRemoveItemFromSelection. |
|
472 |
|
473 "Modified: / 08-03-2007 / 23:00:01 / cg" |
467 ! |
474 ! |
468 |
475 |
469 enableChannel |
476 enableChannel |
470 enableChannel isNil ifTrue:[ |
477 enableChannel isNil ifTrue:[ |
471 enableChannel := true asValue |
478 enableChannel := true asValue |