;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;
;; Filename:     sd_progress_indicator.lsp
;; Project:      privat
;; Description:  Fortschrittsanzeige im Modeling UI
;; Version:      2.0x
;;
;; Customer   :  me-myself+I
;; Reference  :  https://ww3.cad.de/foren/ubb/Forum29/HTML/005014.shtml
;; Docu       :  unsupported functions
;
;; Author:       der_Wolfgang@forum@cad.de
;; Created:      Fri Aug 28 09:18:14 CEST 2026
;; Modified:     Fri Aug 28 09:37:06 CEST 2026  der_Wolfgang@forum@cad.de
;; SD-Version:   developed with PE90,
;;               should work in older versions as well as in big Modeling
;; Language:     Lisp
;; Package:      :cadde-wt
;;
;; (C) Copyright 2026 der_Wolfgang@forum@cad.de, all rights reserved.
;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;                     So                   ;;;;;;
;;;;;;                    geht                  ;;;;;;
;;;;;;                     es                   ;;;;;;
;;;;;;                in einem Dialog           ;;;;;;
;;;;;;                    NICHT                 ;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

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

(sd-defdialog 'test_progressbar
  :toolbox-button T
  :variables
  '(
    (max-loop
      :value-type :positive-integer
      :initial-value 3
      :proposals '(5 10 20)
      :after-input (sd-set-variable-status 'progress-index :value (format nil "MAX = ~A" max-loop))
      )
    (progress-index
      :value-type :display-only
      )
   )
  :ok-action
  '(dotimes (i max-loop)
     (setq progress-index i)
     (sd-set-variable-status 'progress-index :value (format nil "~A" i)) ;; nanu?!?! muss hier ein string sein?
     (pprint i)
     (sleep 1)
     )
)