PERL小部件错误

Question

我正在尝试在PERL上使用TK模块制作一个窗口，在输入值时显示凝胶电泳结果。

示例原始电泳结果。

所以，实际上我想要一个黑屏，当你输入数值时，屏幕上会出现白条。我不是编程方面的专家，所以我使用在线更改命令的参考来满足我的需要。我目前的代码是

#!/usr/local/bin/perl5 -w

use Tk;

my $main = MainWindow->new();
$main->minsize(qw(900 700));
$main->title("Gel Electrophoresis");
$main->configure (-background => 'black');

MainLoop();

my $menu_bar = $main->Frame(-relief => 'groove', -borderwidth => 100, -background => 'purple',)->pack('-side' => 'top', -fill => 'x');

my $file_mb = $menu_bar->Menubutton(-text=> 'File', -background => 'white', -activebackground => 'cyan', -foreground => 'white',)->pack(-side => 'left');

此代码为我提供了黑色背景，但菜单栏似乎不起作用。我收到了错误

  

MainWindow = HASH（0x918fa20）不是bigone.pl第12行的小部件

我正在遵循每条指令，但似乎无法对此进行排序。任何帮助表示赞赏。谢谢。

Answer 1

我使用不同的方式显示菜单栏，使用此页面开始：

12.2. Menubars and Pulldown Menus

您可以使用此网站了解更多高级内容......

祝你好运。