;; os 04.08.2003
;; Teileinformationen anzeigen
;; Durch :modifies nil wird der Schreibschutz ignoriert

(in-package :gd-package)
(use-package :oli)

(sd-defdialog 'os_teileinfo
  :dialog-title "INFO"
  :variables
  '(
    (TEIL
     :value-type :part
     :title "Teil"
     :modifies nil 
     :prompt-text "Teil angeben"
    )
   );variables

  :local-functions
   '(
     (teileinfo_anzeigen ()
      (let (VOLUMEN)

      ;; Volumen
      (setq VOLUMEN
        (sd-call-cmds
          (get_vol_prop
	    :for_part
	    :part_asmb (sd-inq-obj-pathname TEIL)
	    :volume)
	  :failure nil
	);sd-call-cmds
      );;setq volume

      (display (format nil "Teileinformationen fuer: ~A" (sd-inq-obj-basename TEIL)))
      (display (format nil "Volumen = ~A mm3 " VOLUMEN))
      (display (format nil "Dichte  = ~A g/mm3" (sd-inq-part-density TEIL)))
      (display (format nil "Geo-Aufloesung  = ~A" (sd-inq-part-geo-resolution TEIL)))
      );;let
    );;teileinfo_anzeigen
   );;local-functions

  :ok-action '(teileinfo_anzeigen)

);;sd-defdialog