;;--------------------------------------------------------------------------*
;; Dateiname: HK_Verzeichnis_lesen.lsp
;; Revision : 1.0
;; Datum    : 20.03.2006
;; Author   : Tasche
;; Version   :14A
;;--------------------------------------------------------------------------*
;; Modulbeschreibung:                                                                    
;;                                                                                                  
;;                                                                                                  
;;--------------------------------------------------------------------------*
(use-package :oli)
(in-package :mei)
;;--------------------------------------------------------------------------*
;; 
;;--------------------------------------------------------------------------*
;; Vorgaben setzen:
;;--------------------------------------------------------------------------*
;;
;;--------------------------------------------------------------------------*
(sd-defdialog 'HK_Verzeichnis_einlesen
		:toolbox-button t
   	:dialog-title "HK Verzeichnis einlesen"
   	:prompt-text "Punkte lesen"
   	:dialog-control :parallel
	   :dialog-type :terminate
   	:variables'(
   		(hk_datei_name
   			:value-type :filename
            :title "Name"
            :add-suffix t
            :direction :input
            :filename-incl-path t
            :initialPattern "*.txt"
     		);;hk_datei_name

     		
	   	
				              
	);variables
	      
	:local-functions
	'(
		(hk-punkte-aus-datei-lesen ()
			(with-open-file (input-stream info :direction :input)
				(SETF readIn (READ-LINE input-stream NIL 'eof))
				(display readIn)
			);;
		);;hk-punkte-aus-datei-lesen
		 
	);;local-functions
	
	
	
	:ok-action
	'(hk-punkte-aus-datei-lesen)
	
);sd-defdialog