(in-package :my-sha)
(use-package :oli)

(sd-defdialog 'SHA_BASIC_ATTACH_MATERIAL_MULTIPLE
 :variables
 '(
   (SHEET_PARTS  
    :value-type :part   ;;  calls subaction: SELECT
    :modifies :contents
    :multiple-items T 
    )
  (MATERIAL_PLIST 
    :value-type :list ;; (permanently INVISIBLE)
    :toggle-type :invisible
    :after-input
     (progn 
       (sd-set-variable-status 'MATERIAL  (getf MATERIAL_PLIST :MATERIAL))
       (sd-set-variable-status 'THICKNESS (getf MATERIAL_PLIST :THICK))
       )
   )
  (MATERIAL
    ;:value-type :string    eigentlich
    :range ("Standard")
    ;;:show-input-tool (OLI::SD-SHOW-DISPLAY-TABLE "BASIC-SHOP-SHEET_METALS")
    ;;:hide-input-tool (OLI::SD-HIDE-DISPLAY-TABLE "BASIC-SHOP-SHEET_METALS")
    )
  (THICKNESS  
    ;:value-type :positive-length  eigentlich
    :range (.5 1 1.25 1.5 2 3 5)
    )
   ) ;; end variables
  :ok-action
   '(dolist (a-part  SHEET_PARTS) 
      (sd-call-cmds (SHA_BASIC_ATTACH_MATERIAL
                     :sheet_part a-part :yes
                     :MATERIAL_PLIST (list 
                                       :MATERIAL  material
                                       :THICK thickness) :yes
                     :MATERIAL  material
                     :THICKNESS thickness :yes
                     )))
  ) ;; end dialog

;; (trace SHA_BASIC_ATTACH_MATERIAL)  zum testen....
#|
;; online reference:
SHA_BASIC_ATTACH_MATERIAL is a terminate action.
  No input keywords exist (a sequential dialog).
  1. Input (DUMMY) :value-type :STRING  calls subaction SHA_ATTACH_MATERIAL_SUBDIALOG

  plus:

SHA_ATTACH_MATERIAL_SUBDIALOG is a non-embedded subaction.
It has the following input keywords:
  :SHEET_PART  value type: :part     calls subaction: SELECT
  :MATERIAL_PLIST  value type: :list (permanently INVISIBLE)
  :MATERIAL  value type: :string
  :THICKNESS  value type: :positive-length
  
;; recorded
SHA_BASIC_ATTACH_MATERIAL
 :sheet_part "/p1" :YES
 :material :MATERIAL_PLIST '(:MATERIAL "Standard" :THICK 2.0) :YES
complete
|#