(in-package :stiwa-tools)
(use-package :oli)
;;Hinweislinien

;;--------------------------------------------------------------------------*
;;     globale Variable                                                     *
;;--------------------------------------------------------------------------*

;;--------------------------------------------------------------------------*
;;     Dialoge                                                              *
;;--------------------------------------------------------------------------*
(sd-defdialog 'sti-am-leaderline
   :dialog-title "Hinweislinie"
;   :toolbox-button nil
   :variables 
     '(
       ("Besitzer")
       (Bes-Blatt
          :value-type :boolean
  	      :title "Blatt aktiv"
  	      :toggle-type :left-toggle
  	      :after-input (set-owner 0)
 			 		:next-variable 'Position
;  	      :optional t
  	   )
       (Bes-Ansicht
          :selection *sd-anno-view-seltype*
  	      :title "Ansicht"
  	      :toggle-type :indicator-toggle-data
  	      :after-input (set-owner 1)
 			 		:next-variable 'Position
;  	      :optional t
  	   )
       (Bes-Skizze
          :selection *sd-anno-sketch-seltype*
  	      :title "Skizze"
  	      :toggle-type :indicator-toggle-data
  	      :after-input (set-owner 2)
 			 		:next-variable 'Position
;  	      :optional t
  	   )
    	 (Besitzer
          :selection (*sd-anno-view-seltype* *sd-anno-sketch-seltype* *sd-anno-sheet-seltype*)
          :title "Besitzer"
          :before-input (input-owner t)
 			 		:next-variable 'Position
       )
    	 (Position
          :value-type :docupntcnp
          :title "Position"
          :after-input (push Position point-list)
 			 		:next-variable 'Position
 			 		:initial-visible nil
       )
      )
   :mutual-exclusion '(Bes-Ansicht Bes-Blatt Bes-Skizze)
   :after-initialization '(init-action)
   :local-functions 
    '((let (point-list))
      (init-action ()
          (input-owner t)
          (setf point-list nil)
	    )
      (input-owner (value)  ; Eingabefelder f. Besitzer anzeigen/verbergen
        (if (equal value t)
          (progn
            (setf Bes-Ansicht nil)
            (setf Bes-Skizze nil)
          )
        )
        (sd-set-variable-status 'Bes-Blatt :visible value)
        (sd-set-variable-status 'Bes-Ansicht :visible value)
        (sd-set-variable-status 'Bes-Skizze :visible value)
        (sd-set-variable-status 'Besitzer :visible (sti-inverse-bool value))
        (sd-set-variable-status 'Ldr-undo :visible (sti-inverse-bool value))
        (sd-set-variable-status 'Ldr-end :visible (sti-inverse-bool value))
        (sd-set-variable-status 'Ldr-settings :visible (sti-inverse-bool value))
        (sd-set-variable-status 'Ldr-reset :visible (sti-inverse-bool value))
      )
      (set-owner (art)
        (input-owner nil)
        (cond ((equal art 0)  ;Besitzer = aktives Blatt
                (progn
                  (setf Besitzer (sd-am-inq-curr-sheet))
            			(setf Ans_masstab 1)
                  (sd-am-set-default-owner :text :current-sheet)
                  (sd-am-set-default-owner :geo  :current-sheet)
                )
              )
              ((equal art 1)  ;Besitzer = gewählte Ansicht
                (progn
                  (setf Besitzer Bes-Ansicht)
            			(setf Ans_masstab (sd-am-view-struct-scale (sd-am-inq-view Besitzer)))
                  (sd-am-set-default-owner :text :2dview Besitzer)
                  (sd-am-set-default-owner :geo  :2dview Besitzer)
                )
              )
              ((equal art 2)  ;Besitzer = gewählte Skizze
                (progn
                  (setf Besitzer Bes-Skizze)
            			(setf Ans_masstab 1)
                  (sd-am-set-default-owner :text :sketch Besitzer)
                  (sd-am-set-default-owner :geo  :sketch Besitzer)
                )
              )
        ) 
      )
     );local-functions
   :ok-action 
     '()
   :cancel-action 
     '()
)