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

;;--------------------------------------------------------------------------*
(sd-defdialog 'Transparenz-setzen
:dialog-title "Transparenz"
:toolbox-button t
:variables
  '(
  	(teile
		   :value-type :part
		   :title "Part(s)"
           :prompt-text "Teil(e) auswaehlen"
		   :initial-value nil
		   :multiple-items t
     :after-input
		(when teile 
		(progn
		(if (> transparenz 0)
			(set_show (sd-inq-current-vp) :3dgeo_part_transparency :on)
			(set_show (sd-inq-current-vp) :3dgeo_part_transparency :off)
		)
		(dolist (teil-einzeln teile)
			(progn (sd-call-cmds (set_part_base_transparency  :parts teil-einzeln :transp transparenz))))
		(SD-SET-VARIABLE-STATUS 'teile :value nil)
		)
		)
	);;end variable teil1
	(transparenz :value-type :number
			:prompt-text "Wert fuer Transparenz angeben"
            :title "Transparenz"
		    :proposals (0 0.1 0.2 0.3 0.4 0.5 0.6 0.7 0.8 0.9 1.0)
			:auto-add-proposal t
			:initial-value 0.5
	)
)
:local-functions
'()
:ok-action
'()
)