;# ===========================================================================
;#  Dateiname:	.../textzuweisen.lsp
;# ===========================================================================
;#  Bearbeiter:  	Thomas Dörner
;#  Stand:		16.09.2003
;# ===========================================================================
;#  Beschreibung:  Eingegebenen Text einer Variablen auf dem Zeichnungsrahmen zuweisen
;# ===========================================================================

;# ===========================================================================
;;### alle Befehle werden in custom - frei wählbar - gepackt
;# ===========================================================================
(in-package :custom)

;# ===========================================================================
;;### Lade Befehlssatz für Integration Kit
;# ===========================================================================
(use-package :OLI)	

;# ===========================================================================
;;### Dialog
;# ===========================================================================
(sd-defdialog 'TextZuweisen
   	:toolbox-button t  
   	:dialog-title "TextZuweisen" 
   	:variables 
   	'(
       	(TXT_1  		
          		:value-type :string
          		:title "Text 1"
          		:prompt-text "Gib Text 1 ein")     		          		
        	              	        		
       ) ;; ende Variablen

  	:ok-action
     		'(los-gehts)

   	:local-functions 
   	'(
		(los-gehts ()
		
			(docu::docu-unregister-tr-group "TD_Group")
			(docu::docu-register-tr-group "TD_Group" "SHEET")
			(docu::docu-register-tr-type  "TD_Group" "SHEET_TEXT1" "???" 
									'custom::custom_inq_curr_text)
			
			(defun custom_inq_curr_text()
				(setq SHEET_TEXT1 TXT_1)
			)
			
			(AM_TEXT_REFERENCE :tr_update)

     		) ;; ende los gehts   
   	) ;; ende local-functions
);;ende Dialog