Entries

 [Vorheriges Kapitel]  [Vorherige Seite]  [Inhaltsverzeichnis]  [Nächste Seite]  [Nächstes Kapitel]

cmds.pl
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.
 

 [Vorheriges Kapitel]  [Vorherige Seite]  [Inhaltsverzeichnis]  [Nächste Seite]  [Nächstes Kapitel]
Copyright © 1996, 1998, 1999, 2000 Andreas Borchert, in HTML konvertiert am 07.02.2000