;; =============================
;; gdm_adm_sys_id_abfragen.lsp
;; os / 16.10.2006 15:47
;; =============================

(in-package  :GDM)
(use-package :OLI)

(sd-defdialog 'gdm-adm-sys-id-abfragen-dialog
  :dialog-title "Sys-ID / Attribute"
  :variables
  '(
    (TEIL
     :value-type :part
     :multiple-items t
     :modifies nil
     :title (sd-multi-lang-string "Part(s)" :german "Teil(e)")
     :prompt-text (sd-multi-lang-string "Specify Part" :german "Teil angeben"))

  ("")
  (ABFRAGEN
    :title "Next"
    :toggle-type :wide-toggle
    :push-action (os_teileattribute_abfragen))

  );variables
  :local-functions
  '(
    (os_teileattribute_abfragen ()

      (dolist (a_TEIL TEIL)
          (display (format nil "Part-Basename: ~a" (sd-inq-obj-basename a_TEIL)))
          (display (format nil "Part-Instanzname: ~a" (sd-inq-obj-contents-name a_TEIL)))
          (display (format nil "Inhalts-ID = ~a" (sd-inq-obj-contents-sysid a_TEIL)))
          (display (format nil "Instanz-ID = ~a" (sd-inq-obj-sysid a_TEIL)))
          (display (format nil "Basis Dichte     = ~a g/mm3" (sd-inq-part-density a_TEIL :contents)))
          (display (format nil "Instanz Dichte   = ~a g/mm3" (sd-inq-part-density a_TEIL :instance)))
          (display (format nil "Realized Dichte  = ~a g/mm3" (sd-inq-part-density a_TEIL :realized)))
          (display (format nil "Geo-Aufloesung   = ~a" (sd-inq-part-geo-resolution a_TEIL)))
          (display (format nil "Volumen          = ~a mm3 " (sd-call-cmds (get_vol_prop :for_part :part_asmb (sd-inq-obj-pathname a_TEIL) :volume) :failure nil)))
          (display (format nil "=========================~%"))
      );;dolist

      (display (format nil "=== eof ===~%"))

    );;os_teileattribute_abfragen
  );;local-functions

  :ok-action '(os_teileattribute_abfragen)

);;sd-defdialog