(in-package :costum)
(use-package :OLI)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; ä Ì	Ä Ø		ö Î		Ö Ú		ü Ï		Ü Û		ß Þ
; 65280 Grün ; 16776960 Gelb ; 16777215 Weiss ; 16711680 Rot ; 255 Blau
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(setf Default_Dir (sd-get-current-working-directory))

(sd-defdialog 'ArbDatei_laden
		:dialog-title "Arbeitsdatei laden"
		:dialog-control :sequential

:variables '(
  
		(File_SES
			:value-type :filename 		  
						:direction
						:input
			;:show-select-menu nil
			:title "Datei"
			:prompt-text "Quelldatei angeben"
			:filename-incl-path t
			:initialdirectory "c:\\Temp\\Modeling\\"	
			:after-input (lade_dat)
		)
		
) ;; end variables


:ok-action
'()

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;; Lokale Funktionen ;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 
  
:local-functions
'(

(Lade_dat ()
			(sd-call-cmds (UNIVERSAL_LOAD :FILE (Format nil "~a" (first File_SES))))
			(sd-set-current-working-directory Default_Dir)
			cancel

) ; End Lade_dat
);end local-funktions
) ;; end dialog