Problem with Dockable Form.

[velasquez]

HI  javascript:void(0);
The code that I posted doesn't work with Dockable Form. 
That is normal?

Code Select Expand

(defun c:DclForm1_OK_OnClicked ()
    (dcl_Form_Close diatest_DclForm1)
    (setq nextDlg 2)
)

(defun c:DclForm2_OK_OnClicked ()
    (dcl_Form_Close diatest_DclForm2)
    (setq nextDlg 1)
)
;;;
(defun c:test (/ nextDlg)
  (setq nextDlg 1)
  (while (/= nextDlg NIL)
    (cond
      ((= nextDlg 1)
       (setq nextDlg Nil)
       (dcl_Form_Show diatest_DclForm1)
      )
      ((= nextDlg 2)
       (setq nextDlg nil)
       (dcl_Form_Show diatest_DclForm2)
      )
    ) ;_ fim de cond
  ) ;_ fim de while
) ;_ fim de defun


[owenwengerd]

Did you expect the while loop to continue while the dialogs are displayed?  If that was your intention, it will not continue because you set nextDlg to NIL inside the loop.  Just change your OnClicked handlers to open the appropriate "next" dialog.

[velasquez]

Hi Owen, 
I didn't understand your answer well. 
I posted the files.lsp and odcl. 
This code works well with Modal Form.

I thank if you can me to show how it works with Dockable.

[velasquez]

Hi, 
Could anybody test the files that I posted and to tell me which my mistake? 
Thanks 

[BazzaCAD]

Try this....
But wouldn't it be easier to just use a Palette...

[velasquez]

Hi Barry 
Your code worked perfectly. 
I am using this to simulate a Palette in OpenDcl 4.1.2.2 
Thank you very much for your help.