Question

我想为我的Perl程序创建一个简单的Windows GUI。它基本上需要生成一个窗口，将日志信息写入文本框，并有一个输入框和几个开始/停止按钮。

有没有人知道我使用哪种Perl模块？我和Qt一起工作的人，这可能是一种偏好，但我并不感到困扰。

Answer 1

我曾为这样一个简单的项目使用过Win32::GUI次。主窗口有一个菜单，一个文本框和几个按钮和复选框。它奏效了。

摘自设置GUI的方法（只是为了给你一个想法）：

my @menu_items = (
    '&File' => 'File',
    ' > &Open'   => {
        -name    => 'FileOpen', 
        -onClick => sub { $self->onFileOpen(@_) },
    },
    ' > &Close'  => { 
        -name    => 'FileClose',
        -onClick => sub { $self->onFileClose(@_) },
    },
    ' > E&xit'   => { 
        -name    => 'FileExit',
        -onClick => sub { $self->onFileExit(@_) },
    },
    '&Help' => 'Help',
    ' > &About'  => { 
        -name    => 'About',
        -onClick => sub { $self->onHelpAbout(@_) },
    },
);

$self->set_main_menu( Win32::GUI::MakeMenu(@menu_items) );

my $window = $self->set_main_window(
    Win32::GUI::Window->new(
        -menu => $self->get_main_menu,
        -name => 'Main',
        -sizable => 0,
        -resizable => 0,
        -hasmaximize => 0,
        -maximizebox => 0,
        -title => $self->get_program_name,
        -onTerminate => sub { -1 }, 
        -onTimer => sub { $self->onTimer(@_) },
    ),
);

$self->set_log_field(
    $window->AddTextfield(
        -name => 'Log',
        -font => Win32::GUI::Font->new(
            -name => 'LogFont',
            -face => 'Courier New',
            -size => 9,
        ),
        -multiline => 1,
        -wantreturn => 1,
        -autovscroll => 1,
        -vscroll => 1,
        -readonly => 1,
    ),
);

$self->get_log_field->MaxLength(40000);

$self->set_status_bar(
    $window->AddStatusBar(
        -name => 'Status',
        -text => $self->get_program_name,
    ),
);

Answer 2

您有多种选择：

我偏爱Gtk2。它可以通过CamelBox安装程序轻松安装在MS Windows中。

简单的“hello world”样式应用程序看起来像

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

my $i;
$button->signal_connect(clicked => sub {
    $label->set_text("button pressed " . ++$i . " times");
});

$window->signal_connect(destroy => sub { Gtk2->main_quit });

$window->show_all;

Gtk2->main;

Answer 3

来自Activestate的Perl 5.10预编译了Tkx，这是一个Gui平台。如果您想要一个包含更多Web示例的模块，可以下载Perl Tk。您使用哪个模块，可以从sourceforge下载GUIbuilder，它为perl编写相当不错的Tk或Tkx代码，为python，ruby编写Tk代码。

此代码主要由GuiBuilder生成，作为输出代码的示例：

use Tkx;
Tkx::package_require('BWidget');

sub example::ui {
     my($root) = @_;

     my($_entry_box) = $root->new_entry(
     -width => 0,
     );
     my($_text_box) = $root->new_text(
         -height => 0,
         -width => 0,
     );
     my($_label) = $root->new_label(
          -text => "Hello World",
     );
     my($_textbox_horiz_scrollbar) = $root->new_scrollbar(
          -orient => "horizontal",
     );
     my($_textbox_vert_scrollbar) = $root->new_scrollbar(
     );
     my($_Start_Button) = $root->new_Button(
          -text => "Start",
          -width => 10,
     );
     my($_Stop_Button) = $root->new_Button(
          -text => "Stop",
          -width => 10,
     );

     $_entry_box->configure(
          -invalidcommand => \&_entry_box_invalidcommand
     );
     $_entry_box->configure(
          -validatecommand => \&_entry_box_validatecommand
     );
     $_entry_box->configure(
          -xscrollcommand => \&_entry_box_xscrollcommand
     );
     $_text_box->configure(
          -xscrollcommand => [ $_textbox_horiz_scrollbar => set ]
     );
     $_text_box->configure(
          -yscrollcommand => [ $_textbox_vert_scrollbar => set ]
     );
     $_textbox_horiz_scrollbar->configure(
          -command => [ $_text_box => xview ]
     );
     $_textbox_vert_scrollbar->configure(
          -command => [ $_text_box => yview ]
     );
     $_Start_Button->configure(
          -armcommand => \&_Start_Button_armcommand
     );
     $_Start_Button->configure(
          -command => \&_Start_Button_command
     );
     $_Start_Button->configure(
          -disarmcommand => \&_Start_Button_disarmcommand
     );
     $_Stop_Button->configure(
          -armcommand => \&_Stop_Button_armcommand
     );
     $_Stop_Button->configure(
          -command => \&_Stop_Button_command
     );
     $_Stop_Button->configure(
          -disarmcommand => \&_Stop_Button_disarmcommand
     );
     sub _entry_box_xscrollcommand {}

# Geometry Management
     $_entry_box->g_grid(
          -in     => $root,
          -column => 1,
          -row    => 2,
          -columnspan => 3,
          -ipadx => 0,
          -ipady => 0,
          -padx => 0,
          -pady => 5,
          -rowspan => 1,
          -sticky => "ew"
     );
     $_text_box->g_grid(
          -in     => $root,
          -column => 1,
          -row    => 3,
          -columnspan => 2,
          -ipadx => 0,
          -ipady => 0,
          -padx => 0,
          -pady => 0,
          -rowspan => 1,
          -sticky => "news"
     );
     $_label->g_grid(
          -in     => $root,
          -column => 1,
          -row    => 1,
          -columnspan => 3,
          -ipadx => 0,
          -ipady => 0,
          -padx => 0,
          -pady => 0,
          -rowspan => 1,
          -sticky => "ew"
     );
     $_textbox_horiz_scrollbar->g_grid(
          -in     => $root,
          -column => 1,
          -row    => 4,
          -columnspan => 2,
          -ipadx => 0,
          -ipady => 0,
          -padx => 0,
          -pady => 0,
          -rowspan => 1,
          -sticky => "ew"
     );
     $_textbox_vert_scrollbar->g_grid(
          -in     => $root,
          -column => 3,
          -row    => 3,
          -columnspan => 1,
          -ipadx => 0,
          -ipady => 0,
          -padx => 0,
          -pady => 0,
          -rowspan => 1,
          -sticky => "ns"
     );
     $_Start_Button->g_grid(
          -in     => $root,
          -column => 1,
          -row    => 5,
          -columnspan => 1,
          -ipadx => 0,
          -ipady => 0,
          -padx => 0,
          -pady => 0,
          -rowspan => 1,
          -sticky => ""
     );
     $_Stop_Button->g_grid(
          -in     => $root,
          -column => 2,
          -row    => 5,
          -columnspan => 2,
          -ipadx => 0,
          -ipady => 0,
          -padx => 0,
          -pady => 0,
          -rowspan => 1,
          -sticky => ""
      );


# Resize Behavior
     $root->g_grid_rowconfigure(1, -weight => 0, -minsize => 2, -pad => 0);
     $root->g_grid_rowconfigure(2, -weight => 0, -minsize => 12, -pad => 0);
     $root->g_grid_rowconfigure(3, -weight => 1, -minsize => 85, -pad => 0);
     $root->g_grid_rowconfigure(4, -weight => 0, -minsize => 4, -pad => 0);
     $root->g_grid_rowconfigure(5, -weight => 0, -minsize => 40, -pad => 0);
     $root->g_grid_columnconfigure(1, -weight => 1, -minsize => 67, -pad => 0);
     $root->g_grid_columnconfigure(2, -weight => 1, -minsize => 186, -pad => 0);
     $root->g_grid_columnconfigure(3, -weight => 0, -minsize => 2, -pad => 0);
}

my($root) = Tkx::widget->new('.');
$root->g_wm_title('stackoverflow');
example::ui($root);

Tkx::MainLoop();

1;

Answer 4

使用Perl / Tk

Answer 5

我唯一使用的是Perl Tk。它很快学会了，网上有很多例子，我能够快速从Mac OS X移植到Windows。

缺点是GUI看起来过时了。它非常适合内部工具，但不适合销售给第三方。

Perl模块用于创建简单的Microsoft Windows GUI？

5 个答案: