;;--------------------------------------------------------------------------*
;;  Copyright 2007  DC4 Technisches Büro GmbH                               *
;;                                                                          *
;;--------------------------------------------------------------------------*
;;  Dateiname: am_hide_parts.lsp
;;  Version  : 1.0
;;  Datum    : 09.01.2008
;;  Author   : Gt
;;--------------------------------------------------------------------------*

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

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

(sd-defdialog 'dc4-anno-hide-parts-dialog
:dialog-title "Teile zeigen"
:variables
  '(
    (tp1   :value-type :docupntcnp
           :initial-optional t
           :prompt-text "Punkt auf Teil angeben"
           :title "Teil als Box"
           :after-input (progn
                         (sd-execute-annotator-command :cmd
                                       (format nil "SHOW_PART PART_BOX ~A,~A"
                                                 (oli::gpntdocu_x tp1)
                                                 (oli::gpntdocu_y tp1)))
                         (sd-set-variable-status 'tp1 :optional nil)
                         (sd-set-variable-status 'tp2 :optional t)
                         (setf tp1 nil)
                        );;progn
    )
    (tp2   :value-type :docupntcnp
           :initial-optional t
           :prompt-text "Punkt auf Teil angeben"
           :title "Teil ganz aus"
           :after-input (progn
                         (sd-execute-annotator-command :cmd
                                       (format nil "HIDE_PART ~A,~A"
                                                 (oli::gpntdocu_x tp2)
                                                 (oli::gpntdocu_y tp2)))
                         (sd-set-variable-status 'tp2 :optional nil)
                         (sd-set-variable-status 'tp1 :optional t)
                         (setf tp2 nil)
                        );;progn
    )
    (all  :push-action (progn
                         (sd-execute-annotator-command :cmd
                                       (format nil "SHOW_PART ALL"))
                         (sd-set-variable-status 'tp1 :optional t)
                         (sd-set-variable-status 'tp2 :optional t)
                        );;progn
           :title "Alles ein"
											:toggle-type :wide-toggle
    )
   )

   :ok-action
    '()
 :help-action '()
)