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

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

(sd-defdialog 'dc4-anno-convert-text-dialog 
:dialog-title "Text in Geo"
:variables
  '(
    (qtext :selection
              (*sd-anno-text-seltype*)
           :multiple-items t
           :show-select-menu t
           :prompt-text "Text fuer Umwandlung angeben"
           :title "Text"
    )
   )

:local-functions
  '(
    (next-action ()
     (let (tx)
      (dolist (tx qtext) 
							(sd-execute-annotator-command :cmd (format nil "TEXT_TO_GEO GLOBAL ~a CONFIRM" (sd-get-annotator-position :object tx)))
						);;dolist
					);;let
    )
   )
:ok-action
   '(next-action)
:help-action '()
)

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