!*************************************************************************
!									 *
! © Copyright 2005 Hewlett-Packard Development Company, L.P.		 *
!									 *
! Confidential computer software. Valid license  from  HP  required  for *
! possession, use or copying. Consistent with  FAR  12.211  and  12.212, *
! Commercial Computer Software,  Computer  Software  Documentation,  and *
! Technical  Data  for  Commercial  Items  are  licensed  to  the   U.S. *
! Government under vendor's standard commercial license.		 *
!									 *
!*************************************************************************
 
!++
! Facility:
!   eXtended LSE (XLSE)
! 
! Abstract:
!   Defines XLSE's EDT VT100 Keypad key bindings.
! 
! Author:
!   W. Ward Clark, CASEE Group
! 
! Creation Date: 18-Sep-88
! 
!--

PROCEDURE xlse__define_edt_vt100_keys
!+
!   XLSE Keypad Bindings - EDT VT100 keypad
!-
LOCAL key;
key := 'DEFINE KEY ';
!+
!   Numeric Keypad
!-
LSE$DO_COMMAND( key + 'gold/kp8 "DO/TPU ""xlse_fill('''')"""' +
				'/leg=" Fill" /top="Fill"' );
!+
!   Define GOLD-letter keys.
!-
LSE$DO_COMMAND( key + 'gold/G "DO/TPU xlse_read_file"' +
			      '/leg="" /top="[~tbs~]"' );
LSE$DO_COMMAND( key + 'gold/I "DO/TPU xlse_insert_placeholder"' +
			      '/leg="" /top="[~tbs~]"' );
LSE$DO_COMMAND( key + 'gold/M "DO/TPU xlse_set_mark"' +
			      '/leg="" /top="[~tbs~]"' );
LSE$DO_COMMAND( key + 'gold/R "DO/TPU xlse_review"' +
			      '/leg="" /top="REVIEW"' );
LSE$DO_COMMAND( key + 'gold/S "DO/TPU bsj$search"' +
			      '/leg="" /top="[~tbs~]"' );
!+
!   Define "special" main keyboard keys.
!-
LSE$DO_COMMAND( key + 'gold/, "DO/TPU ""xlse_find_mark(FORWARD)"""' +
			      '/leg="" /top="[~tbs~]"' );
ENDPROCEDURE