;;;Dialog - Find files by name.
;;;
;;;
;;;
;;;********************************************************************

(DEFUN c:find (/ rview sview eview del_key)
  (SETQ old_cmdecho (GETVAR "cmdecho"))
  (SETQ old_expert (GETVAR "expert"))
  (SETVAR "cmdecho" 0)
  (SETVAR "expert" 5)
  (IF found_list nil
    (SETQ found_list (list ""))
  )
  (SETQ num (LOAD_DIALOG "find"))
  (NEW_DIALOG "find" num)
  (MODE_TILE "find_name" 2)
;;;  (ACTION_TILE "find_name" "(mode_tile \"find_it\" 2)")
  (ACTION_TILE
    "find_name"
    "(setq ffname (get_tile \"find_name\"))"
  ) ;_ end of ACTION_TILE
  (ACTION_TILE "find_it" "(ff_lst)")
  (ACTION_TILE "Add_cancel" "(done_dialog 0)")
;;;  (set_sview_list)
  (START_LIST "found_files")
  (MAPCAR 'ADD_LIST found_list)
  (END_LIST)
  (START_DIALOG) 
  (SETVAR "cmdecho" old_cmdecho)
  (SETVAR "expert" old_expert)
  (PRINC)
) ;_ end of DEFUN

(defun ff_lst ()
  (setq errtxt (strcat "Finding " ffname ", please wait a few minutes."))
  (princ errtxt)
  (set_tile "error" errtxt)
  (setq found_list (dos_find ffname))
  (if found_list nil (list ""))
  (START_LIST "found_files")
  (MAPCAR 'ADD_LIST found_list)
  (END_LIST)
  (set_tile "error" "")
)
;|«ViLL© FORMAT OPTIONS...» (72 2 40 2 T "end of " 60 9 2 0 0 T T nil T)
 ***Don't add text below the comment!***|;