(use-package :oli)

(sd-defdialog 'Test_Eingabe
	:dialog-title "Achsenkreuz"
    :toolbox-button t

	; Aktive  Arbeitsebene muss vorhanden sein!

    :variables '(
		(Mittelpunkt 
			:value-type :point-2d
			:next-variable (seq-input)
		)
		
		(Laenge 
			:title "Länge der Achsen"
			:value-type :length
			:secondary-value-type :point-2d
			           :gui-value (when Laenge
                        (if (numberp Laenge)
                          (format nil "~A" Laenge)
                          "defined"))
			:before-input (progn
				(if Mittelpunkt
					(setq circle-fback (sd-start-rubbercircle-cen-feedback Mittelpunkt))	
				)
			) ;progn
            :after-input (progn
				(if (numberp Laenge)
				    (pprint "kann so bleiben")
				    ;;else
				    (progn
						(if (not Mittelpunkt)
							(progn
							(setq Laenge nil)
						   'Mittelpunkt
						   )
						   ;;else
						   (progn
							   (setq Laenge (SD-VEC-LENGTH(sd-vec-subtract Mittelpunkt Laenge)))
							   (pprint Laenge)
						   )
						)
					)
				)
				(sd-end-feedback circle-fback)
			) ;progn
			:next-variable (seq-input)
		)
	)
   :ok-action '()
   
   
   :local-functions '(
   		(seq-input ()

			(if (not Mittelpunkt)
				'Mittelpunkt
				(if (not Laenge)
				 'Laenge
				)
			)
		);;seq-input
	)
)