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

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

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

(sd-defdialog 'dc4-ansichtsliste-invertieren-dialog
:dialog-title "Invertiere Ansichtsliste"
:toolbox-button t
;;:dialog-control :sequential
:variables
  '(
   )
:local-functions
  '(
    (invert-action ()
     (let (sichtblist sichtb)
						(setf sichtblist (sd-inq-vp-drawlist-objects (oli::sd-inq-current-vp)))
						(uic_draw_all (oli::sd-inq-current-vp))
      (dolist (sichtb sichtblist)
       (sd-call-cmds (remove_from_vp_drawlist (oli::sd-inq-current-vp) :with-wp sichtb))
      );;dolist
     );;let
    )
			)
:ok-action
   '(sd-call-cmds (invert-action))
:help-action '()
)