;;-------------------------------------------------------------------------------------
;; gdm_a1_dim_toleranz.lsp
;; os / 05.11.2010
;; Maß - mit +/- bzw. oben/unten Toleranz versehen und löschen
;; gdm_a2_dim_toleranz.lsp
;; Leerzeichen in den Proposals bei oben/unten (highway45 - 9.Jun2011)
;;-------------------------------------------------------------------------------------

(in-package  :GDM)
(use-package :OLI)

(sd-defdialog 'gdm-dim-toleranz-dialog
  :dialog-title (sd-multi-lang-string "Tolerance" :german "Toleranz")
  :toolbox-button nil
  :variables
   '(
	 (TOL_NEIN
          :value-type :boolean
          :toggle-type :wide-toggle
          :title (sd-multi-lang-string "Delete Tolerance" :german "Toleranz löschen")
		  :after-input (if TOL_NEIN
		                   (progn (sd-set-variable-status 'TOL_PM :visible nil)
						          (sd-set-variable-status 'TOL_U :visible nil)
								  (sd-set-variable-status 'TOL_L :visible nil)
						          (setf DIM_TOLERANZ nil));;progn
						   (progn (sd-set-variable-status 'TOL_PM :visible t)
						          (sd-set-variable-status 'TOL_U :visible nil)
								  (sd-set-variable-status 'TOL_L :visible nil)
						          (setf DIM_TOLERANZ nil));;progn
					   );;if
          :initial-value nil)
	 (TOL_TYPE_PM
          :value-type :boolean
          :toggle-type :wide-toggle
          :title (sd-multi-lang-string "Plus-Minus" :german "Plus-Minus")
		  :after-input (progn (sd-set-variable-status 'TOL_PM :visible t)
						      (sd-set-variable-status 'TOL_U :visible nil)
							  (sd-set-variable-status 'TOL_L :visible nil)
							  (setf DIM_TOLERANZ nil))
          :initial-value t)
	 (TOL_TYPE_UL
          :value-type :boolean
          :toggle-type :wide-toggle
          :title (sd-multi-lang-string "Upper-Lower" :german "Oben-Unten")
		  :after-input (progn (sd-set-variable-status 'TOL_PM :visible nil)
						      (sd-set-variable-status 'TOL_U :visible t)
						      (sd-set-variable-status 'TOL_L :visible t)
						      (setf DIM_TOLERANZ nil))
          :initial-value nil) 
     (TOL_PM
       :title (sd-multi-lang-string "Tolerance" :german "Toleranz")
	   :value-type :length
       :proposals (0.05 0.1 0.2 0.3 0.4 0.5 0.6 0.7 0.8 0.9 1 1.5 2)
	   :initial-value 0.1
	   :after-input (setf DIM_TOLERANZ nil)
	   :initial-visible t)
     (TOL_U
       :title (sd-multi-lang-string "Upper" :german "Oben")
	   :value-type :string
	   :proposals ("+2" "+1" "+0.6" "+0.5" "+0.4" "+0.3" "+0.2" "+0.1" "+0.05" " " " 0" "-0.05" "-0.1" "-0.2" "-0.3" "-0.4" "-0.5" "-0.6" "-1" "-2")
	   :initial-value "+0.1"
	   :after-input (setf DIM_TOLERANZ nil)
	   :initial-visible nil)
     (TOL_L
       :title (sd-multi-lang-string "Lower" :german "Unten")
	   :value-type :string
	   :proposals ("-2" "-1" "-0.6" "-0.5" "-0.4" "-0.3" "-0.2" "-0.1" "-0.05" " " " 0" "+0.05" "+0.1" "+0.2" "+0.3" "+0.4" "+0.5" "+0.6" "+1" "+2")
	   :initial-value "-0.2"
	   :after-input (setf DIM_TOLERANZ nil)
	   :initial-visible nil)
	 (DIM_TOLERANZ
        :selection (*sd-anno-dimension-seltype*)
	    :title (sd-multi-lang-string "Dimension" :german "Bemassung")
        :prompt-text (sd-multi-lang-string "Pick Dimension." :german "Wähle Bemassung.")
        :after-input (if TOL_NEIN
						(sd-call-cmds (AM_DIM_PROPS :page :tolerance DIM_TOLERANZ :dim_list :TOL_TYPE :NONE))
					    (if TOL_TYPE_PM
						    (sd-call-cmds (am_dim_props :dim_list DIM_TOLERANZ :TOL_TYPE :PLUS_MINUS :tol_upper TOL_PM)) 
							(sd-call-cmds (am_dim_props :dim_list DIM_TOLERANZ :TOL_TYPE :UPPER_LOWER :tol_upper TOL_U :tol_lower TOL_L))
					    )
					 )
		:next-variable 'DIM_TOLERANZ)
    );;variables
  :mutual-exclusion '(TOL_NEIN TOL_TYPE_PM TOL_TYPE_UL)
  :ok-action '(cancel)
);; sd-defdialog