技术开发 频道

用Perl进行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;

  不象在Gtk+中我们申明创建一个窗口,在这里我们从更高一层声明创建一整个程序。把程序的名称传递给 new,而且传递了两个。第一个是作为窗口的标题,第二个则是在 GNOME 的环境中对该程序进行注册。 把文本标签添加到窗口的语句也有变化:

  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 };

  我们指定了一个程序来处理 “delete event“ 信号,“delete event”信号意味这退出当前子程序,返回上一级程序。我们用一个匿名子程序来捕捉并处理它—-GTK+ 中的 main_quit 方法,这个方法将终止程序的主事件等待循环。

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

 

0
相关文章