150 lines
10 KiB
Plaintext
150 lines
10 KiB
Plaintext
compile insert WINDOW_COMMON%
|
|
/* The Window Processor Common Area Definitions
|
|
|
|
This definition is the same as AREV.COMMON. Both insert records refer to
|
|
the same variables in memory, so you can use either in your programs.
|
|
|
|
By using the WINDOW_COMMON% block you are less likely to inadvertently use a
|
|
common variable as a local variable and introduce bugs into your program. We
|
|
recommend the use of WINDOW_COMMON% for all new development. AREV.COMMON is
|
|
provided for programs that already use that version of the common block.
|
|
|
|
*/
|
|
|
|
COMMON WC_SRC_FILE% ;* The Window's File's file-variable.
|
|
COMMON WC_SRC_DICT% ;* The Window's Dictionary's file-variable.
|
|
COMMON WC_XREF_WINDOW% ;* The Xref Window. Used in XREF.BROWSE
|
|
COMMON WC_WINDXY% ;* Upper-left and lower-right initial coordinates.
|
|
COMMON WC_LABEL% ;* Labels in the entry screen.
|
|
COMMON WC_KEY_FULL% ;* True when @ID contains the full key.
|
|
COMMON WC_PROMPTS% ;* The prompt data.
|
|
COMMON WC_TEMPLATE% ;* The Template record name.
|
|
COMMON WC_VSP_VY% ;* Vspace Y coordinate for current prompt.
|
|
COMMON WC_QUERY_TEMPLATE% ;* Contains stripped template used by QUERY process
|
|
COMMON WC_SOFT_KEYS% ;* The Soft Keys.
|
|
COMMON WC_SOFT_DATA% ;* The CATALYST calls associated with the above.
|
|
COMMON WC_AMV% ;* List of prompts that are AMVs.
|
|
COMMON WC_AMV_VARS% ;* Information maintained per set of AMVs. See WINDOW.CONSTANTS.
|
|
COMMON WC_RECALC% ;* List of prompts to be recalculated when a change occurs.
|
|
COMMON WC_DETAIL_HELP% ;* Catalyst call for Detail Help.
|
|
COMMON WC_JOINED_LOCKS% ;* Array of joined record keys that are locked.
|
|
COMMON WC_REDISPLAY_LIST% ;* List of prompts to redisplay.
|
|
COMMON WC_WINDOW_ACTION% ;* Causes Window shape changes. See WINDOW.CONSTANTS
|
|
COMMON WC_VSP_VLEN% ;* Vspace length for current prompt.
|
|
COMMON WC_DELETE_REC% ;* True means delete the current record.
|
|
COMMON WC_ID_NEXT% ;* The next @ID to use.
|
|
COMMON WC_BROWSE_NEXT% ;* The next Browse List to use.
|
|
COMMON WC_SAVE_REC% ;* True means save the current record.
|
|
COMMON WC_DISPLAY_ACTION% ;* Causes specific display actions. See WINDOW.CONSTANTS.
|
|
COMMON WC_INDEX_POPUP% ;* Catalyst Code/Command to support INDEX/QUERY POPUP
|
|
COMMON WC_HELP_PROTECT% ;* True means don't allow changes to Help text.
|
|
COMMON WC_INT_KEYS% ;* List of prompts where calculations depend on the current prompt.
|
|
COMMON WC_RELATED_KEYS% ;* The Related Keys.
|
|
COMMON WC_RELATED_DATA% ;* The Catalyst calls associated with the above.
|
|
COMMON WC_FREEFORM% ;* The Freeform printing definition.
|
|
COMMON WC_PREC% ;* The previous record.
|
|
COMMON WC_BLABEL% ;* The Window Title.
|
|
COMMON WC_PREPROC% ;* The Pre-Processes.
|
|
COMMON WC_POSTPROC% ;* The Post-Processes.
|
|
COMMON WC_TEMPLATE_FILE.NAME% ;* The name of the file containing the template.
|
|
COMMON WC_PSEUDO_FILE% ;* The collector window codes.
|
|
COMMON WC_JOINED_HANDLES% ;* Array of file handles associated with JOINED.LOCKS
|
|
COMMON WC_BROWSE_LIST% ;* The current Browse List.
|
|
COMMON WC_MAINT_KEY% ;* (Used in Paint only.)
|
|
COMMON WC_BROWSE_POPUP% ;* The Browse Popup. Used in XREF.BROWSE.
|
|
COMMON WC_XCNT% ;* The count of IDs in the current Browse List.
|
|
COMMON WC_TABLE_WIDTH% ;* The width of VSPACE needed for Table Mode.
|
|
COMMON WC_TUTORIAL% ;* Contains the code/cmd called when you press [Ctrl-F2].
|
|
COMMON WC_WIN_ACCOUNT% ;* This Window's Account.
|
|
COMMON WC_UPSWD% ;* This Window's Password.
|
|
COMMON WC_ULVL% ;* This Window's Restriction Level.
|
|
COMMON WC_RLIST_SELECT% ;* The R/LIST select criteria created by QUERY.
|
|
COMMON WC_RLIST_SORT% ;* The R/LIST sort fields created by QUERY.
|
|
COMMON WC_UBROWSE_LIST% ;* List of IDs that have been written.
|
|
COMMON WC_RING_PTR% ;* The position of the current ID in the Browse List.
|
|
COMMON WC_MPR_MODE% ;* MOVE/PAN/RESIZE mode flag
|
|
COMMON WC_DELIM% ;* The delimiter of the current prompt.
|
|
COMMON WC_VSP_VDEPTH% ;* Vspace depth for the current prompt.
|
|
COMMON WC_IS_ORIG% ;* The original value of the current prompt.
|
|
COMMON WC_YMAX% ;* The height of the window borders.
|
|
COMMON WC_STOP_LIST% ;* Contains the INDEX stop words
|
|
COMMON WC_QUERY_MODE% ;* True means QUERY mode entered at TCL instead of '\'
|
|
COMMON WC_LABEL_LIST% ;* USED IN REDISPLAY OF LABELS DISPLAY.ACTIONS = REDISPLAY.ALL$
|
|
COMMON WC_REPROC% ;* The Replacement Processes.
|
|
COMMON WC_PERPROC% ;* The Perpetual Process.
|
|
COMMON WC_WC% ;* The exit key from SCRIBE.
|
|
COMMON WC_WST_CHAR% ;* The starting key for SCRIBE.
|
|
COMMON WC_HCOLOR% ;* Prompt Highlight colors for editable fields
|
|
COMMON WC_WI% ;* The current prompt number.
|
|
COMMON WC_REC_MAP% ;* Recalculate map for dependent symbolics.
|
|
COMMON WC_OREC% ;* The original record.
|
|
COMMON WC_PKEY% ;* The previous key.
|
|
COMMON WC_XMAX% ;* The width of the window borders.
|
|
COMMON WC_KEY_CNT% ;* The count of prompts in the key.
|
|
COMMON WC_KEY_MAP% ;* List of prompts in the key.
|
|
COMMON WC_W_CNT% ;* The count of prompts in the window.
|
|
COMMON WC_SI% ;* The current prompt attributes.
|
|
COMMON WC_IS% ;* The current prompt data.
|
|
COMMON WC_IS_DFLT% ;* The default value for the current prompt.
|
|
COMMON WC_VIEWER_ENV% ;* Environmental array used by VIEW process.
|
|
COMMON WC_VIRTUAL% ;* Virtual space coordinates.
|
|
COMMON WC_WLX% ;* The left border position.
|
|
COMMON WC_WLY% ;* The top border position.
|
|
COMMON WC_WRX% ;* The right border position.
|
|
COMMON WC_WRY% ;* The bottom border position.
|
|
COMMON WC_WDONE% ;* True means done with this Window.
|
|
COMMON WC_WCHANGE% ;* True means the current prompt data has changed.
|
|
COMMON WC_REQ_FIELDS% ;* List of prompts that are required.
|
|
COMMON WC_REQ_CNT% ;* The count of prompts that are required.
|
|
COMMON WC_RESET% ;* The Reset flag. See WINDOW.CONSTANTS.
|
|
COMMON WC_LOCKING_ON% ;* True means lock the records.
|
|
COMMON WC_WLOCKED% ;* True means the record is available for changing.
|
|
COMMON WC_WEXIT_KEYS% ;* The exit keys passed to SCRIBE.
|
|
COMMON WC_MAIN_MENU% ;* The menu associated with this window.
|
|
COMMON WC_ATR_OVR% ;* The Window's display attributes.
|
|
COMMON WC_APPL_DOMAIN% ;* Reserved for future use
|
|
COMMON WC_JOINED_KEYS% ;* Array of record keys that relate to joined files.
|
|
COMMON WC_RECALC_CNT% ;* The count of prompts to be recalculated.
|
|
COMMON WC_DATAFILE% ;* The name of the data file.
|
|
COMMON WC_VWINDOW% ;* The virtual space buffer.
|
|
COMMON WC_VDX% ;* The left edge of the visible part of the window.
|
|
COMMON WC_VDY% ;* The right edge of the visible part of the window.
|
|
COMMON WC_VPREV% ;* The save image of the screen.
|
|
COMMON WC_WEXPLODE% ;* True means start the window with an explosion.
|
|
COMMON WC_VALID% ;* False means stop the current operation.
|
|
COMMON WC_FORCE_CHANGE% ;* True means force WCHANGE to true.
|
|
COMMON WC_TABLE_EXIT_MODE% ;* True means exit table mode at [Esc], else return to window mode.
|
|
COMMON WC_SCRIBE_FLAGS% ;* Passed to SCRIBE. See SCRIBE.FLAG.CONSTANTS.
|
|
COMMON WC_EXCEPT_KEYS% ;* The exception keys passed to SCRIBE.
|
|
COMMON WC_PSEUDO% ;* Contents of @PSEUDO when current window is called.
|
|
COMMON WC_LABEL_IMAGE% ;* Used to hold label print images.
|
|
COMMON WC_W_ENV% ;* Window Environment. See WINDOW.CONSTANTS.
|
|
COMMON WC_WI_NEXT% ;* The next prompt number to process.
|
|
COMMON WC_W%(WC_W_CNT%) ;* The prompt array. PROMPTS is MatParsed into here.
|
|
COMMON WC_VSP_VX% ;* Vspace X coordinate for current prompt.
|
|
COMMON WC_VIRTUAL_ON% ;* True means that part of the window is not visible.
|
|
COMMON WC_RING_NEXT% ;* The next value for RING.PTR.
|
|
COMMON WC_TABLE_ON% ;* True means we are in Table Mode.
|
|
COMMON WC_NEW_ID% ;* True means we have a new key in ID.NEXT.
|
|
COMMON WC_START% ;* The starting prompt after the key has been input.
|
|
COMMON WC_DATAFILE_NEXT% ;* The next data file name to use.
|
|
COMMON WC_NEW_BROWSE% ;* True means we have a new Browse List in BROWSE.NEXT.
|
|
COMMON WC_NEW_DATAFILE% ;* True means we have a new data file in DATAFILE.NEXT.
|
|
COMMON WC_CRT_VX% ;* The physical screen X-coordinate of the current prompt.
|
|
COMMON WC_CRT_VY% ;* The physical screen Y-coordinate of the current prompt.
|
|
COMMON WC_CRT_VLEN% ;* The physical screen length of the current prompt.
|
|
COMMON WC_CRT_VDEPTH% ;* The physical screen depth of the current prompt.
|
|
COMMON WC_PROMPT_TYPE% ;* The type of the current prompt. See WINDOW.CONSTANTS.
|
|
COMMON WC_MV_NEXT% ;* The next value index for the current AMV group.
|
|
COMMON WC_CURR_AMV_GROUP% ;* The current AMV group number.
|
|
COMMON WC_MV% ;* The current value index for the current AMV group.
|
|
COMMON WC_SCRIBE_STATE% ;* The state of SCRIBE after an exit. See SCRIBE.STATE.CONSTANTS.
|
|
COMMON WC_VHEAD% ;* More virtual space. Used in Table Mode.
|
|
COMMON WC_AMV_ACTION% ;* The action to perform on the current AMV group. See WINDOW.CONSTANTS.
|
|
COMMON WC_UNKEYS% ;* List of keys to disable in this window.
|
|
COMMON WC_LABEL_CNT% ;* Count of the number of labels in the window.
|
|
COMMON WC_REGISTER%(10) ;* Storage available for customizing window.
|
|
COMMON WC_REAL_DATAFILE% ;* The real datafile name is stored here for
|
|
* paint - Arev 2.0
|
|
COMMON WC_DICTFILE% ;* Dictionary File name
|