🚀 go-pugleaf

From:	IN%"W_COSTA@UNHH.UNH.EDU" 28-AUG-1992 22:03:51.47
To:	info-tpu@shsu.edu
CC:
Subj:	Binding EVE_FIND_NEXT to a double key stroke.

Bill Costa (W_COSTA@UNHH.UNH.EDU) wrote:
> TPU folks...
>
>    Easy question (I hope).  I've figured out that to make CTRL-F call the
>    EVE_FIND routine, I can use the following TPU code in a COMMAND file:
>
>    	define_key('eve_find("")', key_name(CTRL_F_KEY));
>
>    But how would I bind CTRL-F CTRL-F (i.e. pressing CTRL-F twice) to the
>    eve_find_next routine?  (I've tried using the EVE$ source in
>    SYS$EXAMPLES: for inspiration, but there's too much I still don't
>    understand about TPU.)

    In essence, it already is ;-)  But you're missing a third parameter
in your define_key which is used by EVE$GET_FIND_TARGET (through EVE_FIND)
to decide that the key you typed at the "Find:" prompt was the key that
invoked EVE_FIND.  You need:

       define_key('eve_find("")', CTRL_F_KEY, " find");

Look in SYS$EXAMPLES:EVE$CORE.TPU at the procedure EVE$GET_FIND_TARGET for
(all the gory) details.

    If you'd rather not have to hit ctrl/f twice, that is, you'd like to
do a FIND NEXT with a single key stroke, put the following in your command
file:

       	define_key('eve$find_next', ctrl_g_key, " find_next");

Notice that you don't need a "key_name(...)" either here or in your eve_find
definition...

		Cheers, Ken
--
 Dr. Kenneth H. Fairfield    |  Internet: Fairfield@Slacvx.Slac.Stanford.Edu
 SLAC, P.O.Box 4349, MS 98   |  DECnet:   45537::FAIRFIELD (45537=SLACVX)
 Stanford, CA   94309        |  BITNET    Fairfield@Slacvx
 ----------------------------------------------------------------------------
 These opinions are mine, not SLAC's, Stanford's, nor the DOE's...