home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #19 / NN_1992_19.iso / spool / vmsnet / tpu / 397 next >
Encoding:
Internet Message Format  |  1992-08-30  |  2.4 KB
  1. Path: sparky!uunet!zaphod.mps.ohio-state.edu!news.acns.nwu.edu!nucsrl!ddsw1!inland!cmkrnl!infopiz!mccall!info-tpu-newsgate!list
  2. Newsgroups: vmsnet.tpu
  3. Subject: Re: Binding EVE_FIND_NEXT to a double key stroke.
  4. Message-ID: <41F78F6840C01697@SCS.SLAC.STANFORD.EDU>
  5. From: "ken Fairfield; [415] 926-2924 SLAC"
  6. Date: Sat, 29 Aug 1992 16:38 PDT
  7. Reply-To: "Ken Fairfield; [415] 926-2924 SLAC"
  8. Organization: The Internet
  9. Return-Path: <TPU-Mgr@SHSU.edu>
  10. Errors-To: TPU-Mgr@SHSU.edu
  11. X-Listname: Text Processing Utility (TPU) Language Discussion List
  12. CC: info-tpu@shsu.edu
  13. X-Envelope-To: info-tpu@shsu.edu
  14. X-Vms-To: IN%"W_COSTA@UNHH.UNH.EDU"
  15. X-Vms-Cc: IN%"info-tpu@shsu.edu"
  16. Lines: 44
  17.  
  18. From:    IN%"W_COSTA@UNHH.UNH.EDU" 28-AUG-1992 22:03:51.47
  19. To:    info-tpu@shsu.edu
  20. CC:
  21. Subj:    Binding EVE_FIND_NEXT to a double key stroke.
  22.  
  23. Bill Costa (W_COSTA@UNHH.UNH.EDU) wrote:
  24. > TPU folks...
  25. >
  26. >    Easy question (I hope).  I've figured out that to make CTRL-F call the
  27. >    EVE_FIND routine, I can use the following TPU code in a COMMAND file:
  28. >
  29. >        define_key('eve_find("")', key_name(CTRL_F_KEY));
  30. >
  31. >    But how would I bind CTRL-F CTRL-F (i.e. pressing CTRL-F twice) to the
  32. >    eve_find_next routine?  (I've tried using the EVE$ source in
  33. >    SYS$EXAMPLES: for inspiration, but there's too much I still don't
  34. >    understand about TPU.)
  35.  
  36.     In essence, it already is ;-)  But you're missing a third parameter
  37. in your define_key which is used by EVE$GET_FIND_TARGET (through EVE_FIND)
  38. to decide that the key you typed at the "Find:" prompt was the key that
  39. invoked EVE_FIND.  You need:
  40.  
  41.        define_key('eve_find("")', CTRL_F_KEY, " find");
  42.  
  43. Look in SYS$EXAMPLES:EVE$CORE.TPU at the procedure EVE$GET_FIND_TARGET for
  44. (all the gory) details.
  45.  
  46.     If you'd rather not have to hit ctrl/f twice, that is, you'd like to
  47. do a FIND NEXT with a single key stroke, put the following in your command
  48. file:
  49.  
  50.            define_key('eve$find_next', ctrl_g_key, " find_next");
  51.  
  52. Notice that you don't need a "key_name(...)" either here or in your eve_find
  53. definition...
  54.  
  55.         Cheers, Ken
  56. --
  57.  Dr. Kenneth H. Fairfield    |  Internet: Fairfield@Slacvx.Slac.Stanford.Edu
  58.  SLAC, P.O.Box 4349, MS 98   |  DECnet:   45537::FAIRFIELD (45537=SLACVX)
  59.  Stanford, CA   94309        |  BITNET    Fairfield@Slacvx
  60.  ----------------------------------------------------------------------------
  61.  These opinions are mine, not SLAC's, Stanford's, nor the DOE's...
  62.