Procedure editor stays up when application is quit

Posted by LegacyUser on 23-Oct-2000 09:17

Hi,

I run a .w file. When I hit the cancel button to quit the application, procedure editor opens and stays till I close it. The CANCEL button event code is presented below.

&Scoped-define SELF-NAME BUTTON-CANCEL

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL BUTTON-CANCEL C-Win

ON CHOOSE OF BUTTON-CANCEL IN FRAME DEFAULT-FRAME /* Done */

DO:

&IF DEFINED (adm-panel) <> 0 &THEN

RUN dispatch IN THIS-PROCEDURE ('exit').

&ELSE

APPLY "CLOSE":U TO THIS-PROCEDURE.

&ENDIF

Can anyone help me on how to get rid of the procedure editor?

Thanks

Sid

END.

All Replies

Posted by LegacyUser on 26-Oct-2000 16:10

Jagabandhu,

In the trigger for the cancel button,give a QUIT statement after the preprocessor statement.This will help you in coming out of the session.

Hope it helps you,

Rajesh

>

>Hi,

>

>I run a .w file. When I hit the cancel button to quit

>the application, procedure editor opens and stays till

>I close it. The CANCEL button event code is presented

>below.

>

>&Scoped-define SELF-NAME BUTTON-CANCEL

>&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL BUTTON-CANCEL

>C-Win

>ON CHOOSE OF BUTTON-CANCEL IN FRAME DEFAULT-FRAME /* Done

>*/

>DO:

&IF DEFINED (adm-panel) <> 0 &THEN

RUN dispatch IN THIS-PROCEDURE ('exit').

&ELSE

APPLY "CLOSE":U TO THIS-PROCEDURE.

&ENDIF

>Can anyone help me on how to get rid of the procedure

>editor?

>

>Thanks

>

>Sid

>END.

>

Posted by LegacyUser on 04-Dec-2000 11:32

USE : QUIT. ( basic !!!! )

"Rajesh Aravindakshan" wrote:

>

>Jagabandhu,

In the trigger for the cancel button,give a QUIT statement

>after the preprocessor statement.This will help you in

>coming out of the session.

>

>Hope it helps you,

>Rajesh

>

>>

>>Hi,

>>

>>I run a .w file. When I hit the cancel button to quit

>>the application, procedure editor opens and stays till

>>I close it. The CANCEL button event code is presented

>>below.

>>

>>&Scoped-define SELF-NAME BUTTON-CANCEL

>>&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL BUTTON-CANCEL

>>C-Win

>>ON CHOOSE OF BUTTON-CANCEL IN FRAME DEFAULT-FRAME /*

>Done

>>*/

>>DO:

>> &IF DEFINED (adm-panel) <> 0 &THEN

>> RUN dispatch IN THIS-PROCEDURE ('exit').

>> &ELSE

>> APPLY "CLOSE":U TO THIS-PROCEDURE.

>> &ENDIF

>>

>>Can anyone help me on how to get rid of the procedure

>>editor?

>>

>>Thanks

>>

>>Sid

>>END.

>>

>

This thread is closed