Tcl/tk

[Freak]

Code:

toplevel .mesg-eing
wm title .mesg-eing "Eingabe"
font create nachricht -family Arial -size 20 -weight bold
set mesganzahl "0"
set mesgausgabe " Zähler: $mesganzahl Ziffern!"
wm withdraw .
wm overrideredirect .

#-----------------------------------------------------------

label .mesg-eing.lab0 -text "Bitte Text eingeben! Nicht länger als 50 Zeichen! \
	Der Rest wird automatisch gelöscht."
	pack .mesg-eing.lab0

entry .mesg-eing.ent0 -textvariable mesgeingabe -width 125
	pack .mesg-eing.ent0
	focus -force .mesg-eing.ent0
	
label .mesg-eing.lab1 -textvar mesgausgabe
	pack .mesg-eing.lab1

button .mesg-eing.btn0 -text "Ausgeben!" -command mesg-ausgeben
	pack .mesg-eing.btn0
#-----------------------------------------------------------

proc mesg-überprüfen {} {
	global mesganzahl mesgausgabe
	.mesg-eing.ent0	 delete 50 end
	set mesganzahl [.mesg-eing.ent0 index end]
	set mesgausgabe " Zähler: $mesganzahl Ziffern!"
	.mesg-eing.ent0	 delete 50 end
	set mesganzahl [.mesg-eing.ent0 index end]
	set mesgausgabe " Zähler: $mesganzahl Ziffern!"
	 }

proc mesg-ausgeben {} {
	global mesgeingabe
	wm withdraw .mesg-eing
	toplevel .mesg-ausg
	wm overrideredirect .mesg-ausg 1
	wm geometry .mesg-ausg 820x120+100+325
	label .mesg-ausg.lab0 -text "Nachricht empfangen:"
		pack .mesg-ausg.lab0
	label .mesg-ausg.lab1 -text ""
		pack .mesg-ausg.lab1
	label .mesg-ausg.lab2 -text $mesgeingabe -font nachricht
		pack .mesg-ausg.lab2
	label .mesg-ausg.lab3 -text ""
		pack .mesg-ausg.lab3
	label .mesg-ausg.lab4 -text "-----   Zum Schließen bitte klicken oder Taste drücken!   -----"
		pack .mesg-ausg.lab4
	bind .mesg-ausg <ButtonPress> {wm deiconify .
		destroy .mesg-ausg}
	bind .mesg-ausg <KeyPress> {wm deiconify .
		destroy .mesg-ausg}
	focus -force .mesg-ausg
	tkwait window .mesg-ausg 
		{exit}
	}
		
#-----------------------------------------------------------

bind .mesg-eing.ent0 <Key-Return> mesg-ausgeben
bind .mesg-eing.ent0 <KeyPress> mesg-überprüfen

Edit: Hier der Code, hab nur am Anfang der Prozedur noch "global eingabe" eingefügt, funzt jetzt. Jetzt das nächste Problem, der Zähler laagt, wie besser machen??