(in-package :test-tools)
(use-package :oli)
;;Änderungsnummer setzen

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

;;--------------------------------------------------------------------------*
;;     Dialoge                                                              *
;;--------------------------------------------------------------------------*

(sd-defdialog 'am-aend-num-dialog
   :dialog-title "Aenderungsnummer"
   :toolbox-button nil
   :variables 
     '(
    	 (Ansicht
                :selection (*sd-anno-view-seltype* *sd-anno-flat-seltype*)
                :title "Besitzer"
                :before-input (sd-execute-annotator-command :cmd (format nil "CANCEL"))
			          :gui-value (when Ansicht (sd-am-view-struct-name (sd-am-inq-view Ansicht)))
                :next-variable (if AendNr 'NrPkt 'AendNr)
       )
       (AendNr	
                :value-type :positive-integer
                :title "Nummer"
       			 		:next-variable 'NrPkt
       )
       (NrPkt
                :value-type :docupntcnp
                :title "Punkt f. Aenderungsnummer"
                :before-input (if AendNr (nr-vorschau))
                :after-input (pos-pnt)
       			 		:next-variable 'NrPkt
       )
      )
   :after-initialization '(init-action)
   :local-functions 
     '((let (Koord-txt Koord-num Ans_masstab))
       (init-action ()
						(am-aend-num-set-text-settings)
						(sd-disable-must-variable-check)
		   )
	   	 (nr-vorschau ()
	   		     (sd-execute-annotator-command :cmd "AM_start_text_feedback")
	   		     (sd-execute-annotator-command :cmd (format nil "AM_text_feedback '~A'" AendNr))
   		 )
   		 (pos-pnt ()
   		       (sd-am-create-text
   		       		:text (format nil "~A" AendNr)
   		       		:owner_type :2dview :owner Ansicht
   		       		:position NrPkt
   		       )
	           (setf NrPkt nil)
   		 )
			 (clean-action ()
				     (let ()
							(sd-execute-annotator-command :cmd "CANCEL")
							(am-aend-num-reset-text-settings)
							(sd-enable-must-variable-check)
						 )
			 )
      );local-functions
   :ok-action 
     '(clean-action)
   :cancel-action 
     '(clean-action)
)

;;***************************************************************************
;;     Funktionen                                                           *
;;***************************************************************************

(defun am-aend-num-set-text-settings ()
	(sd-call-cmds (progn
									(am_text_settings :size 2.5)
									(am_text_settings :color :rgb 0.92,1,1)
									(am_text_settings :ratio 1)
									(am_text_settings :slant 0)
									(am_text_settings :font1b "hp_i3098_v")
									(am_text_settings :abs_angle 0.0)
									(am_text_settings :frame "BALLOON")
									(am_text_settings :feedb "TF_TEXT")
									(am_text_settings :adjust 5)
	              )
	)
)

(defun am-aend-num-reset-text-settings ()
	(sd-call-cmds (progn
									(am_text_settings :adjust 1)
									(am_text_settings :frame "OFF")
								)
	)
)

;;***************************************************************************
;;     ME10-Makros                                                          *
;;***************************************************************************

(sd-execute-annotator-command :cmd
 (format nil "~a ~a ~a"
 "DEFINE AM_start_text_feedback"
   "TEXT"
 "END_DEFINE"
 )
)

(sd-execute-annotator-command :cmd
 (format nil "~a ~a ~a ~a"
 "DEFINE AM_text_feedback"
   "PARAMETER Txt"
   "Txt"
 "END_DEFINE"
 )
)