You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
29 lines
894 B
Perl
29 lines
894 B
Perl
use Tk;
|
|
|
|
my $main = MainWindow->new();
|
|
|
|
$menubar = $main->Frame()->pack('-side' => 'top', '-fill' => 'x');
|
|
|
|
$filemenu = $menubar->Menubutton('-text' => 'File')->pack('-side' => 'left');
|
|
|
|
$filemenu->command('-label' => 'Open', '-command' => sub
|
|
{$text->delete('1.0', 'end');
|
|
$text->insert('end', "You clicked open.");});
|
|
|
|
$filemenu->separator();
|
|
|
|
$filemenu->command('-label' => 'Exit', '-command' => sub {exit});
|
|
|
|
$editmenu = $menubar->Menubutton('-text' => 'Edit')->pack('-side' => 'left');
|
|
|
|
$editmenu->command('-label' => 'Search', '-command' => sub
|
|
{$text->delete('1.0', 'end');
|
|
$text->insert('end', "You clicked search.");});
|
|
|
|
$editmenu->command('-label' => 'Replace', '-command' => sub
|
|
{$text->delete('1.0', 'end');
|
|
$text->insert('end', "You clicked replace.");});
|
|
|
|
$text = $main->Text ('-width' => 40, '-height' => 3)->pack();
|
|
|
|
MainLoop; |