59 lines
3.0 KiB
Plaintext
59 lines
3.0 KiB
Plaintext
compile insert WINUS.CONSTANTS
|
|
* Winus constants
|
|
*
|
|
* Change History
|
|
*
|
|
* 01/16/87 JAW Changed to new edit keys definition
|
|
*
|
|
*
|
|
EQU ULINE TO CHAR(186)
|
|
EQU FORWARD TO 'F' : @FM
|
|
EQU ROUND TO 0.9999
|
|
EQU DFLT.NCOLS TO 7
|
|
*-->11/27/90 rkp commented this guy out. isn't used anywhere
|
|
*EQU NOHELP.EXIT TO 'No help specified ... press <Esc> to exit'
|
|
*-->11/27/90
|
|
*
|
|
* MENU.NAME field constants
|
|
*
|
|
EQU MTITLE TO 1 ;* Menu title in field 1
|
|
EQU MTYPE TO 2 ;* (No longer used? - 10/23/91 SLJ)
|
|
EQU MACCOUNTS TO 2 ;* Accounts with access to this menu.
|
|
EQU MDIM TO 3 ;* Number of columns in AREV-style menus.
|
|
EQU MSEL TO 4 ;* Menu selection. this value is diplayed to the user.
|
|
EQU MDESC TO 5 ;* Menu description
|
|
* Shows at bottom of menu or status line
|
|
* longer descriptions are stored as subvalues and are
|
|
* shown as default detail help
|
|
EQU MCOM TO 6 ;* Menu command. this command is processed when it is selected from menu
|
|
EQU MCODE TO 7 ;* Menu code. this is a code determines how to process MCOM
|
|
EQU MSELRESTRICT TO 8 ;* Restricion level of each item
|
|
EQU MCONCEPT TO 9 ;* Concept help (CODE,CMD or id)
|
|
EQU MCAPS TO 10 ;* Menu capital letter selections. bypasses movement keys
|
|
EQU MANCHOR TO 11 ;* Menu anchor. if a menu is anchored, the command selection will
|
|
* be processed without popping out of menu.
|
|
EQU MATR TO 12 ;* Menu video attributes.
|
|
EQU MUPSWD TO 13 ;* Menu password(s).
|
|
EQU MULEVEL TO 14 ;* Menu restriction level.
|
|
EQU MSELPSWD TO 15 ;* Menu passwords for individual selections.
|
|
* Multiple passwords stored as subvalues
|
|
EQU MTUTOR TO 16 ;* Default detail help (CODE,CMD or id)
|
|
EQU MHELP TO 17 ;* Help for each item (CODE,CMD or id)
|
|
EQU MPUSHSES TO 18 ;* Flag if true to push.session
|
|
EQU MOPTCODE TO 19 ;* Code and command for [F2]
|
|
EQU MOPTCMD TO 20
|
|
equ standalone to 21 ;* standalone flag
|
|
EQU MLEVEL TO 2
|
|
*
|
|
* MENU selection cases
|
|
*
|
|
EQU SAVESEL TO @FM : @MOVE.KEYS<ENTER$> : @FM : @INT.CONST<SAVE$> : @FM ;* Save current menu selection
|
|
EQU UPSEL TO @FM : @MOVE.KEYS<LEFT$> : @FM : @MOVE.KEYS<UP$> : @FM : @EDIT.KEYS<BACK$> : @FM ;* Move left, up, or back one selection
|
|
EQU DOWNSEL TO @FM : @MOVE.KEYS<RIGHT$> : @FM :@MOVE.KEYS<DOWN$> : @FM : " " : @FM ;* Move right, down, or over one selection
|
|
*
|
|
* Used for swapping @FM in and out of MENU.DATA
|
|
*
|
|
EQU SPOTS TO CHAR(250)
|
|
EQU MODULE$ TO 'MENU'
|
|
* Source Date: 15:54:19 04 MAY 1994 Build ID: AREV_HR*3.1.23 Level: 3.13
|