Closing Multiple Forms From Menu>Exit

From: Tim McConechy <tmcconec_at_gulf.uvic.ca>
Date: 1997/12/12
Message-ID: <3491C9B1.3FDDE72D_at_gulf.uvic.ca>#1/1

Hi! I am having a problem.
[Quoted] I have a multiple forms application and there is no more room for buttons on it.
There is a File>exit command and I want to close all the forms.. Using menu I can't set a global variable can I? Anyways all I can close is the first form!

Anyone else experienced this problem???

I have the following code....but it just closes all but the first form. DECLARE
  clw_frmid FormModule;
  image_frmid FormModule;
  srch_frmid FormModule;
  entry_frmid FormModule;
BEGIN
  clw_frmid := Find_Form('clw');
  IF NOT ID_NULL(clw_frmid) THEN

• message('close letter wizard', acknowledge); CLOSE_FORM(clw_frmid); ELSE
• message('clw is not opened', acknowledge); NULL; END IF;

  image_frmid := Find_Form('imaging2');
  IF NOT ID_NULL(image_frmid) THEN
-- message('close image viewer', acknowledge);

    CLOSE_FORM(image_frmid);
  ELSE
    NULL;
-- message('imaging is not opened', acknowledge);
  END IF;   entry_frmid := Find_Form('data_entry');   IF NOT ID_NULL(entry_frmid)THEN
-- message('close data entry', acknowledge);

    CLOSE_FORM('data_entry');
  ELSE
    NULL;
-- message('data entry is not opened');
  END IF;   srch_frmid := Find_Form('search_screen');   IF NOT ID_NULL(srch_frmid) THEN
-- message('close search_screen', acknowledge);

    CLOSE_FORM(srch_frmid);
  ELSE
    NULL;
-- message('search screen is not opened', acknowledge);
  END IF;
END; Received on Fri Dec 12 1997 - 00:00:00 CET