I'm writing a Window-based Progress application. I have inserted an Activex Control : Macromedia Shockwave Flash Object and loaded the .swf movie...
My question is : How can I quit the 4gl application when the user clicks on a flash button ? i've tried to use FScommand("QUIT") in the .swf movie side and this code in the progress side :
But it causes a Runtime Progress crash
...
Does anyone knows why ?
MANY THANKS FOR ANY HELP...
My question is : How can I quit the 4gl application when the user clicks on a flash button ? i've tried to use FScommand("QUIT") in the .swf movie side and this code in the progress side :
Code:
&Scoped-define SELF-NAME CtrlFrame
PROCEDURE CtrlFrame.ShockwaveFlash.FSCommand .
DEFINE INPUT PARAMETER p-command AS CHARACTER NO-UNDO.
DEFINE INPUT PARAMETER p-args AS CHARACTER NO-UNDO.
IF p-command = "QUIT" THEN APPLY "CLOSE" TO c-win.
/* ... */
/* other p-command cases */
/* ... */
END PROCEDURE.But it causes a Runtime Progress crash
...Does anyone knows why ?
MANY THANKS FOR ANY HELP...