;;--------------------------------------------------------------------------*
;;  Copyright 2009  DC4 Technisches Büro GmbH                               *
;;                                                                          *
;;--------------------------------------------------------------------------*

(in-package :custom)

(use-package :OLI)

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

(sd-defdialog 'dc4-flaechenteile-ausblenden-dialog
:dialog-title "Flaechenteile"
;;:dialog-control :sequential
:variables
  '(
    (teil  :selection (*sd-part-seltype*)
           :face-part-allowed t
           :multiple-items t
           :no-highlight t
           :title "Teile"
           :modifies :nil
           :initial-value nil
           :after-input (after-teil-action)
    )
    (show  :value-type :boolean
           :toggle-type :wide-toggle
           :title "anzeigen"
           :initial-value nil
    )
   )
:local-functions
  '(
    (after-teil-action ()
     (let (kind)
      (dolist (kind teil)
;;(display (sd-inq-obj-pathname kind))
       (when (sd-inq-face-part-p kind)
        (if show
         (sd-call-cmds (add_to_vp_drawlist (oli::sd-inq-current-vp) :with-wp kind))
         (sd-call-cmds (remove_from_vp_drawlist (oli::sd-inq-current-vp) :with-wp kind))
        );;if
       );;when
      );;dolist
      (setf teil nil)
     );;let
    )
   )
:ok-action
   '()
:help-action '()
)

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

(sd-defdialog 'dc4-drahtteile-ausblenden-dialog
:dialog-title "Drahtteile"
;;:dialog-control :sequential
:variables
  '(
    (teil  :selection (*sd-part-seltype*)
           :wire-part-allowed t
           :multiple-items t
           :no-highlight t
           :title "Teile"
           :modifies :nil
           :initial-value nil
           :after-input (after-teil-action)
    )
    (show  :value-type :boolean
           :toggle-type :wide-toggle
           :title "anzeigen"
           :initial-value nil
    )
   )
:local-functions
  '(
    (after-teil-action ()
     (let (kind)
      (dolist (kind teil)
;;(display (sd-inq-obj-pathname kind))
       (when (sd-inq-wire-part-p kind)
        (if show
         (sd-call-cmds (add_to_vp_drawlist (oli::sd-inq-current-vp) :with-wp kind))
         (sd-call-cmds (remove_from_vp_drawlist (oli::sd-inq-current-vp) :with-wp kind))
        );;if
       );;when
      );;dolist
      (setf teil nil)
     );;let
    )
   )
:ok-action
   '()
:help-action '()
)