;;--------------------------------------------------------------------------*
;;  Copyright 2009  DC4 Technisches Büro GmbH                               *
;;                                                                          *
;;--------------------------------------------------------------------------*

(in-package :custom)

(use-package :OLI)

;;--------------------------------------------------------------------------*

(sd-defdialog 'dc4-leere-baugruppen-ausblenden-dialog
:dialog-title "leere Baugruppen"
;;:dialog-control :sequential
:variables
  '(
    (bgr   :selection (*sd-assembly-seltype*)
           :multiple-items t
           :show-select-menu t
           :title "Baugruppen"
           :initial-value nil
           :check-function
           #'(lambda (wert)
              (let ()
              (if (sd-inq-obj-children wert)
                :error ;; (values :error "Die Baugruppe muss leer sein!")
                :ok
               );;if
              );;let
             );;lambda
           :after-input (after-bgr-action)
    )
   )
:local-functions
  '(
    (after-bgr-action ()
     (let (input)
						(setf input (sd-display-warning "Alle leeren Baugruppen jetzt loeschen?"
																			:title "Achtung!"
																			:push-1 "Weiter"
																			:push-2 "Abbrechen"
																			:severity :low
						))
						(if (eql input :yes)
						     (delete-bgr-action)
						  (return)
						)
					);;let
				)
    (delete-bgr-action ()
     (let (kind)
						(display "Folgende Baugruppen wurden geloescht:")
						(dolist (kind bgr)
							(display (sd-inq-obj-pathname kind))
							(sd-call-cmds (delete_3d (sd-inq-obj-pathname kind)))
						);;dolist
     );;let
    )
   )
:ok-action
   '()
:help-action '()
)

;--------------------------------------------------------------------------*