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

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

(sd-defdialog 'dc4-anno-move-grid-dialog
:dialog-title "Gitter bewegen"
:variables
  '(
    (gpnt  :value-type :docupntcnp
           :prompt-text "Bezugspunkt fuer Gitter angeben"
           :title "Gitterposition"
           :initial-value 0,0
           :after-input (sd-execute-annotator-command :cmd (format nil "CS_REF_PT ~a,~a" (oli::gpntdocu_x gpnt) (oli::gpntdocu_y gpnt)))
    )
   )
)