;; ! ****************************************************************************
;; ! DL_Output_Ctrl_dlg
;; ! ****************************************************************************
;; ! Function    : Output Control Dialog for specifying Destination layer and
;; !               object handling.
;; ! Arguments   : 'CtrlLst' - Control List denotes how the output objects have to
;; !               handled.
;; !               (list {"Source" / "Current"} {"Yes" / "No"})
;; ! Author      : Rakesh Rao, (C) Four Dimension Technologies, Singapore
;; ! Updated     : July 19, 1999
;; ! e-mail   : rakesh.rao@4d-technologies.com 
;; ! Web      : www.4d-technologies.com
;; ! ****************************************************************************


(defun DL_Output_Ctrl_dlg( CtrlLst / Lyr DelOrg RetVal _RetVal )

(if (not (new_dialog "output_ctrl_dlg" #dcl_id))
	(exit)
)

(setq
	Lyr    (nth 0 CtrlLst)
	DelOrg (nth 1 CtrlLst)
)

(if (= Lyr "Source")
	(set_tile "source" "1")
	(set_tile "current" "1")
)

(set_tile "del_org" (if (= DelOrg "Yes") "1" "0"))

(action_tile "accept" "(DL_Disp_OCD)")
(action_tile "cancel" "(done_dialog 99)")

(setq RetVal (start_dialog))

(if (/= RetVal 99)
(progn
	(setq _RetVal (list "Source" "Yes"))
	(if (not (zerop (logand RetVal 1)))
		(setq _RetVal (LI_RepList _RetVal 1 "Source"))
		(setq _RetVal (LI_RepList _RetVal 1 "Current"))
	)

	(if (not (zerop (logand RetVal 2)))
		(setq _RetVal (LI_RepList _RetVal 2 "Yes"))
		(setq _RetVal (LI_RepList _RetVal 2 "No"))
	)
	(setq RetVal _RetVal)
)
(setq RetVal nil)
)
RetVal
)