;; | ---------------------------------------------------------------------------
;; | MI_GetKeyWords
;; | ---------------------------------------------------------------------------
;; | Function : Accept a predefined list of keywords with default option
;; | Arguments:
;; |            'str'    - Prompt String to display
;; |            'dflt'   - Default Value
;; |            'kwdLst' - List of Keywords to display
;; |            'ColDisp'- Column Display of keywords
;; |
;; | Action   : Returns the selected keyword
;; | Updated  : May 14, 1999
;; | e-mail   : rakesh.rao@4d-technologies.com 
;; | Web      : www.4d-technologies.com
;; | ---------------------------------------------------------------------------


(defun MI_GetKeyWords ( str dflt kwdLst ColDisp / kwd tmpStr )

(if ColDisp
(progn
	(foreach kwd kwdLst
		(princ (strcat "\n" kwd))
	)
	(setq tmpStr "")
)
(setq tmpStr (LI_Lst2Str kwdLst "/"))
)

(initget (LI_Lst2Str kwdLst " "))
(setq kwd (getkword (strcat str " [ " tmpStr " ] <" dflt ">:")))
(if (not kwd) (setq kwd dflt))
kwd
)