(in-package :IWG)

(use-package :OLI)
(use-package :custom)

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

(sd-defdialog 'gewinde-loeschen-dialog
:dialog-title "Gewinde loeschen"
:toolbox-button t
:variables
  '(
    (gewfl  :selection (*sd-cylinder-seltype*)
            :multiple-items t
												:show-select-menu t
												:modifies :contents
            :prompt-text "Gewinde zum Löschen angeben."
            :title "Gewinde"
	           :check-function
	           #'(lambda (cyl)
	              (let ()
																(if (oli::sd-inq-thread cyl)
	                :ok
	                (values :error "Diese Flaeche ist kein Gweinde!")
	               );;if
	              );;let
	             );;lambda
												:after-input (after-gewfl-action)
    )
    (report :value-type :boolean
           :toggle-type :wide-toggle
           :title "Bericht ausgeben"
           :initial-value nil
    )
   )
:local-functions
  '(
    (after-gewfl-action ()
     (let (cyl)
					 (when report (display "Folgende Gewinde wurden geloescht:"))
					 (dolist (cyl gewfl)
							(when report (display (format nil "~a" (getf (oli::sd-inq-thread cyl) :thread-name))))
							(sd-destroy-thread cyl)
						);;dolist
						(setf gewfl nil)
     );;let
    )
   )
:ok-action
   '()
:help-action '()
)

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