;;;Place typical notes from editable list.
;;;
;;;
;;;
;;;********************************************************************

(DEFUN c:typn (/ rview sview eview del_key)
  (SETQ old_cmdecho (GETVAR "cmdecho"))
  (SETQ old_expert (GETVAR "expert"))
  (SETVAR "cmdecho" 0)
  (SETVAR "expert" 5)
  (SETQ typ_n_list nil)
  (SETQ num (LOAD_DIALOG "typn"))
  (NEW_DIALOG "typn" num)
  (MODE_TILE "typ_notes" 2)
  (MODE_TILE "Edit_note" 1)
;;;  (MODE_TILE "Delete_note" 1)
;  (ACTION_TILE "view_note" "")
;  (ACTION_TILE "view_desc" "") 
  (ACTION_TILE
    "Save_note"
    "(setq typn (get_tile \"typ_notes\"))(done_dialog)"
  ) ;_ end of ACTION_TILE
  (ACTION_TILE
    "Edit_note"
    "(setq eview (get_tile\"typ_notes\"))(done_dialog)"
  ) ;_ end of ACTION_TILE 
  (ACTION_TILE
    "Delete_note"
    "(setq del_key (get_tile\"typ_notes\"))(done_dialog)"
  ) ;_ end of ACTION_TILE
  (ACTION_TILE
    "Place_note"
    "(setq rview (get_tile \"typ_notes\"))(done_dialog)"
  ) ;_ end of ACTION_TILE
  (set_typn_list)
  (START_LIST "typ_notes")
  (MAPCAR 'ADD_LIST typ_n_list)
  (END_LIST)
  (START_DIALOG) 
;  (COND	((AND rview (/= rview "")) ;_ end of AND
;	 (restore_view)
;	)
;	((AND typn (/= typn "")) (save_view))
;	((AND eview (/= eview "")) (edit_view))
;	((AND del_key (/= del_key "")) (delete_note))
;  ) ;_ end of COND
  (SETVAR "cmdecho" old_cmdecho)
  (SETVAR "expert" old_expert)
  (PRINC)
) ;_ end of DEFUN
(defun set_typn_list ()
(setq found_tnlist (findfile "typn.dat"))
(if found_tnlist
  (progn
    (setq typn_file (open found_tnlist "r"))
    (while (setq typ_note (read-line typn_file))
      (if typ_n_list
        (setq typ_n_list (append typ_n_list (list typ_note)))
	(setq typ_n_list (list typ_note))
      )
    )
    (setq typ_n_list (acad_strlsort typ_n_list))
  )
  (setq typ_n_list (list "No typical note list found"))
)
)