(in-package  :test)
(use-package :oli)

;; ====================================
;; os_am_testsym.lsp
;; Symbol Test
;; os / 11.04.2017
;; ====================================

;;  o     o
;;  pnt1  pnt2
;;        o
;;        pnt3



(sd-am-create-symbol-dialog
 :name  "os_am_create_testsym_dialog"
 :title (sd-multi-lang-string "Test" :german "Test")
 :position-prompt ""
 :draw-symbol-command
 (let* (
         (height    3.5)
         (distance  (* 1.5 height))
         (pnt1      (make-gpnt2d :x  0 :y 0.0))
         (pnt2      (make-gpnt2d :x  1 :y 0.0))
         (pnt3      (make-gpnt2d :x  1 :y (- distance)))
        )

   (sd-am-create-symbol-parameter "para_a" para_a :position pnt2)
   (sd-am-create-symbol-parameter "para_b" para_b :position pnt3)

    
   ;; Selektionspunkte setzen 
   (sd-am-create-symbol-selectable-point pnt1)

   ;; Referenzpunkt setzen
   (sd-am-set-symbol-reference-point pnt1)

  );; let
  :save-variables (para_a para_b)
  :variables
    (
      ;(BILD
      ; :title (sd-multi-lang-string "-" :german "-")
      ; :value-type :image
      ; :image-file (format nil "~a/Annotation/bitmaps/os_am_am_create_testsym.bmp" (oli::sd-convert-filename-from-platform (oli::sd-sys-getenv "SDCORPCUSTOMIZEDIR")))
      ; )
      ("")
      (para_a
       :value-type :string
       :title (sd-multi-lang-string "Text 1" :german "Text 1")
       :proposals ("(12x12)" "(14x14)" "(16x16)" "(18x18)")
       :initial-value  "(12x12)"
       )

      (para_b
          :value-type :string
          :editable t
          :title "Text 2"
          :initial-value "5mm groß gelasert"
          )
      ) ;; end variables
    ) ;;

;;==================================
;; register this dialog for use in the symbol browser
(sd-am-register-symbol
    :create-dia  "os_am_create_testsym_dialog"
    :edit-dia    "os_am_create_testsym_dialog"
    :meta-name   (sd-multi-lang-string "Test" :german "Test")
    ;:pixmap-file (format nil "~a/Annotation/bitmaps/os_am_create_testsym_dialog.bmp" (oli::sd-convert-filename-from-platform (oli::sd-sys-getenv "SDCORPCUSTOMIZEDIR")))
    :category    (sd-multi-lang-string "Test" :german "Test")
)
;;==================================