PERL 小部件错误答案

【问题标题】：PERL widget errorPERL 小部件错误
【发布时间】：2014-10-16 06:39:37
【问题描述】：

我正在尝试使用 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 行的小部件

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

【问题讨论】：

标签： perl widget tk

【解决方案1】：

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

12.2. Menubars and Pulldown Menus

您也可以使用此网站了解更多高级知识...

祝你好运。

【讨论】：