;; | ----------------------------------------------------------------------------
;; | DL_YesOrNo
;; | ----------------------------------------------------------------------------
;; | Function    : Dialog box that displays a message and the "Yes"  and "No"
;; |               buttons
;; | Arguments   : 'Title' - Dialog box title
;; |               'Msg'   - Dialog Box message display list (of strings)
;; | Returns     : "Yes" of "No" depending on what is picked.
;; | Author      : Rakesh Rao, (C) 2001, Four Dimension Technologies, Singapore
;; | Updated     : January 27, 2001
;; | e-mail   : rakesh.rao@4d-technologies.com 
;; | Web      : www.4d-technologies.com
;; | ----------------------------------------------------------------------------


(defun DL_YesOrNo_dlg ( Title MsgLst / RetVal )
(if (not (new_dialog "yesorno_dlg" #dcl_id))
	(exit)
)

(set_tile "dlg_title" Title)
(DL_FillLst MsgLst "txt_value")

(action_tile "accept" "(done_dialog 1)")
(action_tile "cancel" "(done_dialog 0)") 

(setq RetVal (start_dialog))
(cond
	((= RetVal 0)
		(setq RetVal "No")
	)
	((= RetVal 1)
		(setq RetVal "Yes")
	)
)
RetVal
)