(in-package :cl-user)
(use-package :oli)

(sd-defdialog 'DEMO_ATTACH_MATERIAL
  :dialog-title "Attach material + thickness (demo)"
  :toolbox-button t
  :variables
  '(
    (sel_thick :value-type :positive-number
                :title "Thickness"
                :initial-value 2
                :proposals (1 2 3 5 6 8 10 12 15 20)
                :auto-add-proposals t
    )
    (sel_material :value-type :string
                :title "Material code"
                :initial-value "AL5754"
    )
    (sel_parts :value-type :part
                :title "Part(s)"
                :multiple-items t
                :prompt-text "Select part(s)"
    )
    (-)
    (take_it :title "Take"
                :push-action (do_it)
                :toggle-type :wide-toggle)
  ) ;;variables
  :local-functions
  '(
    (do_it ()
      (dolist (part sel_parts)
        (sd-call-cmds (oli::sha_attach_material :sheet_part part :yes
                                                   :material sel_material :yes
                                                   :thickness sel_thick :yes
                        )
          :failure (progn
                      (format t "~&~%*** DEMO_ATTACH_MATERIAL FAILURE sha_attach_material ***~%")
                      (format t "~&~{~%* [[~S]]~%~%~}" (sd-inq-error-obj :all))
                    )
        )
      )
      (sd-set-variable-status 'sel_parts :value nil)
    ) ;end do_it
  ) ;end local-functions
) ;; sd-defdialog