!*************************************************************************
!									 *
! © 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 key bindings common to all XLSE keypads.
! 
! Author:
!   W. Ward Clark, CASEE Group
! 
! Creation Date: 18-Sep-88
! 
!--

PROCEDURE xlse__define_common_keys
!+
!   XLSE Keypad Bindings - all keypads, all keyboards
!-
LOCAL key;
key := 'DEFINE KEY ';
!+
!   Define arrow keys.
!-
LSE$DO_COMMAND( key + 'gold/up   "DO/TPU xlse_previous_window"' +
				 '/leg="PrvWind" /top="[~tbs~]"' );
LSE$DO_COMMAND( key + 'gold/down "DO/TPU xlse_next_window"' +
				 '/leg="NxtWind" /top="[~tbs~]"' );
!+
!   Define "special" main keyboard keys.
!-
LSE$DO_COMMAND( key + 'ret_key      "DO/TPU ""xlse_enter_line('''')"""' +
				    '/leg="" /top=""' );
LSE$DO_COMMAND( key + 'gold/ret_key "DO/TPU ""xlse_enter_line(''/NOCOMMENT'')"""' +
				    '/leg="" /top=""' );
LSE$DO_COMMAND( key + 'gold/tab_key "SET INDENTATION CURSOR"' +
				    '/leg="" /top="[~tbs~]"' );
LSE$DO_COMMAND( key + '"`"          "DO/TPU xlse_expand"' +
				    '/leg="" /top="[~tbs~]"' );
!+
!   Define control character keys.
!-
LSE$DO_COMMAND( key + 'ctrl/E	   "DO/TPU xlse_expand"' +
				   '/leg="" /top="Expand"' );
LSE$DO_COMMAND( key + 'gold/ctrl/L "DO/TPU ""xlse_change_case(LOWER)"""' +
				   '/leg="" /top="[~tbs~]"' );
LSE$DO_COMMAND( key + 'gold/ctrl/U "DO/TPU ""xlse_change_case(UPPER)"""' +
				   '/leg="" /top="[~tbs~]"' );
!+
!   Define GOLD/special keys.
!-
LSE$DO_COMMAND( key + 'gold/`   "UNEXPAND"' +
				'/leg="" /top="Unexpand"' );
LSE$DO_COMMAND( key + 'gold/+   "SPLIT WINDOW"' +
				'/leg="" /top="[~tbs~]"' );
LSE$DO_COMMAND( key + 'gold/"!" "ENTER COMMENT/BLOCK"' +
				'/leg="" /top="[~tbs~]"' );
LSE$DO_COMMAND( key + 'gold/\   "DO/TPU xlse_new_modification"' +
				'/leg="" /top="[~tbs~]"' );
LSE$DO_COMMAND( key + 'gold/|   "DO/TPU xlse_modification_remark"' +
				'/leg="" /top="[~tbs~]"' );
LSE$DO_COMMAND( key + 'gold/[   "DO/TPU ""xlse_match_parenthesis(NONE)"""' +
				'/leg="" /top="[~tbs~]"' );
LSE$DO_COMMAND( key + 'gold/]   "DO/TPU ""xlse_match_parenthesis(BOLD)"""' +
				'/leg="" /top="[~tbs~]"' );
LSE$DO_COMMAND( key + 'gold/$   "DO/TPU ""xlse_dcl_command('''')"""' +
				'/leg="" /top="[~tbs~]"' );
!+
!   Define GOLD/letter keys.
!-
LSE$DO_COMMAND( key + 'gold/C "DO/TPU xlse_compile"' +
			      '/leg="" /top="[~tbs~]"' );
LSE$DO_COMMAND( key + 'gold/D "DO/TPU ""copy_text(xlse_current_date)"""' +
			      '/leg="" /top="[~tbs~]"' );
LSE$DO_COMMAND( key + 'gold/E "DO/TPU ""erase(message_buffer)"""' +
			      '/leg="" /top="[~tbs~]"' );
LSE$DO_COMMAND( key + 'gold/F "DO/TPU ""xlse_fill('''')"""' +
			      '/leg="" /top="Fill"' );
LSE$DO_COMMAND( key + 'gold/J "DO/TPU xlse_join_lines"' +
			      '/leg="" /top="[~tbs~]"' );
LSE$DO_COMMAND( key + 'gold/N "DO/TPU rnf_do_diff_next"' +
			      '/leg="" /top="[~tbs~]"' );
LSE$DO_COMMAND( key + 'gold/P "DO/TPU rnf_do_diff_prev"' +
			      '/leg="" /top="[~tbs~]"' );
LSE$DO_COMMAND( key + 'gold/O "DO/TPU xlse_combine_buffers"' +
			      '/leg="" /top="[~tbs~]"' );
LSE$DO_COMMAND( key + 'gold/Q "DO/TPU xlse_quit"' +
			      '/leg="" /top="[~tbs~]"' );
LSE$DO_COMMAND( key + 'gold/T "DO/TPU xlse_toggle_tabs"' +
			      '/leg="" /top="[~tbs~]"' );
LSE$DO_COMMAND( key + 'gold/W "DO/TPU xlse_toggle_width"' +
			      '/leg="" /top="[~tbs~]"' );
!+
!   Define ALT/letter keys.
!-
LSE$DO_COMMAND( key + 'alt/A "DO/TPU xlse_align_list"' +
			      '/leg="" /top="[~tbs~]"' );

ENDPROCEDURE