Fw: Break key in IUA

[GCC]

> -----Original Message-----
> From: filepro-list-bounces at lists.celestial.com 
> [mailto:filepro-list-bounces at lists.celestial.com] On Behalf 
> Of Jeff Harrison
> Sent: Tuesday, October 25, 2005 11:30 PM
> To: filePro List
> Subject: Re: Fw: Break key in IUA
> 
> --- Howard Wolowitz <howiewz at beonthenet.com> wrote:
> 
> [snip] 
> > 
> > If you mean while waiting for the "Enter Selection
> > >" response it too is
> > possible.
> > 
> > @entsel
> > 
> > huh       show 'the keys you will allow the user to
> > press
> >             cls ("21","1")
> >             show("22","26") "Enter Selection  > "
> >              a=waitkey
> > 
> >             If  a ne ""        'you can also test a
> > for only keys you want
> > the user to access
> >             pushkey a;     end
> > 
> >             if         @sk="brky"
> >             Then    do you thing
> > 
> >             if         @sk ne ""
> >             Then   pushkey "[" & @sk & "]";     end
> > 
> >             goto huh
> > 
> >  Howie
> > 
> >
> 
> waitkey ... very cool solution.  You then use pushkey so you 
> don't even loose the @key processing that may be set up - or 
> the hardcopy/delete/browse etc options.
> 
> Hats off to you Howie!
> 
> Jeff Harrison
> jeffaharrison at yahoo.com
> 
> Author of JHImport and JHExport. The fastest and easiest ways 
> to create code for filePro Imports and Exports. 

Did not see howie's response.

However, I tried the above processing and the breakkey is not trapped.

I did the following test

@entsel:
	if:
    then:declare extern bkey
	if: 
    then: a = waitkey
	if: a= "1"
    then: show "@1 key presses";switchto 1;end
	if: a = "0"
    then: show "@0 key pressed";switchto 0;end
	if: a="x"
    then: show "@X pressed";exit;end
	if: @sk = "BRKY"
    then: bkey="Y";show "@I Break Pressed";END

In auto processing
	if:
    then: declare global bkrey(1,yesno)
	if: bkey = "Y"
    then: show "@break Key pressed, auto";END

Since I ran this code from a test file, using record # access, when break was
pressed, I was returned to the enter record # option.

Richard Kreiss
GCC Consulting