Re: Interrupt button on PROMPT statement in Dynamic-4GL
Posted in 1998
I figured out that I needed to change the default keys for the prompt statement in FGLDIR/etc/fglprofile. I changed the value of Prompt.defKeys from "return" to "interrupt". Candy -----Original Message----- From: Candy McCall <candym@olcinc.com> To: Informix List <informix-list@iiug.org> Date: Thursday, August 27, 1998 12:07 PM Subject: Re: Interrupt button on PROMPT statement in Dynamic-4GL >I just ran this test case on NT and it doesn't appear to work there >either. If I press Control-C (interrupt key on NT), it does work on >the prompt statement, but pressing on the button on the right >(the Return or Interrupt) does nothing. > BTW, how can one change the interrupt key on NT. I know >on Unix, one uses "stty". > >Candy >-- >Candy McCall >ONLINE Computing, Inc. >(candym@olcinc.com) > >-----Original Message----- >From: Candy McCall <candym@olcinc.com> >To: Informix List <informix-list@iiug.org> >Date: Monday, August 24, 1998 12:50 PM >Subject: Interrupt button on PROMPT statement in Dynamic-4GL > > >>The interrupt button (Button on right) does not appear to >>be working on a PROMPT statement in Dynamic-4GL. >>However, pressing the interrupt key does work on the >>prompt statement. We're using SCO OpenServer 5.0.4. >> >>Here is a test case demonstrating the behavior: >> >> >>MAIN >> DEFINE answer CHAR(1) >>--# >>--# >>--#-----Initialize Dynamic-4GL >>--# >>--# CALL fgl_init4js() >>--# CALL fgl_settitle("Test Prompt") >> DEFER INTERRUPT >> WHILE TRUE >> LET int_flag = FALSE >> PROMPT "Press Interrupt key or Interrupt button to exit." >> FOR CHAR answer >> IF int_flag THEN >> LET int_flag = FALSE >> EXIT WHILE >> END IF >> END WHILE >> >>END MAIN >> >>Thanks for any help in verifying this problem! >> >>Candy >>-- >>Candy McCall >>ONLINE Computing, Inc. >>(candym@olcinc.com) >> >> >> > >