_rstold.utl Utility - Restore Old Keymap
Syntax
call "_rstold.utl"
Description
The _rstold.utl utility restores the keymap that was in use before the keyboard configuration program _lkeymap.utl was called.
The message window is DROPed, and the value of the global string (!OLD_EDIT) is retrieved and set as the new value of the global string (!EDIT). The values of the global strings (!OLD_FKEYS) and (!OLD_EKEYS) are used to reload the function keys and edit keys, respectively.
The global strings (!OLD_EDIT), (!OLD_FKEYS), and (!OLD_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 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",input$,val$,ctlval
REM "Return to 'normal processing
REM "Restore prior keymap
CALL BBEXT$+"_rstold.utl"
REM "Return to application
RUN "myprog"