🚀 go-pugleaf

In article <1992Nov11.184228.1@exodus.valpo.edu>, res_ewv@exodus.valpo.edu writes...
>Hello again
> 
>I now have EVE up and running as a kept editor, but I want to be able to
>redefine the CTRL-Z key to now do a WRITE and an ATTACH back to the calling
>process.  I can write a procedure to do both of these things, but I am having
>big problems binding the key to do this.  I am using the line in the TPU code
>DEFINE_KEY(procedure,CTRL_Z_KEY).  I get no error messages at all.  
> 
>Perhaps my problem is that the code is never being reached.  I am placing this
>in the EVE_ATTACH procedure.  This should get executed everytime EVE is called,
>correct?
> 
> 
>                                                                               
>                              Eric W. Vaandering                               

Put your key definition in a tpu$local_init procedure.  The following code
redefines CTRL/Z when I bring up the Motif interface of EVE, which I leave
running most of the time.  Since I use the CCT interface for News, VAXNotes,
VAXMail and several other things I can not break of the habbit of using it from
my "work" editor.

Note that this procedure references some V3.1 features of DECTPU and EVE 
multiple input files, generate buffer names...

procedure tpu$local_init
on_error
    [otherwise] :
	quit (off, 2);
endon_error;

    eve_set_keypad_edt;
    eve_set_scroll_margins ("15%","15%");
    eve$add_word_separators ("$!+%@(){}[]|\?/,;:=<>");
    eve$x_get_wild_active := true;	! read in multiple files

    eve$x_generate_bufnames := true;	! gen unique buf names
    !
    ! Override the ctrlz key in DECwindows not to exit unless I SHIFT it
    !
    if get_info (SCREEN, "decwindows") 
    then
    	define_key ('eve_do("")',  ctrl_z_key, 'Do');
    	define_key ('eve_exit',  key_name (ctrl_z_key, shift_modified), 
	'Exit');
    endif;

--------------------------------------------------------------------------------
Brian J. McCarthy 				Digital Equimpment Corp.
DECtpu/EVE Development Project Leader		Nashau, NH
--------------------------------------------------------------------------------