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

;;--------------------------------------------------------------------------*
(sd-defdialog 'nur_bg_zeigen
:dialog-title "Nur BG zeigen"
:dialog-type :interrupt
:toolbox-button t
:without-show t
:after-initialization-ui '(sd-create-cursor "drawlist_add" "bitmaps/cursor/drawlist_add.cur")							 	
:variables
'(
(teil_aus_bg	:value-type :part
				:toggle-type :invisible
				:title "Teil"
				:prompt-text "Teil auswählen"
				:initial-value nil
				:multiple-items nil
				:modifies nil
				:before-input 	(sd-set-current-cursor "drawlist_add" :vp-only nil)
				:after-input 	(when (and 	(sd-inq-part-p teil_aus_bg)	(sd-inq-parent-obj teil_aus_bg))
									(clear_vp (sd-inq-current-vp))
									(add_to_vp_drawlist (sd-inq-current-vp)(sd-inq-obj-pathname (sd-inq-parent-obj teil_aus_bg)))
								)
)
)
:prompt-variable 'teil_aus_bg
:ok-action '()
);end sd-defdialog