(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"))
  :ok-action
  
  '(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 -192.2,5 :owner_type :current-sheet)
    (IF (string= SW_SR "Schnecke")
      (progn
        (AM_CREATE_TEXT
          :owner (format nil "/~a/~a" "1" "VZ-Tabelle")
          :size 3.5
          :color (sd-rgb-to-color 255,255,255) :done
          :ratio 1
          :adjust 1
          :slant 0
          :docu-text  (format nil "~a" "kein ")
          -100,100
        )
        (AM_CREATE_TEXT
          :owner (format nil "/~a/~a" "1" "VZ-Tabelle")
          :size 3.5
          :color (sd-rgb-to-color 255,255,255) :done
          :ratio 1
          :adjust 1
          :slant 0
          :docu-text (format nil "~a" z1)
          -80,100
        )
      ) ;end progn
      ;; else
      (progn
        (AM_CREATE_TEXT
          :owner (format nil "/~a/~a" "1" "VZ-Tabelle")
          :size 3.5
          :color (sd-rgb-to-color 255,255,255) :done
          :ratio 1
          :adjust 1
          :slant 0
          :docu-text (format nil "~a" "so ein ")
          -100,100
        )
        (AM_CREATE_TEXT
          :owner (format nil "/~a/~a" "1" "VZ-Tabelle")
          :size 3.5
          :color (sd-rgb-to-color 255,255,255) :done
          :ratio 1
          :adjust 1
          :slant 0
          :docu-text (format nil "~a" z1)
          -80,100
        )
      ) ;end progn
    ) ;end if
    (setf docu::*docu-hide-wrong-owner-warning* old-warn)  ;; restore old behaviou
    ) ;end let
) ;end sd-defdialog