Tcl/tk

[Freak]

Hi
Hab jetzt mal mit TCL/TK angefangen, das is ja für den Anfang völlig ungewohnt, wenn man nur Objektorientierte Sprachen kennt.
Ich hab jetzt mal n kleines Stück Code geschrieben (JA, ich weiß, es geht kürzer und eleganter, hab aber auch erst angefangen):

Code:

entry .e -textvariable eingabe -width 100 -validate key \
	-vcmd {expr {[string length $eingabe]<200}}
pack .e

button .btn1 -text "Ausgeben!" -command {Ausgeben}
pack .btn1

proc Ausgeben {} {wm withdraw .
	toplevel .top
	wm overrideredirect .top 1
	wm geometry .top 600x100+200+350
	label .top.lab -text $eingabe
	pack .top.lab
	bind .top <ButtonPress> {wm deiconify .
		destroy .top}
	tkwait window .top 
		exit}

Jetzt kommt folgende Fehlermeldung:

can't read "eingabe": no such variable
can't read "eingabe": no such variable
    while executing
"label .top.lab -text $eingabe"
    (procedure "Ausgeben" line 5)
    invoked from within
"Ausgeben"
    invoked from within
".btn1 invoke"
    ("uplevel" body line 1)
    invoked from within
"uplevel #0 [list $w invoke]"
    (procedure "tk::ButtonUp" line 24)
    invoked from within
"tk::ButtonUp .btn1"
    (command bound to event)

Ich finde aber keinen Fehler, es ging noch, befor ich die Prozedur eingefügt hab um das ganze Zeugs wenigstens n Bisschen übersichtlicher zu machen.