2008-10-23 15:03 UTC
Hi... First post so Hello to all..
I'm not sure how to get OpenDCL show a dialog and wait for me to click something on the dialog, and then show the second dialog?. My feeble attempt is shown below, the idea is to get a response from the first, and if it's true, go on to the second, but what actually happens is that the first flashes on and off and goes straight to the second before I've had a chance to click in it. I guess the answer may be to use Modal Dialogs instead of Modeless, but would appreciate the advice of an expert.
Thanks
Pete
(defun c:GetStartandEnd ()
(if (setq usc (getstartchain))
(if (setq dsc (getendchain))
(addsingletemplate usc dsc)
)
)
)
(defun getstartchain ()
(Odcl_LoadProject "manualtemplate.odc" T)
(Odcl_Form_Show manualtemplate_Form1)
)
(defun getendchain ()
(Odcl_Form_Show manualtemplate_Form2)
)
I'm not sure how to get OpenDCL show a dialog and wait for me to click something on the dialog, and then show the second dialog?. My feeble attempt is shown below, the idea is to get a response from the first, and if it's true, go on to the second, but what actually happens is that the first flashes on and off and goes straight to the second before I've had a chance to click in it. I guess the answer may be to use Modal Dialogs instead of Modeless, but would appreciate the advice of an expert.
Thanks
Pete
(defun c:GetStartandEnd ()
(if (setq usc (getstartchain))
(if (setq dsc (getendchain))
(addsingletemplate usc dsc)
)
)
)
(defun getstartchain ()
(Odcl_LoadProject "manualtemplate.odc" T)
(Odcl_Form_Show manualtemplate_Form1)
)
(defun getendchain ()
(Odcl_Form_Show manualtemplate_Form2)
)