我想在Perl中编写一些交互式GUI。我已经使用过TclTk,但它看起来过时了。我已经为C++编写了QT代码,但是PerlTk模块已经有好几年没有发布了。谷歌搜索我看到其他可能的选择。
有什么好的软件包,包括基本的窗口,菜单,绘图 Canvas ,滚动条等。
最佳答案
Gtk2具有glade2,可以写出Gtk2::GladeXML可用的XML文件。这是同一文件中的example of how to bundle the XML with the app。
我一开始看错了问题。我以为您想要一个用于制作GUI的GUI编辑器(glade2是什么)。您也可以在不使用glade2的情况下使用Gtk2创建GUI:
#!/usr/bin/perl
use strict;
use warnings;
use Gtk2;
Gtk2->init;
my $window = Gtk2::Window->new;
my $vbox = Gtk2::VBox->new;
my $label = Gtk2::Label->new("Hello World");
my $button = Gtk2::Button->new("Press me");
$window->add($vbox);
$vbox->add($label);
$vbox->add($button);
$window->set_default_size(200, 200);
$window->signal_connect(
destroy => sub {
Gtk2->main_quit;
}
);
my $i = 0;
$button->signal_connect(
clicked => sub {
$label->set_text("button pressed " . ++$i . " times");
}
);
$window->show_all;
Gtk2->main;