24 lines
435 B
Perl
24 lines
435 B
Perl
|
use Tk;
|
||
|
|
|
||
|
|
$main = MainWindow->new();
|
||
|
|
|
||
|
|
$listbox1 = $main->Listbox("-width" => 25,
|
||
|
|
"-height" => 5
|
||
|
|
)->pack;
|
||
|
|
|
||
|
|
$listbox1->insert('end', "Apples", "Bananas",
|
||
|
|
"Oranges", "Pears", "Pineapples");
|
||
|
|
|
||
|
|
$listbox1->bind('<Double-1>', \&getfruit);
|
||
|
|
|
||
|
|
$text1 = $main->Text ('-width'=> 40, '-height'
|
||
|
|
=> 2
|
||
|
|
)->pack;
|
||
|
|
|
||
|
|
sub getfruit {
|
||
|
|
$fruit = $listbox1->get('active');
|
||
|
|
$text1->insert('end', "$fruit ");
|
||
|
|
}
|
||
|
|
|
||
|
|
MainLoop;
|