;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;
;; 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.
;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

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

;; demo loop for progress indicator with UI update

(let ((max-loop 21))

  (ui::CREATE-PROGRESS-BAR) ;; show the green progress bar
  (display "CAD.DE Da werden sie geholfen!")

  (dotimes (i max-loop)
    (display (format nil "Progress ~3D" i))  ;; klassisch , unterwegs nicht sichtbar
  
    (frame2::set-prompt (format nil "working on item ~3D = ~4D% of all" i (round (/ i max-loop 0.01))) :flush) ;; the prompt line with forced update
    (UI::WIN-UPDATE-PROGRESS-BAR 1 i max-loop) ;; update the green progress bar
    
    (sleep 1)  ; to the work

    ) ;; end dotimes
  (UI::WIN-DESTROY-PROGRESS-BAR) ;; hide the green progress bar
  ) ;; end let