equal
deleted
inserted
replaced
21 PopUpMenu comment:' |
21 PopUpMenu comment:' |
22 |
22 |
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.4 1993-12-11 01:47:42 claus Exp $ |
26 $Header: /cvs/stx/stx/libwidg/PopUpMenu.st,v 1.5 1993-12-16 11:03:36 claus Exp $ |
27 |
27 |
28 written summer 89 by claus; |
28 written summer 89 by claus; |
29 ST-80 compatibility added Dec 92; |
29 ST-80 compatibility added Dec 92; |
30 '! |
30 '! |
31 |
31 |
218 |
218 |
219 selectorAt:index put:aSymbol |
219 selectorAt:index put:aSymbol |
220 "change a selector entry" |
220 "change a selector entry" |
221 |
221 |
222 menuView selectorAt:index put:aSymbol |
222 menuView selectorAt:index put:aSymbol |
|
223 ! |
|
224 |
|
225 subMenuAt:indexOrName |
|
226 "return a submenu - or nil if there is none" |
|
227 |
|
228 ^ menuView subMenuAt:indexOrName |
223 ! |
229 ! |
224 |
230 |
225 subMenuAt:indexOrName put:aMenu |
231 subMenuAt:indexOrName put:aMenu |
226 "define a submenu to be shown for entry indexOrName" |
232 "define a submenu to be shown for entry indexOrName" |
227 |
233 |