|
my $cf = $top->Frame(); $cf->pack('-side' => 'top', @fillx); $cf->Label('-text' => "Command:")->pack('-side' => 'left'); my $command = ""; my $cmd_entry = $cf->Entry('-textvariable' => \$command); $cmd_entry->bind('<Control-u>', sub { $command = "" }); $cmd_entry->bind('<Return>', \&execute_command); $cmd_entry->pack('-side' => 'left', @expandx); $cf->Button( '-text' => "Execute", '-command' => \&execute_command, )->pack('-side' => 'left'); |
Die Kommandozeile ist mit der Variablen $command
verbunden.
| |
Wenn bei der rechten Listbox einer der vorgegebenen
Testfälle selektiert wird, dann wird $command
entsprechend gesetzt.
| |
Mit dem Drücken von Return oder dem Execute-Button
kann das Kommando ausgeführt werden.
|
Copyright © 1996 - 2003 Andreas Borchert, in HTML konvertiert am 01.10.2003 |