用 Perl 进行 GNOME 编程

GNOME 是一个 UNIX 下的桌面系统，它提供了在 Unix 下编写图形程序的环境，支持鼠标拖放，程序间通信，CORBA 组件(也就是在 Windows 里面的 OLE),CORBA 组件是一组标准的，美观的编程接口，以及所有其它现代的图形应用程序应该包含的特征。所有这些都能在 Perl 的完成，也就是 Perl 程序员能够用GNOME 库来编写整洁漂亮的应用程序，但是这儿也有一点小小的问题。。。

% perldoc GNOMENo documentation found for "GNOME".

GNOME系统构成简介：

整个 GNOME 系统非常的复杂，由很多的库和组件组成。幸运的是，教学及日常大部分的程序，你都只需要知道其中的两个部分: GTK+ 和 GNOME.

可能你已经听说过了 TK,另一个 Perl 程序员经常用到的图形工具库.Tk 所扮演的角色主要是与 X 窗口服务器通信，告诉它怎样画一个按钮，菜单，控制栏，对话框等，根据用户的点击情况执行相应的 Perl 子程序.Tk库一方面用到了 Perl 的便捷，另一方面又不得不与虽然强大但是却很原始难懂的X窗口系统打交道.

GTK+ 也完成相似的任务，但是却更简单。GTK+ 提供所有的窗口，按钮，文本标记，文本输入框，一切我们的程序用的到的图形控件。而且，严格的说还提供主窗口事件等待循环，以便监视用户的动作。

GNOME 库则在 GTK+ 的基础上进行了更高一个层次的抽象，为我们提供更高层的图形对象，比如主应用程序窗口，弹出窗口，按钮板，对话框，颜色字体选择器，甚至还提供与GNOME环境中其它部分的粘合交互通信，比如拼写检查，计算器及其它应用程序资源。

Hello,World

这里我们展示经典的 “Hello,World” 程序的两个版本，一个用 GTK+ 实现，一个用 GNOME 实现

GTK+ 版： 

   1 #!/usr/bin/perl -w   2   3 use strict;   4 use Gnome;   5    6 my $NAME = 'Hello World';   7   8 init Gnome $NAME;   9  10 my $w = new Gtk::Window -toplevel;  11  12 my $label = new Gtk::Label "Hello, world";  13 $w->add($label);  14  15 show_all $w;  16   17 main Gtk;

在第四行，装载 Gnome 模块，这样就将一并装载其下的 GTK+ 模块。第八行注册并初始化这个程序，分配我们在该程序中需要的资源，init 语句后面根这个程序的标题，它将显示在标题栏。 

在第十行，创建主窗口，也就是最顶层的窗口，它不是任何其它组件的子窗口。然后，我们创建内容为 “Hello,world” 的消息文本标签，任何我们想要在窗口中显示的文本都必须是派生于 Gtk::Label 对象的实例，在第十二行我们就是这样做的，并把派生的实例命名为 $label。但是仅仅是第十二行的一条语句没有任何作用，它仅仅创建了文本，却不能显示在任何地方显示出来。未了在窗口中显示它，我们必须用窗口的 add 方法把这个标签实例添加到待显示列。

然后，我们决定在程序启动的时候应该显示上面。如果我们想要显示窗口中包含的所有的东西，在这里也就是那个消息文本标签，我们就需要调用窗口的 show_all 方法。注意，调用了 show_all 后窗口仍不会被显示，show_all 方法只是申明了程序运行的时候待显示的内容。

最后，main Gtk 这条语句将把程序的控制权交给 GTK+ 的主事件等待循环，GTK+ 的主事件等待循环首先在屏幕上绘出窗口，在窗口里显示出文本，然后就等待用户的点击等动作了。

*一旦运行到 main Gtk 语句，程序的状态就不确定了，以后发生的一切都要依赖于用户的动作。不象程序员通常编程时为整个程序设计好所有的运行流程，现在我们必须要适应这个被动的角色，要更具用户的动作来做出相应的响应，而要实现这一点，正如我们在后面看到的一样，多少得靠子函数。再次申明，当程序运行到 main Gtk 的时候，我们的工作就算完成了，而 GTK+ 监视用户动作则刚开始。

下面这个是程序的Gnome版：

     1  #!/usr/bin/perl -w     2       3  use strict;     4  use Gnome;     5       6  my $NAME = 'Hello World';     7       8  init Gnome $NAME;     9      10  my $app = new Gnome::App $NAME, $NAME;    11      12  my $label = new Gtk::Label "Hello, world";    13  $app->set_contents($label);    14      15  show_all $app;    16      17  main Gtk;

和上面的Gtk+版一样长，而且大部分语句都是一样的，下面这处有改动：

10 my $app = new Gnome::App $NAME, $NAME;

13 $app->set_contents($label);

为什么在这里用 set_content 方法而不用 add 方法呢？这是由 GTK+ 把图形元素(也就是控件)显示在窗口中的方法决定的，GTK+ 如何显示图形元素由包含该图形元素的上一层元素，或称容器决定。通常，一个窗口只能放一个控件。但幸运的是很多控件都能自身包含其它的控件。而我们上面的那条语句则是申明，在窗口中只能放置文本标签类控件。 到现在你可能已经注意到了一点，当你用 GTK+ 编写好程序并运行它，然后点击程序中的退出按钮你却并不能退出，而不得用 Ctrl+C 或类似的强制方法退出。GNOME 中不存在这样的问题。当 GNOME 程序从窗口管理器中收到退出的通知时，它会给自己发送一个信号，当然不是 UNIX 内核中发送的那种信号，而是纯粹的 GNOME 特色的信号。我们需要捕捉这个信号，并且给这个信号编写一个相应的信号处理程序来退出程序。下面的语句就是完成这个功能：

    my $app = new Gnome::App $NAME, $NAME;    signal_connect $app 'delete_event',                         sub { Gtk->main_quit; return 0 };

现在我们的程序就会完全的退出了。但是现在这个程序还不能做什么。

 $app->create_menus(        {type => 'subtree',         label => '_File',         subtree => [                {type => 'item',                 label => 'E_xit',                 pixmap_type => 'stock',                 pixmap_info => 'Menu_Quit'                }                    ]        },        {type => 'subtree',         label => '_Help',         subtree => [                {type => 'item',                  label => '_About...',                 pixmap_type => 'stock',                 pixmap_info => 'Menu_About'                }                    ]        }      );