我想在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;

10-08 15:27