(in-package :test-package)
(use-package :oli)

(sd-defdialog 'Flaechenteile_loeschen
  :variables
  '(
     (BAUGRUPPE
       :value-type :assembly
       :modifies :contents
       )
     )
  :ok-action
  '(let ((counter 0)
	 (all-face-parts (sd-call-cmds
			   (get_selection 
			     :focus_type *sd-part-seltype*
			     :allow_face_part
			     :check_function #'(lambda (pa)
						 (if (sd-inq-face-part-p pa)
						   :ok
						   :filter))
			     :select :recursive :in_assembly BAUGRUPPE)
			   :failure (display "Irgendwas ging schief - Tests fehlen noch")))
	 )
     (setf counter (list-length all-face-parts))
     (dolist (face-part all-face-parts)
       (display (format nil "Flaechenteil '~A' versucht zu loeschen." (sd-inq-obj-pathname face-part)))
       (sd-call-cmds (delete_3d face-part)
	 :failure (progn
		    (decf counter)
		    (display "=> Kann Flaechenteil nicht loeschen."))))
     (display (format nil "Wirklich geloeschte Flaechenteile: ~A" counter))
     )
  )