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.
|
418F4 |
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.
|
419E4 |
LastMenuDef!
|
( menu → )
Sets the definition of the last menu. menu
is a MenuList or a program, or a Rompointer.
|
419F4 |
LastMenuDef@
|
( → menu )
Recalls the definition of the last menu.
menu is a MenuList or a program, or a
Rompointer.
|
4139B |
SaveLastMenu
|
( → )
Stores row and definition of current menu as
the last menu.
|
4186E |
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,...
|
41881 |
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.
|
418A4 |
MenuDef@
|
( → menu )
Recalls the current menu definition. menu is
a MenuList or a program, or a Rompointer.
|
419C4 |
MenuExitAct!
|
( ob → )
Store ob as exit action.
|
3EC85 |
NoExitAction
|
( → )
Sets NOP as ExitAction. Mostly used to avoid
that the menu is saved as the previous menu
when a new Menu gets installed.
|
41848 |
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,...
|
4185B |
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.
|
41944 |
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}.
|
401D4 |
StdMenuKeyLS
|
( {ob-NS ob-LS ob-RS} → ? )
The content of MenuKeyLS for standard menus.
|
41914 |
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}.
|
41924 |
MenuKeyNS@
|
( → ob )
Recall the action for unshifted menu keys.
|
3FCAF |
SetKeysNS
|
( ob → )
Sets ob as MenuKeysNS, DoBadKey to LS & RS.
|
4019D |
StdMenuKeyNS
|
( ob-NS → ? )
( {ob-NS ob-LS ob-RS} → ? )
The content of MenuKeyNS for standard menus.
|
41964 |
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}.
|
417F3 |
SetRebuild
|
( → )
Sets the flag that the menu needs to be
rebuild.
|
41984 |
ReviewKey!
|
( ob → )
Store a program which is called with the
review key (RS DOWN). The program has the
stack diagram
( → )
|
418D4 |
MenuRowAct!
|
( ob → )
Stores ob as the RowAct menu property.
|
41741 |
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.
|