equal
deleted
inserted
replaced
503 addItem:aMenuItem value:aValue |
503 addItem:aMenuItem value:aValue |
504 aMenuItem value:aValue. |
504 aMenuItem value:aValue. |
505 self addItem:aMenuItem. |
505 self addItem:aMenuItem. |
506 ! |
506 ! |
507 |
507 |
508 addItemGroup:aCollectionOfItems |
508 addItemGroup:aGroup |
509 "add a group of items at the end; |
509 "add a group of items at the end; |
510 useful to build a menu programmatically (or, to add more items dynamically)" |
510 useful to build a menu programmatically (or, to add more items dynamically)" |
511 |
511 |
512 groupSizes isNil ifTrue:[ |
512 groupSizes isNil ifTrue:[ |
513 groupSizes := OrderedCollection new |
513 groupSizes := OrderedCollection with:items size. |
514 ]. |
514 ]. |
515 groupSizes add:aCollectionOfItems size. |
515 groupSizes add:aGroup size. |
516 |
516 |
517 aCollectionOfItems do:[:item | |
517 aGroup do:[:item | |
518 self addItem:item |
518 self addItem:item |
519 ]. |
519 ]. |
520 |
520 |
521 "Created: / 27.10.1997 / 15:02:15 / cg" |
521 "Created: / 27.10.1997 / 15:02:15 / cg" |
522 "Modified: / 4.8.1998 / 17:32:06 / cg" |
522 "Modified: / 4.8.1998 / 17:32:06 / cg" |
524 |
524 |
525 addItemGroup:aGroup values:values |
525 addItemGroup:aGroup values:values |
526 "add a group of items at the end; |
526 "add a group of items at the end; |
527 useful to build a menu programmatically (or, to add more items dynamically)" |
527 useful to build a menu programmatically (or, to add more items dynamically)" |
528 |
528 |
529 groupSizes isNil ifTrue:[ |
|
530 groupSizes := OrderedCollection new |
|
531 ]. |
|
532 groupSizes add:items size. |
|
533 |
|
534 aGroup with:values do:[:item :value | |
529 aGroup with:values do:[:item :value | |
535 self addItem:item value:value |
530 item value:value |
536 ]. |
531 ]. |
|
532 self addItemGroup:aGroup |
537 |
533 |
538 "Modified: / 4.8.1998 / 17:32:18 / cg" |
534 "Modified: / 4.8.1998 / 17:32:18 / cg" |
539 ! |
535 ! |
540 |
536 |
541 addItemGroupLabels:labels values:values |
537 addItemGroupLabels:labels values:values |
1031 ! ! |
1027 ! ! |
1032 |
1028 |
1033 !Menu class methodsFor:'documentation'! |
1029 !Menu class methodsFor:'documentation'! |
1034 |
1030 |
1035 version |
1031 version |
1036 ^ '$Header: /cvs/stx/stx/libview2/Menu.st,v 1.54 2002-10-26 15:52:10 ca Exp $' |
1032 ^ '$Header: /cvs/stx/stx/libview2/Menu.st,v 1.55 2003-04-30 07:51:42 cg Exp $' |
1037 ! ! |
1033 ! ! |