_cleanup.utl Utility - Clean Up Environment
Syntax
call "_cleanup.utl"
Description
The _cleanup.utl utility removes both the current EUS keymap and the global strings used by the EUS Toolkit.
The keymap that was in use prior to calling the Toolkit configuration program is restored, and the message window is removed. All global groups used by the Input Subsystem and the Menu System are cleared as well as the EUS configuration global strings.
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
…
REM " Clean up and return to 'old' application
CALL STBL("BBEXT")+"_cleanup.utl"
REM " Assume that the (PROJECT) Global was set before
REM " calling _acu.utl -- therefore, it will not be
REM " cleared
LET APPL$=STBL("PROJECT")+"MY_APP"
REM " Exit if CALLed program
IF TCB(13) THEN EXIT
RUN APPL$