(in-package :clausbrod.de)
  (use-package :oli)

  (sd-defdialog 'select-demo
    :variables '(
      (parts :value-type :part :multiple-items t)
    )

    :ok-action '(mapc #'(lambda(part) (display (sd-inq-obj-pathname part)))
                   parts)
  )