home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #26 / NN_1992_26.iso / spool / vmsnet / tpu / 497 < prev    next >
Encoding:
Text File  |  1992-11-13  |  2.6 KB  |  65 lines
  1. Newsgroups: vmsnet.tpu
  2. Path: sparky!uunet!zaphod.mps.ohio-state.edu!wupost!decwrl!pa.dec.com!nntpd2.cxo.dec.com!nntpd.lkg.dec.com!evetpu.enet.dec.com!mccarthy
  3. From: mccarthy@evetpu.enet.dec.com (Brian J. McCarthy)
  4. Subject: Re: Need help with binding keys.
  5. Message-ID: <1992Nov13.114040.2414@nntpd.lkg.dec.com>
  6. Sender: usenet@nntpd.lkg.dec.com (USENET News System)
  7. Organization: Digital Equipment Corporation
  8. References:   <1992Nov11.184228.1@exodus.valpo.edu>
  9. Date: Fri, 13 Nov 1992 11:33:59 GMT
  10. Lines: 53
  11.  
  12.  
  13. In article <1992Nov11.184228.1@exodus.valpo.edu>, res_ewv@exodus.valpo.edu writes...
  14. >Hello again
  15. > 
  16. >I now have EVE up and running as a kept editor, but I want to be able to
  17. >redefine the CTRL-Z key to now do a WRITE and an ATTACH back to the calling
  18. >process.  I can write a procedure to do both of these things, but I am having
  19. >big problems binding the key to do this.  I am using the line in the TPU code
  20. >DEFINE_KEY(procedure,CTRL_Z_KEY).  I get no error messages at all.  
  21. > 
  22. >Perhaps my problem is that the code is never being reached.  I am placing this
  23. >in the EVE_ATTACH procedure.  This should get executed everytime EVE is called,
  24. >correct?
  25. > 
  26. > 
  27. >                                                                               
  28. >                              Eric W. Vaandering                               
  29.  
  30. Put your key definition in a tpu$local_init procedure.  The following code
  31. redefines CTRL/Z when I bring up the Motif interface of EVE, which I leave
  32. running most of the time.  Since I use the CCT interface for News, VAXNotes,
  33. VAXMail and several other things I can not break of the habbit of using it from
  34. my "work" editor.
  35.  
  36. Note that this procedure references some V3.1 features of DECTPU and EVE 
  37. multiple input files, generate buffer names...
  38.  
  39. procedure tpu$local_init
  40. on_error
  41.     [otherwise] :
  42.     quit (off, 2);
  43. endon_error;
  44.  
  45.     eve_set_keypad_edt;
  46.     eve_set_scroll_margins ("15%","15%");
  47.     eve$add_word_separators ("$!+%@(){}[]|\?/,;:=<>");
  48.     eve$x_get_wild_active := true;    ! read in multiple files
  49.  
  50.     eve$x_generate_bufnames := true;    ! gen unique buf names
  51.     !
  52.     ! Override the ctrlz key in DECwindows not to exit unless I SHIFT it
  53.     !
  54.     if get_info (SCREEN, "decwindows") 
  55.     then
  56.         define_key ('eve_do("")',  ctrl_z_key, 'Do');
  57.         define_key ('eve_exit',  key_name (ctrl_z_key, shift_modified), 
  58.     'Exit');
  59.     endif;
  60.  
  61. --------------------------------------------------------------------------------
  62. Brian J. McCarthy                 Digital Equimpment Corp.
  63. DECtpu/EVE Development Project Leader        Nashau, NH
  64. --------------------------------------------------------------------------------
  65.