;;--------------------------------------------------------------------------*
;;  Copyright 2003  DC4 Technisches Büro GmbH                               *
;;                                                                          *
;;--------------------------------------------------------------------------*
;;  Dateiname: obj_prop.lsp
;;  Version  : 1.0
;;  Datum    : 10.06.2003
;;  Author   : Gt
;;--------------------------------------------------------------------------*

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

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

(sd-defdialog 'object-props-display-dialog
:dialog-title "Objekt abfragen"
:dialog-control :sequential
:variables
  '(
    (teil
           :selection
              (*sd-object-seltype*)
           ;;:multiple-items t
           :show-select-menu nil
           :prompt-text "Teil oder Baugruppe angeben"
           :title "Teil"
           :initial-value nil
    )
   )
:local-functions
  '(
    (display-props ()
     (let ()
      (display (format nil "Name: ~a" (sd-inq-obj-basename teil)))
      (display (format nil "Pfad: ~a" (sd-inq-obj-pathname teil)))
      (display (format nil "Inhalts-ID: ~a" (sd-inq-obj-contents-name teil)))
      (display (format nil "Inhalts-SYS-ID: ~a" (sd-inq-obj-contents-sysid teil)))
      (display (format nil "SYS-ID: ~a" (sd-inq-obj-sysid teil)))
     );;let
    )
   )
:ok-action
   '(display-props)
)