befehl bei click ausführen in tcl

[avuton]

Hallo kann mir jemand sagen, wie ich das mache:
In einem Textfeld wird eine Datei eingegeben und wenn man auf einen Button drückt, soll der Befehl tar xcfz mit dieser datei ausgeführt werden.
Wie geht das, kann einer hier ein Beispiel posten?
danke Avuton

[Hephaestus]

Hallo avuton,

Du gibst beim entry-widget einfach mit Parameter textvariable die Variable an, in der Du Deine Eingabe (Dateiname) ablegen willst. Die Variable benutzt Du dann in Deiner exec bzw. eval Zeile z.B.:

entry .fileInput -textvariable fileName
pack .fileInput
.
.
exec tar xcfz $fileName
.
.

Vielleicht mußt Du auch anstatt exec eval benutzen.

Gruß,
Hephaestus

[pik7]

hallo,

ein Beispiel mit cat.



#!/usr/local/bin/wish8.3

label .label -text "Dateiname"
entry .entry -width 20 -relief sunken -bd 2 -textvariable Datei
button .action -text "Mach was" -command {action $Datei}
pack .label .entry .action -side left

proc action {Datei} {
puts $Datei
set AUS [exec cat $Datei]
puts $AUS
return

}


gruß