equal
deleted
inserted
replaced
21 |
21 |
22 PopUpMenu comment:' |
22 PopUpMenu comment:' |
23 COPYRIGHT (c) 1989 by Claus Gittinger |
23 COPYRIGHT (c) 1989 by Claus Gittinger |
24 All Rights Reserved |
24 All Rights Reserved |
25 |
25 |
26 $Header: /cvs/stx/stx/libwidg/PopUpMenu.st,v 1.19 1995-05-03 16:30:04 claus Exp $ |
26 $Header: /cvs/stx/stx/libwidg/PopUpMenu.st,v 1.20 1995-05-10 02:30:00 claus Exp $ |
27 '! |
27 '! |
28 |
28 |
29 !PopUpMenu class methodsFor:'documentation'! |
29 !PopUpMenu class methodsFor:'documentation'! |
30 |
30 |
31 copyright |
31 copyright |
42 " |
42 " |
43 ! |
43 ! |
44 |
44 |
45 version |
45 version |
46 " |
46 " |
47 $Header: /cvs/stx/stx/libwidg/PopUpMenu.st,v 1.19 1995-05-03 16:30:04 claus Exp $ |
47 $Header: /cvs/stx/stx/libwidg/PopUpMenu.st,v 1.20 1995-05-10 02:30:00 claus Exp $ |
48 " |
48 " |
49 ! |
49 ! |
50 |
50 |
51 documentation |
51 documentation |
52 " |
52 " |
680 offs := offs + 1. |
680 offs := offs + 1. |
681 dstOffs := dstOffs + 1 |
681 dstOffs := dstOffs + 1 |
682 ]. |
682 ]. |
683 self menu:(MenuView |
683 self menu:(MenuView |
684 labels:convertedLabels |
684 labels:convertedLabels |
685 selector:nil |
685 selectors:nil |
686 args:argArray |
686 args:argArray |
687 receiver:nil |
687 receiver:nil |
688 in:self) |
688 in:self) |
689 ! ! |
689 ! ! |
690 |
690 |