_rsteus.utl Utility - Restore EUS Keymap
Syntax
call "_rsteus.utl"
Description
The_rsteus.utl utility restores the EUS keymap. The value of the global string (!OUR_EDIT) is retrieved and set as the new value of the global string (!EDIT). The values of the global strings (!OUR_FKEYS) and (!OUR_EKEYS) are used to reload the function keys and edit keys, respectively. The message window is then created.
The global strings (!OUR_EDIT), (!OUR_FKEYS), and (!OUR_EKEYS) are created by the utility_lkeymap.utl.
Example
LET BBEXT$=STBL("BBEXT")
REM "Initialize Toolkit
CALL "_acu.utl"
REM "Initialize Keymap
CALL BBEXT$+"_lkeymap.utl"
REM "Do some specialize Toolkit Input
DIM INPUT$:STBL("!INPUT.TPL")
REM "Set input values ..
LET INPUT.COL=10,
INPUT.ROW=5,
INPUT.COLS=8,
INPUT.LENGTH=8,
CALL BBEXT$+"_ninput.utl"
REM "Use 'old' program for something
REM "program requires Restoring prior keymap
CALL BBEXT$+"_rstold.utl"
REM "call to application
LET PRG$=STBL("PROJECT")+"old_prog"
CALL PRG$
REM "Restore Toolkit environment
CALL BBEXT$+"_rsteus.utl"
REM "Continue processing