;; | ----------------------------------------------------------------------------
;; | TX_Display
;; | ----------------------------------------------------------------------------
;; | Function : Displays the given list of text strings in a dialog box
;; | Arguments: 'TxtLst' - List of Text strings to display
;; |            'Title'  - Title of the dialog box
;; |            'Mode'
;; |                   1 - Ok Only
;; |                   2 - Yes No
;; |                   3 - Agree Disagree
;; | Returns  : 0 - Cencel pressed
;; |            1 - Yes    pressed
;; | Author   : Rakesh Rao
;; |            (C) 2008, Four Dimension Technologies, Bangalore
;; | Action   : -as above-
;; | Updated  : October 15, 1999
;; | e-mail   : rakesh.rao@4d-technologies.com 
;; | Web      : www.4d-technologies.com
;; | -----------------------------------------------------------------------------


(defun TX_Display( TxtLst Title Mode )
(cond
	((= Mode 1)
		(if (or
				#DevVersion
				(= #OperatingEnv "BricsCAD")
				(/= #ProductName "GeoTools")
			)
			(progn
				(setq #dcl_id2 (load_dialog #DclFile2))
				(if (not (new_dialog "text_disp_ok_dlg" #dcl_id2))
					(exit)
				)
			)
			(progn
				(if (not (new_dialog "text_disp_ok_dlg" #dcl_id))
					(exit)
				)
			)
		)
	)
	((= Mode 2)
		(if (or
				#DevVersion
				(= #OperatingEnv "BricsCAD")
				(/= #ProductName "GeoTools")
			)
			(progn
				(setq #dcl_id2 (load_dialog #DclFile2))
				(if (not (new_dialog "text_disp_yesno_dlg" #dcl_id2))
					(exit)
				)
			)
			(progn
				(if (not (new_dialog "text_disp_yesno_dlg" #dcl_id))
					(exit)
				)
			)
		)
	)
	((= Mode 3)
		(if (or
				#DevVersion
				(= #OperatingEnv "BricsCAD")
				(/= #ProductName "GeoTools")
			)
			(progn
				(setq #dcl_id2 (load_dialog #DclFile2))
				(if (not (new_dialog "text_disp_agrdis_dlg" #dcl_id2))
					(exit)
				)
			)
			(progn
				(if (not (new_dialog "text_disp_agrdis_dlg" #dcl_id))
					(exit)
				)
			)
		)
	)
)

(DL_FillLst TxtLst "txt_disp")
(set_tile "txt_label" Title)
(action_tile "accept" "(done_dialog 1)")
(action_tile "cancel" "(done_dialog 0)")

(setq RetVal (start_dialog))
)