Thread View: vmsnet.tpu
2 messages
2 total messages
Started by res_ewv
Thu, 12 Nov 1992 00:42
Need help with binding keys.
Author: res_ewv
Date: Thu, 12 Nov 1992 00:42
Date: Thu, 12 Nov 1992 00:42
27 lines
2121 bytes
2121 bytes
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
____________________________________________________________________________
|BITNet: RES_EWV@VALPO USPS Net: Eric Vaandering |
|InterNet: RES_EWV@exodus.valpo.edu Brandt Hall |
|PhoneNet: (219) 464-5868 Valparaiso, IN 46383 |
|____________________________________________________________________________|
| |
| What I said back then -- well, it's hard to find. Number one, I |
| didn't say it. |
| -- George Bush, on calling Reagan's policies |
| ``voodoo economics'' during the 1980 primaries. |
| NBC rebroadcast the tape. |
|____________________________________________________________________________|
Re: Need help with binding keys.
Author: Brian J. McCarthy
Date: Fri, 13 Nov 1992 11:33
Date: Fri, 13 Nov 1992 11:33
53 lines
2703 bytes
2703 bytes
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
--------------------------------------------------------------------------------
Thread Navigation
This is a paginated view of messages in the thread with full content displayed inline.
Messages are displayed in chronological order, with the original post highlighted in green.
Use pagination controls to navigate through all messages in large threads.
Back to All Threads