(use-package :oli)

;; Anpassung fuer Schnitt im Schnitt auch setzbar mit
  (SET_ONLY_LAST_SECTION_VISIBLE_IN_DEPENDANT_VIEWS t)
  (defvar docu::*li-all-section-visible-in-dependant-view*)
  (setf docu::*li-all-section-visible-in-dependant-view* nil)

;; Anpassung fuer Ausbruch in abhaengigen Asichten
  (SET_CUTAWAYS_VISIBLE_IN_DEPENDANT_VIEWS nil)
  (defvar docu::*li-cutaway-visible-in-dependant-view*)
  (setf docu::*li-cutaway-visible-in-dependant-view* nil)

;; Ansichtsvorgaben setzten

(sd-defdialog 'li_am_dependant_view_settings
   :dialog-title "Ansichtsvorgaben"
   :dialog-type  :interrupt
   :variables '(
                  ("Abhaengige Ansichten")
                  ("-")
                  ("-")
                  ("Sichtbarkeit")
                  (CUTAWAY_VIS   :value-type :boolean
                                 :title "Ausbrueche sichtbar"
                                 :toggle-type :wide-toggle
                                 :initial-value docu::*li-cutaway-visible-in-dependant-view*
                                 :after-input (l-set-cutaway-visibility)
                  )
                  ("-")
                  (SECTION_VIS   :value-type :boolean
                                 :title "alle Schnitte sichtbar"
                                 :toggle-type :wide-toggle
                                 :initial-value  docu::*li-all-section-visible-in-dependant-view*
                                 :after-input (l-set-section-visibility)
                  )
                  (SECTION_VIS_LAST  :value-type :boolean
                                 :title "nur letzter Schnitt sichtbar"
                                 :toggle-type :wide-toggle
                                 :after-input (l-set-section-visibility)
                                 :initial-value  (not docu::*li-all-section-visible-in-dependant-view*)
                  )
               );variables

   :mutual-exclusion '(SECTION_VIS_LAST SECTION_VIS)
   :local-functions
      '(
           (l-set-cutaway-visibility ()
              (sd-call-cmds (docu::SET_CUTAWAYS_VISIBLE_IN_DEPENDANT_VIEWS CUTAWAY_VIS) )
              (setf docu::*li-cutaway-visible-in-dependant-view* CUTAWAY_VIS)
           );l-set-cutaway-visibility
           
           (l-set-section-visibility ()
              ;;(display SECTION_VIS)
              (sd-call-cmds (docu::SET_ONLY_LAST_SECTION_VISIBLE_IN_DEPENDANT_VIEWS (not SECTION_VIS)) )
              (setf docu::*li-all-section-visible-in-dependant-view* SECTION_VIS)
           );l-set-section-visibility

       );local-functions

);sd-defdialog