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

(sd-defdialog 'VZ-Tabelle
  :dialog-title "VZ-Tabelle"
  :toolbox-button t
  :variables
  '(("-")
    (SW_SR :range ("Schnecke" "Schneckenrad")
    :title "Schnecke oder Rad"))
  :local-functions
  '(
    (create-texts (owner text-col1 text-col2)
      (AM_CREATE_TEXT
        :owner owner
        :size 3.5
        :color (sd-rgb-to-color 255,255,255) :done
        :ratio 1
        :adjust 1
        :slant (sd-deg-to-rad 0)
        :docu-text text-col1
        -100,100
        :docu-text text-col2
        -80,100
      ))
   ) ;; end local-functions
  :ok-action
  '(sd-call-cmds
   (let ((old-warn docu::*docu-hide-wrong-owner-warning*) z1 )
    (setf z1 "Quatsch")
    (setf docu::*docu-hide-wrong-owner-warning* t)
    (sd-am-create-sketch :name "VZ-Tabelle" :position -100,100 :owner_type :current-sheet)
    (setf owner-path (format nil "/~a/~a" "1" "VZ-Tabelle"))
    (IF (string= SW_SR "Schnecke")
      (create-texts owner-path "kein "  z1)
      ;; else
      (create-texts owner-path "so ein" (sd-string-upcase z1))
    ) ;end if
    (setf docu::*docu-hide-wrong-owner-warning* old-warn)  ;; restore old behaviou
    ) ;end let
    ) ;end sd-call-cmds
) ;end sd-defdialog