;*********************************************************************************************
; Dateiname     :   SD_ContainerOnOFF.lsp
; Autor         :   Stephan Wörz
; Erstellt      :   25.02.2011
; geändert      :
;*********************************************************************************************
; Beschreibung  :       -   Hier geht es um folgendes:
;                           Blendet ALLE Behälter ein, merkt sich die Darstellungsliste und setllt
;                           diese wieder her!
;
;   Optionen            :       -
;*********************************************************************************************
; --------------------------------------------------------------------------------------------
; ä Ì      Ä Ø    ö Î    Ö Ú    ü Ï    Ü Û    ß Þ    ° ³   µ ó
; (Display (format nil "Name~20T: Stephan")   ~20T    >> Setzt Cursor in Spalte 20!!
; (Display (format nil "Name~%: Stephan")     ~%      >> Erzeugt Zeilenumbruch!!!!!!
; (Display (subseq "Stephan Woerz" 4 7))              >> subseq zeigt Teilstring!!!!
; --------------------------------------------------------------------------------------------
; BASIC FUNCTIONS:
; SD_CheckWorkplane     Parameter:  Keine               - prüft ob Arbeitsebene vorhanden
; --------------------------------------------------------------------------------------------
; Befehl für Toolbars erzeugen
; (sd-define-available-command  "SolidDesigner"
;                               "SCHILLER"
;                               "Lochkreis"
;                               :ui-behavior :default  ;UI Verhalten :relative :none
;                               :image ( Format NIL "~A/SD_Lochkreis.bmp" (MEI::GETENV "SCHILLERICONDIR"))
;                               :action '(OLI::SD-CALL-DIALOG "SD_Lochkreis")
;);;sd-define-available-command
; -------------------------------------------------------------------------------------------

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

;(sd-hide-console-window)
;(sd-show-console-window)
;(setf si::*enter-break-handler* t)


(setf ContainerSichtbar nil)




(sd-defdialog 'SD_ContainerOnOFF

; :dialog-title "kein Titel notwendig"
  :dialog-control :sequential
  :toolbox-button nil

:variables
   '(
;       (ContainerSichtbar)
     ) ;end variables

:ok-action
  '(progn
   ;;Liste aller Behälter erstellen
   (setf Container
		(sd-call-cmds 
			(get_selection :focus_type
				:check_function #'CheckIfContainer
				:select
				:recursive
				:all_at_top
            );;
        );;
    );;setf

	;;Flag auswerten
	(if (not ContainerSichtbar)
	;;then
	(progn
	;;aktuelle Darstellungsliste im aktuellen Fenster speichern
		(setf Darstellungsliste (sd-inq-vp-drawlist-objects (sd-inq-current-vp)))
		;;alle Behälter zur Darstellungsliste hinzufügen
		(sd-call-cmds (add_to_vp_drawlist (sd-inq-current-vp) Container))
		;;Flag setzen
		(setf ContainerSichtbar t)
	);;progn
	;;else
	(progn
	;;Darstellungsliste wieder herstellen
		(sd-call-cmds (set_vp_drawlist (sd-inq-current-vp) Darstellungsliste))
		;;Flag setzen
		(setf ContainerSichtbar nil)
		);;progn
	);;if			
    );end Progn

);end defdialog

(defun CheckIfContainer (Objekt)
            (if (sd-inq-container-p Objekt)
            :ok
            :filter
        );;if
);;defun