;;--------------------------------------------------------------------------*
;;  Dateiname: SD_Teil-aktiv.lsp
;;  Version  : 1.0
;;  Datum    : 09.03.2015
;;  Author   : BFE
;;--------------------------------------------------------------------------*
;;  Setzt das selektierte Teil aktiv und sucht es in der Strukturliste
;;--------------------------------------------------------------------------*
;;Versionierung
;;  1.0 Urversion
;;--------------------------------------------------------------------------*
(in-package  :examples)
(use-package :oli)

;;--------------------------------------------------------------------------*
(sd-defdialog 'Teil-aktiv
:dialog-title "Teil aktivieren"
:toolbox-button t
:variables
  '(
  	(teil1
		   :value-type :part
		   :title "Teil"
           :prompt-text "zu aktivierendes Teil anklicken"
		   :initial-value nil
		   :modifies nil
     :after-input
	        (ausfuehren)
		   )

	);;end variable teil1
:local-functions
'((ausfuehren ()
   
  (progn
		   (current_part teil1)
		   (g-browser::gb-search-active-parcel :part "parcel-gbrowser")
		   )
		   )
		   )
:ok-action
'()
)