;;-----------------------------------------------------------------------------
;;                                               for CoCreate OneSpace Designer
;;  Description:
;;      Entdecke die Möglichkeiten vom Dialog Generator
;;
;;      Was passiert eigentlich wann?    test dialog zum erforschen
;; 
;;   auch mal die command line probieren: 
#|
                       (WHAT_AND_WHEN :str_var2 "via commandline")
                       (WHAT_AND_WHEN :num_var2 4)
                       (WHAT_AND_WHEN :str_var2 "via commandline" :num_var2 4)
|#
;;-----------------------------------------------------------------------------
;;
;;  Filename   : dialog_when_and_what.lsp
;;  Version    : 1.0
;;  Datum      : 13sep2008
;;  Author     : der_Wolfgang@forum@cad.de
;;  Download   : osd.cad.de (sooner or later)
;;  SD-Version : developed with 14.50
;;
;;-----------------------------------------------------------------------------

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

(defun dialog-start-p ()
  ;; nur ein dummy
  (sd-inq-curr-part)
  )
  
;****************  Was passiert eigent lich wann?
(sd-defdialog 'what_and_when
  :toolbox-button T
  :top-prompt (progn (pprint "  :top-prompt  von dialog what_and_when") "mein top prompt text")
  :precondition '(progn
                  (format T "~%~%===============================================================~%~%") 
                  (pprint "  :precondition  von dialog what_and_when") 
                  (if (dialog-start-p)
                    :ok
                    (values :error "Vorbedingung zum Dialog starten nicht erfuellt: kein actives part vorhanden.")
                   )
                  ) ;; end precondition
  :variables
  '(
    (num_var
      :value-type :number
      :initial-optional T
      :initial-value (progn (pprint "    :before-input von num_var") nil)

      :before-input (pprint "    :before-input von num_var")
      :after-input  (pprint "    :after-input von num_var")

      :start-input-feedback (pprint "    :start-input-feedback von num_var")
      :end-input-feedback   (pprint "    :end-input-feedback von num_var")
    )

    (num_var2
      :value-type :length
      :initial-optional T
      :initial-value (progn (pprint "    :before-input von num_var2") 42)

      :before-input (pprint "    :before-input von num_var2")
      :after-input  (pprint "    :after-input von num_var2")

      :start-input-feedback (pprint "    :start-input-feedback von num_var2")
      :end-input-feedback   (pprint "    :end-input-feedback von num_var2")
    )

    ("-")
    (str_var
      :value-type :string
      :initial-optional T
      
      :before-input (pprint "    :before-input von str_var")
      :after-input  (pprint "    :after-input von str_var")

      :show-input-tool (pprint "    :show-input-tool von str_var")
      :hide-input-tool (pprint "    :hide-input-tool von str_var")
    )

    (str_var2
      :value-type :string
      :initial-optional T
      
      :before-input (pprint "    :before-input von str_var2")
      :after-input  (pprint "    :after-input von str_var2")

      :before-input-ui (pprint "    :before-input-ui von str_var2")
      :after-input-ui  (pprint "    :after-input-ui von str_var2")

      :show-input-tool (progn (pprint "    :show-input-tool von str_var2")(sd-show-general-text-editor))
      :hide-input-tool (progn (pprint "    :hide-input-tool von str_var2")(sd-hide-general-text-editor))
      
      :next-variable (progn (pprint "    :next-variable von str_var2") nil)
    )

    ("-")  ;; spacer in the dialog layout
    (Next
     :push-action (pprint "    :push-action von next")
        ) 
   ) ;; end of variable definitions

  :local-functions
  '(
    (nix-zu-tun ()
     (pprint "     :local-funtion nix-zu-tun")
     )
    ) ;; end of local function definitions

  :after-initialization    '(pprint "  :after-initialization von dialog what_and_when") 
  :after-initialization-ui '(pprint "  :after-initialization-ui von dialog what_and_when") 

  :exception       '(pprint "  :exception       von dialog what_and_when") 
  :cleanup-action  '(pprint "  :cleanup-action  von dialog what_and_when") 

  ; :ok-action-precondition  
  :ok-action       '(pprint "  :ok-action       von dialog what_and_when") 
  :cancel-action   '(pprint "  :cancel-action   von dialog what_and_when") 
  
  
  :help-action     '(pprint "  :help-action     von dialog what_and_when") 
  ) ;; end of dialog