equal
deleted
inserted
replaced
397 accelerators:collectionOfShortKeys |
397 accelerators:collectionOfShortKeys |
398 "set the accelerator keys collection. |
398 "set the accelerator keys collection. |
399 You should pass translated symbolic keys - the menu will automatically |
399 You should pass translated symbolic keys - the menu will automatically |
400 show the untranslated original key sequences." |
400 show the untranslated original key sequences." |
401 |
401 |
402 shortKeys := collectionOfShortKeys. |
402 shortKeys := collectionOfShortKeys copy. |
403 maxShortKeyStringLen := nil. |
403 maxShortKeyStringLen := nil. |
404 shown ifTrue:[ |
404 shown ifTrue:[ |
405 self resize |
405 self resize |
406 ] ifFalse:[ |
406 ] ifFalse:[ |
407 needResize := true |
407 needResize := true |
408 ]. |
408 ]. |
409 |
409 |
410 "Created: 28.2.1996 / 17:15:31 / cg" |
410 "Created: 28.2.1996 / 17:15:31 / cg" |
411 "Modified: 28.2.1996 / 18:27:30 / cg" |
411 "Modified: 30.4.1996 / 15:55:14 / cg" |
412 ! |
412 ! |
413 |
413 |
414 actionAt:indexOrName |
414 actionAt:indexOrName |
415 "return an individual action" |
415 "return an individual action" |
416 |
416 |
835 ! |
835 ! |
836 |
836 |
837 args:anArray |
837 args:anArray |
838 "set the argument array" |
838 "set the argument array" |
839 |
839 |
840 args := anArray |
840 args := anArray copy |
|
841 |
|
842 "Modified: 30.4.1996 / 15:55:03 / cg" |
841 ! |
843 ! |
842 |
844 |
843 argsAt:indexOrName put:something |
845 argsAt:indexOrName put:something |
844 "set an individual selector" |
846 "set an individual selector" |
845 |
847 |
977 ! |
979 ! |
978 |
980 |
979 labels:text selectors:selArray accelerators:shorties args:argArray receiver:anObject |
981 labels:text selectors:selArray accelerators:shorties args:argArray receiver:anObject |
980 "set all relevant stuff" |
982 "set all relevant stuff" |
981 |
983 |
982 self labels:text. |
984 self labels:text selectors:selArray args:argArray receiver:anObject. |
983 selectors := selArray. |
985 shortKeys := shorties copy. |
984 args := argArray. |
|
985 receiver := anObject. |
|
986 shortKeys := shorties. |
|
987 |
986 |
988 "Created: 28.2.1996 / 18:56:38 / cg" |
987 "Created: 28.2.1996 / 18:56:38 / cg" |
|
988 "Modified: 30.4.1996 / 15:54:48 / cg" |
989 ! |
989 ! |
990 |
990 |
991 labels:text selectors:selArray args:argArray receiver:anObject |
991 labels:text selectors:selArray args:argArray receiver:anObject |
992 "set all relevant stuff" |
992 "set all relevant stuff" |
993 |
993 |
994 self labels:text. |
994 self labels:text. |
995 selectors := selArray. |
995 selectors := selArray copy. |
996 args := argArray. |
996 args := argArray copy. |
997 receiver := anObject |
997 receiver := anObject |
|
998 |
|
999 "Modified: 30.4.1996 / 15:54:21 / cg" |
998 ! |
1000 ! |
999 |
1001 |
1000 receiver |
1002 receiver |
1001 "return the receiver of the message" |
1003 "return the receiver of the message" |
1002 |
1004 |
1068 ! |
1070 ! |
1069 |
1071 |
1070 selectors:anArray |
1072 selectors:anArray |
1071 "set the selector array" |
1073 "set the selector array" |
1072 |
1074 |
1073 selectors := anArray |
1075 selectors := anArray copy |
|
1076 |
|
1077 "Modified: 30.4.1996 / 15:54:07 / cg" |
1074 ! |
1078 ! |
1075 |
1079 |
1076 someMenuItemLabeled:aLabel |
1080 someMenuItemLabeled:aLabel |
1077 "find a menu item. |
1081 "find a menu item. |
1078 Currently, in ST/X, instances of MenuItem are only created as dummy" |
1082 Currently, in ST/X, instances of MenuItem are only created as dummy" |
2447 ! ! |
2451 ! ! |
2448 |
2452 |
2449 !MenuView class methodsFor:'documentation'! |
2453 !MenuView class methodsFor:'documentation'! |
2450 |
2454 |
2451 version |
2455 version |
2452 ^ '$Header: /cvs/stx/stx/libwidg/MenuView.st,v 1.73 1996-04-30 13:53:23 cg Exp $' |
2456 ^ '$Header: /cvs/stx/stx/libwidg/MenuView.st,v 1.74 1996-04-30 13:55:48 cg Exp $' |
2453 ! ! |
2457 ! ! |