;;--------------------------------------------------------------------------*
;;  Copyright 2022 Walter Geppert                                           *
;;                                                                          *
;;--------------------------------------------------------------------------*
;;  Dateiname: viewport_size.lsp
;;  Version  : 1.2
;;  Datum    : 12.Apr.2022
;;  Author   : WG
;;--------------------------------------------------------------------------*
;; added user convinience with proposals saved across sessions
;;        by der_Wolfgang@forum@cad.de  12.Apr.2022
;;        used in 20.4.1 und Express 8.0
;;  translated : german/english by der_Wolfgang@forum@cad.de  12.Apr.2022
;;--------------------------------------------------------------------------*

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

(sd-defdialog 'iwg-darstellungsfenster-abmessungen-dialog
  :dialog-title '(sd-multi-lang-string "Set VP Size" :german "DF Abmessungen")
  :toolbox-button :force
  :persistent-proposals t  ;; keep user entered value of proposals across osdm session
  :variables
  '(
    (zvp
      :range ("-")
      :title (sd-multi-lang-string "Target VP" :german "Zielfenster")
      :initial-value
        (let ((new-range (sd-inq-vp-names)))
          (sd-set-range 'zvp new-range)
          (sd-set-variable-status 'zvp :enable (> (length new-range) 1))
          (or (sd-inq-current-vp) (first new-range))
          )
      )
    (x
      :value-type :number
      :title (sd-multi-lang-string "X pos" :german "X-Koord.")
      :persistent-data-storage t
      :proposals (0 100)
      :auto-add-proposal t
      :proposals-order :sorted
      :initial-value 0
      )
    (y
      :value-type :number
      :title (sd-multi-lang-string "Y pos" :german "Y-Koord.")
      :persistent-data-storage t
      :proposals (0 100)
      :auto-add-proposal t
      :proposals-order :sorted
      :initial-value 0
      )
    (width
      :value-type :number
      :title (sd-multi-lang-string "Width" :german "Breite")
      :persistent-data-storage T
      :proposals '(320 480 640 800 1024 1280 1440 1600 1920 2560)
      :auto-add-proposal t
      :proposals-order :sorted
      )
    (height
      :value-type :number
      :title (sd-multi-lang-string "Height" :german "Höhe")
      :persistent-data-storage T
      :proposals '(320 480 640 800 1024 1280 1440 1600 1920 2560)
      :auto-add-proposal t
      :proposals-order :sorted
      )
    (fit
      :value-type :boolean
      :toggle-type :wide-toggle
      :title (sd-multi-lang-string "Fit VP" :german "mit Einpassen")
      :initial-value nil
      :persistent-data-storage T
      )
    )
  :ok-action
  '(progn
     (sd-resize-vp zvp
       :x x
       :y y
       :width width
       :height height)
     (if fit
       (sd-call-cmds (fit_vp zvp))
       (sd-call-cmds (redraw_vp zvp))
       )
    );;progn
  :help-action '(sd-display-url "https://ww3.cad.de/foren/ubb/Forum29/HTML/004884.shtml#000004")
)