;;--------------------------------------------------------------------------*
;;                                                  *
;;                                                                          *
;;--------------------------------------------------------------------------*
;;  Dateiname: transparent.lsp
;;  Version  : 1.0
;;  Datum    : 04.04.2012
;;  Author   : Steffen Sack 
;;--------------------------------------------------------------------------*
;;  
;;--------------------------------------------------------------------------*


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

(sd-defdialog 'sas_transparents 
:dialog-title "Transparents ein/aus"
  :variables
  '(
    (Teil
     :multiple-items T
     :value-type :part
     :modifies :contents   
     :title "Teil(e) waehlen"
	 :prompt-text "Bitte Teil angeben"

     )
	 
	 
    (trans1   
    :title "Transparents (halb)"	
         :push-action (sas_trans_1))
		 
   (trans2   
    :title "Transparents (voll)"	
         :push-action (sas_trans_2))
		 
    (trans3   
    :title "Transparents aus"	
         :push-action (sas_trans_3))		 
   ) ;; end variables
   

  
  
  :local-functions '(
  (sas_trans_1 ()
  
  (progn
 
      (sd-call-cmds
    (set_part_base_transparency :parts teil :transp 0.5)
          );; end sd-call-cmds  
		  ) ;;end progn
         ) ;; sas_trans_ein  
		 
(sas_trans_2 ()
  
  (progn
 
     (sd-call-cmds
    (set_part_base_transparency :parts teil :transp 1.0)
          );; end sd-call-cmds  
		  ) ;;end progn
         )
         
 (sas_trans_3 ()
  
  (progn
 
      (sd-call-cmds
    (set_part_base_transparency :parts teil :transp 0)
          );; end sd-call-cmds       
		  );;end progn
         ) ;; sas_trans_ein 
	
 
	

	)
	:ok-action  '()
	


		 
   :help-action 
  '(progn 
	(display :show  )
	(display  " ")
	(display  "Hilfe Transparents ein/aus'")
	(display  "Setzt die Transparents der angewählten  04-04-2011 sas"))	
  ) ;; end dialog