Perl 有哪些好的交互式 GUI 构建器包? [英] What are good interactive GUI builder packages for Perl?

问题描述

我想用 Perl 编写一些交互式 GUI.我用过 TclTk 但它看起来过时了.我已经为 C++ 编写了 QT 代码，但是 PerlTk 模块已经好几年没有发布了.谷歌搜索我看到了其他可能的选择.

I'd like to write some interactive GUIs in Perl. I've used TclTk but it looks dated. I've written QT code for C++, but the PerlTk module hasn't had a release in several years. Googling around I see other possible options.

有什么好的包，包括基本的窗口、菜单、绘图画布、滚动条等等.

What are good packages for this, including basic windowing, menus, drawing canvas, scrollbars, and so on.

推荐答案

Gtk2 有 glade2，它可以写出一个可供 Gtk2::GladeXML.这是一个示例，说明如何将 XML 与应用程序捆绑在一起在同一文件中.

Gtk2 has glade2 which can write out an XML file usable by Gtk2::GladeXML. Here is an example of how to bundle the XML with the app in the same file.

我一开始误读了这个问题.我以为你想要一个用于制作 GUI 的 GUI 编辑器(这就是 Glade2).您也可以使用 Gtk2 来创建 GUI，而无需 Glade2:

I misread the question at first. I thought you wanted a GUI editor for making GUIs (which is what glade2 is). You can also create GUIs using Gtk2 without glade2:

#!/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;

这篇关于Perl 有哪些好的交互式 GUI 构建器包?的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！