home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #26 / NN_1992_26.iso / spool / vmsnet / tpu / 496 < prev    next >
Encoding:
Internet Message Format  |  1992-11-12  |  3.3 KB
  1. Path: sparky!uunet!know!hri.com!noc.near.net!inmet!bu.edu!rpi!zaphod.mps.ohio-state.edu!moe.ksu.ksu.edu!mccall!info-tpu-newsgate!list
  2. From: galbrth@ac.dal.ca (Peter Galbraith)
  3. Newsgroups: vmsnet.tpu
  4. Subject: Re: Need help with binding keys.
  5. Message-ID: <01GR2MMW74TE003NFU@AC.DAL.CA>
  6. Date: 12 Nov 92 21:44:38 GMT
  7. Reply-To: Peter Galbraith <GALBRTH@AC.DAL.CA>
  8. Organization: The Internet
  9. Lines: 64
  10. Return-Path: <TPU-Mgr@SHSU.edu>
  11. Errors-To: TPU-Mgr@SHSU.edu
  12. X-Listname: Text Processing Utility (TPU) Language Discussion List
  13. CC: INFO-TPU@SHSU.edu
  14. X-Vms-To: IN%"res_ewv@exodus.valpo.edu"
  15. X-Vms-Cc: INFO-TPU,GALBRTH
  16. Mime-Version: 1.0
  17. Content-Transfer-Encoding: 7BIT
  18.  
  19. In a message of 12 Nov 1992 00:42:28 +0000 (GMT)
  20. Received on Wed, 11 Nov 1992 22:09:09 -0400
  21.  
  22. res_ewv@exodus.valpo.edu wrote
  23. to: Text Processing Utility (TPU) Language Discussion List <INFO-TPU@SHSU.edu>
  24.  
  25. > Hello again
  26. >
  27. > I now have EVE up and running as a kept editor, but I want to be able to
  28. > redefine the CTRL-Z key to now do a WRITE and an ATTACH back to the calling
  29. > process.  I can write a procedure to do both of these things, but I am having
  30. > big problems binding the key to do this.  I am using the line in the TPU code
  31. > DEFINE_KEY(procedure,CTRL_Z_KEY).  I get no error messages at all.
  32. >
  33. > Perhaps my problem is that the code is never being reached.  I am placing this
  34. > in the EVE_ATTACH procedure.  This should get executed everytime EVE is called
  35.    ,
  36. > correct?
  37. >
  38.  
  39.  
  40. You can put the write_file command just before the ATTACH;
  41. command in EVE_ATTACH, or simply define the key with two commands:
  42.  
  43. DEFINE_KEY ("EVE_WRITE_FILE(''); EVE_ATTACH", CTRL_Z_KEY);
  44.  
  45.  
  46. I also suggest that you get FLIST.  It comes packaged with a few DCL
  47. and TPU routines to make a good kept-editor (ability to to include new
  48. file upon attching back to EVE, follow the new default directory,...)
  49.  
  50.  
  51. Here's the info on flist:
  52.  
  53. FLIST v2.1 is a file and directory manager written in VAX TPU and MACRO-32.
  54. It is similar in functionality to SWING, but the emphasis is on files more
  55. than directory trees (although graphical trees are supported).  Using
  56. FLIST, you can display files matching a wildcard specification and edit,
  57. copy, rename, delete, purge, and view the files, all without leaving FLIST.
  58. FLIST has proven, for me, to be an invaluable aid when cleaning up
  59. directories, because you can easily view a file's contents, delete or
  60. rename it, and move on to the next file.
  61.  
  62. FLIST is available via an e-mail file server and anonymous ftp.
  63.  
  64. FLIST v2.1 is distributed as a VMS_SHARE file in seven parts (60 blocks
  65. each).  To retrieve the files via mail, send the following line in the
  66. body of a mail message to FILESERV@WKUVX1.BITNET
  67.  
  68. SEND FLIST
  69.  
  70. For a listing of other packages, include the command DIR ALL on a separate
  71. line.
  72.  
  73. Thanks to George Greenwade, you can also pick up FLIST using anonymous ftp
  74. to Niord.SHSU.edu (192.92.115.8) or from the fileserver there (send SEND
  75. FLIST in the body of a message to FILESERV@SHSU.BITNET or
  76. FILESERV@SHSU.EDU).  A backup saveset containing the files can be found in
  77. the [.FLIST.FTP] directory.
  78.  
  79.  _____________________________________________________________________________
  80.  Peter Galbraith       [Phone: (902) 494-7007] |  GALBRTH@AC.DAL.CA (InterNet)
  81.  Dept. of Oceanography,  Dalhousie University  |  GALBRTH@DALAC     (BitNet)
  82.  Halifax, Nova Scotia, Canada, B3H 4J1         |  rhogee@dalcs      (UUCP)
  83.