open-insight/SYSPROG/STPROCINS/WINDOW.CONSTANTS.txt
2024-03-25 15:17:34 -07:00

88 lines
1.9 KiB
Plaintext

Compile Insert window.constants
* rjc 12-08-15 Import from Arev_bp
* W.ENV LAYOUT
EQU NEXT.HELP.NO$ TO 1
EQU VARY.TYPE$ TO 2
EQU VARY.POS$ TO 3
EQU PRESERVE.KEYS$ TO 4
EQU PRESERVE.FIELDS$ TO 5
EQU DFLT.MASK$ TO 6
EQU BROWSE.OFF$ TO 8
* DISPLAY.ACTION DEFINITIONS
EQU REDISPLAY.HIGHLIGHTS$ TO 4
EQU REDISPLAY.PROMPTS$ TO 5
EQU REDISPLAY.LIST$ TO 6
EQU REDISPLAY.ALL$ TO 7
EQU RECALC.PROMPTS$ TO 9
* WINDOW.ACTION DEFINITIONS
EQU TOGGLE.TW.MODE$ TO 1
EQU PRINT.BROWSE.LIST$ TO 2
EQU MPR.MODE$ TO 12
EQU PAN.MODE$ TO 4
EQU MOVE.MODE$ TO 8
EQU RESIZE.MODE$ TO 12
* PROMPT.TYPE DEFINITIONS
EQU PT.FILE$ TO 1
EQU PT.KEY$ TO 2
EQU PT.SYMBOLIC$ TO 3
EQU PT.DATA$ TO 4
* AMV.VARS DEFINITIONS
EQU AMV.DISPLAY$ TO 1
EQU AMV.WIDTH$ TO 2
EQU AMV.DEPTH$ TO 3
EQU AMV.MAX$ TO 4
EQU AMV.LINER$ TO 5
* AMV.ACTION DEFINITIONS
EQU AMV.CLEAR$ TO 1
EQU AMV.DELETE$ TO 2
EQU AMV.INSERT$ TO 3
EQU AMV.CHANGED$ TO 4
EQU AMV.CHANGED.ALL$ TO 5
* MODULE # PARAMETER TO JOINER()
EQU READ.ALL.JOINS$ TO 1
EQU CHANGE.JOIN$ TO 2
EQU UNLOCK.JOIN$ TO 3
EQU UPDATE.JOIN$ TO 4
EQU DELETE.JOIN$ TO 5
EQU INIT.JOIN$ TO 6
EQU JOIN.COUNT$ TO 9
* PSEUDO.FILE LAYOUT
EQU PSEUDO.SETUP$ TO 1
EQU PSEUDO.SAVE$ TO 4
EQU PSEUDO.EXIT$ TO 7
*EQU PSEUDO.SET$ TO 8 (Removed to allow collector window to null pseudo.file)
* FORMAT TYPE
EQU TEXT TO 'T'
EQU NOFORMAT TO 'TN'
* RESET VALUES
EQU CLEAN.UP.LINE$ TO 1
EQU CLEAN.UP.EDIT$ TO 2
EQU RESET.EDIT$ TO 3
EQU RESET.PROMPT$ TO 4
EQU RESET.RECORD$ TO 5
EQU RESET.WINDOW$ TO 6
* EXTRA KEY DEFINITIONS
*EQU COPY.KEY$ TO \002E\ ;* 02/02/88 - DW - SPEC 111 USED IN WIN.INT
* Source Date: 13:11:06 28 JUL 1992 Build ID: AREV*2.2.58 Level: 2.2