|
my $entry = $main->Entry('-textvariable' => \$command); $entry->bind('<Control-u>', sub { $command = "" }); $entry->bind('<Return>', sub { add_button($command); system($command); }); $entry->pack('-fill' => 'x'); |
Alle bekannten Parameter bei Tcl/Tk wie z.B. textvariable
sind auch in Perl/Tk bekannt.
| |
Statt dem Namen einer Variable wird bei Perl/Tk ein Zeiger
auf eine Variable übergeben. Damit werden die Probleme
symbolischer Referenzen vermieden.
| |
bind ist eine Methode aller Widgets und keine Prozedur
im konventionellen Sinne.
| |
Die Spezifikation von Ereignismustern ist gegenüber
Tcl/Tk unverändert. Sie müssen jedoch als Zeichenkette
angegeben werden, da die <...> sonst im Konflikt zu
dem Einlese-Operator wären.
|
Copyright © 1996 - 2003 Andreas Borchert, in HTML konvertiert am 01.10.2003 |