;; | ----------------------------------------------------------------------------
;; | DL_FillLst
;; | ----------------------------------------------------------------------------
;; | Function    : Fill a popup of listbox with a list of string values
;; | Arguments   :
;; |               'Lst' - List of Strings
;; |               'Key' - Key to populate
;; | Updated     : July 4, 1999
;; | e-mail   : rakesh.rao@4d-technologies.com 
;; | Web      : www.4d-technologies.com
;; | ----------------------------------------------------------------------------


(defun DL_FillLst( Lst Key )
(start_list Key)
(mapcar 'add_list Lst)
(end_list)
)