How to have Multiple Dialog Boxes on the Screen

Keywords:     dialog editor dialog boxes 6

---

Question:

How would you create a child dialog for say a setup up page using the dialog6.x system.

I guess the real question is can you launch a second dialog from a dialog form?

Answer:

Basically you would set up a call back procedure, in which you would call the embedded dialog.

Here is some sample code:

#DefineFunction MainDialogCallbackProc(MainDialog_Handle,MainDialog_Message,MainDialog_ID,rsvd1,rsvd2)
   ;DialogprocOptions Constants
   MSG_INIT=0                ; The one-time initilization
   MSG_TIMER=1               ; Timer event
   MSG_BUTTONPUSHED=2        ; Pushbutton or Picturebutton
  
   switch MainDialog_Message
      case MSG_INIT

         DialogProcOptions(MainDialog_Handle,MSG_BUTTONPUSHED,@TRUE)
         return(-1)

     case MSG_BUTTONPUSHED  ;ID 001
			ChildDialogFormat=`WWWDLGED,6.1`
			ChildDialogCaption=`Child Dialog`
			ChildDialogX=010
			ChildDialogY=050
			ChildDialogWidth=150
			ChildDialogHeight=100
			ChildDialogNumControls=001
			ChildDialogProcedure=`DEFAULT`
			ChildDialogFont=`DEFAULT`
			ChildDialogTextColor=`DEFAULT`
			ChildDialogBackground=`DEFAULT,DEFAULT`
			ChildDialogConfig=1
			
			ChildDialog001=`050,046,048,010,PUSHBUTTON,DEFAULT,"Push Me",1,1,32,DEFAULT,DEFAULT,DEFAULT`
			
			ChildDialogButtonPushed=Dialog("ChildDialog")


        return(-1)      ;  Do default processing

   endswitch       ; MainDialog_Message
   return(-1)      ;  Do default processing
#EndFunction       ;End of Dialog Callback MainDialogCallbackProc

;============================================================
;============================================================
;============================================================





MainDialogFormat=`WWWDLGED,6.1`

MainDialogCaption=`Main Dialog`
MainDialogX=010
MainDialogY=990
MainDialogWidth=300
MainDialogHeight=200
MainDialogNumControls=001
MainDialogProcedure=`MainDialogCallbackProc`
MainDialogFont=`DEFAULT`
MainDialogTextColor=`DEFAULT`
MainDialogBackground=`DEFAULT,DEFAULT`
MainDialogConfig=1

MainDialog001=`120,090,048,030,PUSHBUTTON,DEFAULT,"Push Me",1,1,32,DEFAULT,DEFAULT,DEFAULT`

MainDialogButtonPushed=Dialog("MainDialog")

---