equal
deleted
inserted
replaced
568 numberOfLabels := titleArray size. |
568 numberOfLabels := titleArray size. |
569 menus := Array new:numberOfLabels. |
569 menus := Array new:numberOfLabels. |
570 titles := Array new:numberOfLabels. |
570 titles := Array new:numberOfLabels. |
571 |
571 |
572 titleArray keysAndValuesDo:[:index :entry | |
572 titleArray keysAndValuesDo:[:index :entry | |
573 |e| |
573 |e| |
574 |
574 |
575 entry isImage ifTrue:[ |
575 entry isImage ifTrue:[ |
576 e := entry on:device |
576 e := entry on:device |
577 ] ifFalse:[ |
577 ] ifFalse:[ |
578 e := entry printString |
578 e := entry printString |
579 ]. |
579 ]. |
580 titles at:index put:e |
580 titles at:index put:e |
581 ]. |
581 ]. |
582 shown ifTrue:[ |
582 shown ifTrue:[ |
583 self clear. |
583 self invalidate "/ clear; redraw |
584 self redraw |
|
585 ] |
584 ] |
|
585 |
|
586 "Modified: 29.5.1996 / 16:21:00 / cg" |
586 ! |
587 ! |
587 |
588 |
588 labels:titleArray selectors:selectorArray |
589 labels:titleArray selectors:selectorArray |
589 "define the menu-titles (group-headers) and selectors. |
590 "define the menu-titles (group-headers) and selectors. |
590 Selectors are mostly used as access keys to get to submenus later." |
591 Selectors are mostly used as access keys to get to submenus later." |
699 You should not use this method; instead leave the value as |
700 You should not use this method; instead leave the value as |
700 defined in the styleSheet." |
701 defined in the styleSheet." |
701 |
702 |
702 showSeparatingLines := aBoolean. |
703 showSeparatingLines := aBoolean. |
703 shown ifTrue:[ |
704 shown ifTrue:[ |
704 self setMenuOrigins. |
705 self setMenuOrigins. |
705 self redraw |
706 self invalidate |
706 ] |
707 ] |
|
708 |
|
709 "Modified: 29.5.1996 / 16:21:06 / cg" |
707 ! ! |
710 ! ! |
708 |
711 |
709 !PullDownMenu methodsFor:'drawing '! |
712 !PullDownMenu methodsFor:'drawing '! |
710 |
713 |
711 drawActiveTitleSelected:selected |
714 drawActiveTitleSelected:selected |
1527 ! ! |
1530 ! ! |
1528 |
1531 |
1529 !PullDownMenu class methodsFor:'documentation'! |
1532 !PullDownMenu class methodsFor:'documentation'! |
1530 |
1533 |
1531 version |
1534 version |
1532 ^ '$Header: /cvs/stx/stx/libwidg/PullDownMenu.st,v 1.57 1996-05-29 10:22:21 cg Exp $' |
1535 ^ '$Header: /cvs/stx/stx/libwidg/PullDownMenu.st,v 1.58 1996-05-29 14:37:45 cg Exp $' |
1533 ! ! |
1536 ! ! |