(in-package :CRESPO)
(use-package :OLI)

(sd-defdialog 'punkt_richtung
	:dialog-control :sequential
	:variables '(
		(FB	:initial-value nil)
		
		(UI_PNT1	:value-type :point-2d
			:title "AnfangsPunkt"
		)
		(UI_PNT2	:value-type :point-2d
			:title "AnfangsPunkt"
			:start-input-feedback (l-start-fb)
			:end-input-feedback (l-end-fb)
		)
	)
	:ok-action '(l-mach-was)
	:local-functions '(
		(l-mach-was ()
			(display "Hier wird nun was getan")
		)
		(l-start-fb ()
			(l-end-fb)
			(setq FB (sd-start-rubberinfline-feedback UI_PNT1))
		)
		(l-end-fb ()
			(when FB
				(sd-end-feedback FB)
				(setq FB nil)
			)
		)
	)
)