04A41 |
GETDF
|
( #menukey → ob )
Gets the definition of a menu key from
THOUCHTAB. #menukey = #1..#6
|
04A0B |
GETPROC
|
( #menukey → ob )
Gets the definition of a menu key from
THOUCHTAB. #menukey = #1..#6. With #7, get
the executor.
|
04A4C |
(SETDF)
|
|
04A57 |
(SETPROC)
|
|
2581B |
(BadMenu?)
|
( → flag )
Does the menu need an update?
|
25820 |
(SetBadMenu)
|
( → )
Mark the mennu as bad.
|
25825 |
(ClrBadMenu)
|
( → )
Mark the menu as OK.
|
25877 |
LabelDef!
|
( ob → )
Store a program which displays a menu label.
Prg has the stack diagram
( #col ob → )
For example, the LIBS command uses the
following program to make all menu label look
like directories:
:: DUPNULL$? ITE
MakeStdLabel MakeDirLabel
Grob>Menu ;
During execution, INDEX@ will contain the
menu key number.
|
2587C |
(LabelDef@)
|
( → ob )
Recall the current definition of LebelDef.
|
25908 |
LastMenuDef!
|
( menu → )
Sets the definition of the last menu. menu
is a MenuList or a program, or a Rompointer.
|
2590D |
LastMenuDef@
|
( → menu )
Recalls the definition of the last menu.
menu is a MenuList or a program, or a
Rompointer.
|
25903 |
(LastMenuDef?)
|
( ob → )
Is there a value for LastMenuDef?
|
25EFB |
SaveLastMenu
|
( → )
Stores row and definition of current menu as
the last menu.
|
260A8 |
LastMenuRow!
|
( #n → )
Sets the row of the last menu. #n is not the
row, but the index of the first menu key in
that row, i.e. 1,7,13,...
|
260AD |
LastMenuRow@
|
( → #n )
Recalls the index to the first menu key in
the current row of the last menu. Returns 1
for the first page, 7 for the second page, 13
for the third and so on.
|
2584F |
(MenuData!)
|
( ob → )
Store ob as the current MenuData definition.
|
25854 |
(MenuData@)
|
( → ob )
Recall the current MenuData definition.
|
2585E |
(GetMenuData)
|
( → )
|
2582D |
(MenuDef?)
|
( → )
Is there a current menu definition?
|
25840 |
(MenuDef!)
|
( ob → )
Store ob as the current menu definition.
|
25845 |
MenuDef@
|
( → menu )
Recalls the current menu definition. menu is
a MenuList or a program, or a Rompointer.
|
258EF |
(MenuExitAct!)
|
( ob → )
Store ob as exit action.
|
25EEF |
NoExitAction
|
( → )
Sets NOP as ExitAction. Mostly used to avoid
that the menu is saved as the previous menu
when a new Menu gets installed.
|
258F4 |
(MenuExitAct@)
|
( → ob )
Recall the current definition of MenuExitAct.
|
258FE |
(DoMenuExit)
|
( → )
Execute the current definition of MenuExitAct.
|
260B7 |
MenuRow!
|
( #n → )
Sets the menu row. #n is not the row, but
the index of the first menu key in that row,
i.e. 1,7,13,...
|
260BC |
MenuRow@
|
( → #n )
Recalls the index of the first menu key in
the current menu page. Returns 1 for the
first page, 7 for the second page, 13 for the
third and so on.
|
2589F |
MenuKeyLS!
|
( ob → ob )
Set the action for left-shifted menu keys.
The program receives the action part of the
menu item as an argument, i.e.
{ob-NS ob-LS ob-RS}.
|
25F02 |
StdMenuKeyLS
|
( {ob-NS ob-LS ob-RS} → ? )
The content of MenuKeyLS for standard menus.
|
258A4 |
(MenuKeyLS@)
|
( → ob )
Recall the current definition of MenuKeyLS.
|
258AE |
(DoMenuKeyLS)
|
???
Execute the current definition of MenuKeyLS.
|
2588B |
MenuKeyNS!
|
( og → ob )
Set the action for unshifted menu keys.
The program receives the action part of the
menu item as an argument, i.e. ob-NS or
{ob-NS ob-LS ob-RS}.
|
25890 |
MenuKeyNS@
|
( → ob )
Recall the action for unshifted menu keys.
|
25EFC |
SetKeysNS
|
( ob → )
Sets ob as MenuKeysNS, DoBadKey to LS & RS.
|
25F03 |
StdMenuKeyNS
|
( ob-NS → ? )
( {ob-NS ob-LS ob-RS} → ? )
The content of MenuKeyNS for standard menus.
|
258B3 |
MenuKeyRS!
|
( ob → ob )
Set the action for right-shifted menu keys.
The program receives the action part of the
menu item as an argument, i.e.
{ob-NS ob-LS ob-RS}.
|
258B8 |
(MenuKeyRS@)
|
( → ob )
Recall the current definition of MenuKeyRS.
|
258C2 |
(DoMenuKeyRS)
|
???
Execute the current definition of MenuKeyRS.
|
25809 |
(Rebuild?)
|
( → flag )
Does the menu need a rebuild?
|
2580E |
SetRebuild
|
( → )
Sets the flag that the menu needs to be
rebuild.
|
25813 |
(ClrRebuild)
|
( → )
Clear the menu Rebuild flag.
|
258C7 |
ReviewKey!
|
( ob → )
Store a program which is called with the
review key (RS DOWN). The program has the
stack diagram
( → )
|
258CC |
(ReviewKey@)
|
( → ob )
Recall the current definition of the review
program.
|
258D6 |
(DoReview)
|
( → )
Execute the program stored with ReviewKey!.
This program should show information about
the commands in the current menu page. The
default program just displays the full names
of the menu entries (retrieved with GETPROC
>Review$).
|
25863 |
MenuRowAct!
|
( ob → )
Stores ob as the RowAct menu property.
|
25868 |
(MenuRowAct@)
|
( → ob )
Recall the current MenuRowAct property.
|
25872 |
(DoMenuRowAct)
|
???
Execute the current MenuRowAct program.
|
257F7 |
(Track?)
|
( → flag )
Is there a Trach action defined for the
current menu?
|
257FC |
(SetTrack)
|
( ob → )
Set the program which should be executed when
the current directory changes. For many
menus, this is just a NOP, but for example
the VAR menu needs it to display the correct
variables.
|
25801 |
(ClrTrack)
|
( → )
Clear the TrackAct program.
|
258EA |
(DoTrack)
|
( → )
Execute the current TrackAct program.
|
25EE2 |
InitTrack:
|
( → )
Execute the program which is next in the
runstream if the directory changes. Used by
the VAR menu to set first menurow when
diretory changes, or by the CST menu to
rebuild it.
|
258DB |
(TrackAct!)
|
( ob → )
Store a program for the track action. This
program should have a stack diagram
( → ).
|
258E0 |
(TrackAct@)
|
( → ob )
Recall the current TrackAct program.
|