分享
 
 
 

使用 perl 编写 GNOME 应用程序入门

王朝perl·作者佚名  2006-11-24
窄屏简体版  字體: |||超大  

大家知道, LINUX 下有两大桌面环境,一个是 KDE (K Desktop Enviroment),基于 Qt 图形库,另一个是 GNOME (GNU Network Object Model Environment),基于 Gtk+ 图形库.由于 Qt 库不遵从 GPL 协议,并且获取许可证很不方便,而 GNOME 则很不错,所以应该避免使用 Qt 库和 KDE.

从用户的角度看, GNOME 是一个集成桌面环境和应用程序的套件;从程序员的角度来看,它是一个应用程序开发框架(由数目众多的实用函数库组成).即使用户不运行 GNOME 桌面环境,用 Gnome 编写的应用程序一样可以正常运行.但是这些应用程序是可以很好的和 Gnome 桌面环境集成的.Gnome 的开发结构使开发一致的,易用的和可互操作的应用程序成为可能.

下面我来讲一下如何用 perl 来写一个基于 Gnome 的程序,虽然很简单,但却是完整的,包含有标准的通用界面.

GNOME拥有许多的库和组件,但现在我们只需知道其中的两件:GTK+ 和 GNOME. 你可能听说过 TK ,这是另一种可以使用 perl 来写图形界面应用程序的工具包.TK 的任务是告诉 X Server 如何来画按钮,菜单,对话框等等,并返回一些信号来触发相应的 perl 函数来处理一些变化.作为 perl 程序和 X Server 之间的媒介.而 GTK+ 做着类似的工作,但事实证明,它工作得更加漂亮,它可以提供所有的图形元素,诸如:按钮,文本标签,文本输入等等,使用循环等待事件的方式实现交互.GNOME 库建立了一个抽象于 GTK+ 之上的一层,提供了更高级的图形对象,比如:主应用程序窗口, about 窗口,按钮面板,对话框,颜色与字体选择框,并且提供了与其他 GNOME 环境程序(如spelling checkers, calculators)协作的接口.

此外,Glade 是一种在 Linux 下的类似 Visual Basic 的快速开发环境(IDE),可以使用它方便的写出 perl 代码的 GNOME 应用程序,但为了能明白代码的含义,请继续往下看.

现在先来看一下"hello world"程序,这里有两个版本,第一个使用 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 $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;

--------------------------

第4行 载入主 GNOME 模块;这样会同时载入 GTK+ 模块

第8行 设置本次会话及注册本程序所需的所有东西,这里我们把程序的名称传给了 init 方法

第10行 创建主窗口;这是一个顶层的窗口,也就是该应用程序的根窗口

第12行 创建一个消息标签,包含文字"hello, world";所有要放在窗口上的文字必须放在 Gtk::Label 对象中

第13行 此时,$label 对象什么事也没有做,也不知道该放在什么地方,所以这里我们使用window对象的 add 方法来加入这个对象

第15行 显示 window 对象,及其他所包含的对象,在这里,就是 label 对象,我们使用了window 对象的 show_all 方法,注意,该方法并不是真正的在屏幕上显示窗口,而是做一个初始的说明,

第17行 使用 GTK+ 的 main event loop 来运行,这里才是真正的开始画窗口出来,并且等待事件的发生.此后,程序的控制权就交给了 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;

------------------------------------

大多数都一样,但改了几行:

第10行 原先只是创建一个 window 对象,而现在则是提高了一个层次,我们说这里已经创建了整个应用程序,我们把应用程序的名字两次传递给了 new 方法,第一次说明 window 对象的 title 的值;第二次则是在 GNOME 环境中注册该应用程序

第13行 为什么是 set_contents 而不是 add 了呢? 原因在于 GTK+ 在 window 中放置图形元素(widget)的方式基于容器(container)的思想,简单的放置,只允许你在 window 中放一个窗口小部件(widget),所幸的是,一些 widget 允许包含其他的 widget.

现在,你可能会发现,当你使用 close 按钮时,perl 程序并没有结束,而我们必须使用类似 ^C 的方式来结束运行;而使用 GNOME 时,GNOME 应用程序在收到window 对象的 close 消息时, GNOME 会给我们发送一个信号,但这不是真正的 UNIX 核心所发出的信号,而我们需要安装信号的处理句柄来干净的结束程序的运行,可以这样做:

------------------------------------

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

signal_connect $app 'delete_event',

sub { Gtk->main_quit; return 0 };

------------------------------------

这里,我们把 delete_event 信号和一个匿名函数关联,也就是说,当程序接受到 Gnome 环境送来的 delete_event 信号时,触发执行该匿名函数,而该函数则调用标准的 main_quit 方法来结束 main loop, 最后真正的退出运行.

下面我们来加上菜单栏.前面已经说过,Gnome 构建于 Gtk+ 之上,它提供许多标准的东西使我们在写程序的时候更方便,更具可扩展性.下面的程序建立了一个标准的菜单栏:

------------------------------------

$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'

}

]

}

);

------------------------------------

在这里,我们传递了一系列的匿名哈西结构给 create_menus 方法,每一个就是一个菜单项(tab),type 为 subtree 时说明该项具有子菜单;为 item 时说明该项为一个菜单内容;label 的值也就是菜单上显示的提示文字,而下划线后的字母则为键盘快捷键,如 _About 则说明按下 Alt-A 就激活该项;关键字 subtree 指定该项的子菜单的内容,是一个包含一系列匿名哈西菜单结构的匿名数组;子菜单项类型为 item 时,显示时使用一个图标作为按钮,在这里,我们使用 GNOME 图标库 stock ,使用关键字 pixmap_type 来指定;而 pixmap_info 所指定的值即为鼠标移到该图标按钮上时显示的提示文字.

原来你应该是用 perl hello.pl 的方式运行该程序的吧?那么现在再试试使用 LANG=fr_FR perl hello.pl ,有没有看到菜单文字被翻译成了法语? 再试试 pt_PT , de_DE , el_GR ,很神奇吧!

上面的程序只创建了菜单,但是还不能做些什么,那么看一下:

------------------------------------

{type => 'item',

label => 'E_xit',

pixmap_type => 'stock',

pixmap_info => 'Menu_Quit',

callback => sub {Gtk->main_quit; return 0 }

}

------------------------------------

现在,我们把退出程序时要做的事情封装在一个匿名函数里并作为 callback 的值,就这样简单!在 about 项里,则可以使用 callback=>&about_box ,另外创建一个自己的 about_box 函数:

------------------------------------

sub about_box {

my $about = new Gnome::About $NAME, "v1.0",

"(C) Simon Cozens, 2000", ["Simon Cozens"],

"This program is released under the same terms as Perl itself";

show $about;

}

------------------------------------

Gnome::About 类给我们提供了一个接口,我们只需将本应用程序的名字,版本号,版权信息,作者名字(使用匿名数组,因为可能有不只一个作者)等传递给它即可,最后使用 show 方法将之显现.运行时,你会看到点击 about 会弹出 about 信息窗口,含有 OK 按钮,点击该按钮则自动关闭该窗口.

一般的应用程序还有工具栏和状态栏,那么,与上面的类似,加入以下代码:

------------------------------------

$app->create_toolbar(

{

type => 'item',

label => 'Exit',

pixmap_type => 'stock',

pixmap_info => 'Quit',

hint => "Click here to quit",

callback => sub { Gtk->main_quit },

}, {

type => 'item',

label => 'About...',

pixmap_type => 'stock',

pixmap_info => 'About',

hint => "More information about this app",

callback => &about_box

}

);

------------------------------------

其中,hint 所指定的值即为鼠标移到该图标按钮上时显示的提示文字,接着是状态栏:

------------------------------------

my $bar = new Gnome::AppBar 0,1,"user" ;

$bar->set_status(" Welcome ");

$app->set_statusbar( $bar );

------------------------------------

先创建一个 AppBar 对象,然后使用 set_status 方法来初始化状态栏中显示的内容,然后使用 app 对象的 set_statusbar 方法来显示它.

好啦,现在来完整的看一下这个程序:

------------------------------------

#!/usr/bin/perl -w

use strict;

use Gnome;

my $NAME = 'Hello World';

init Gnome $NAME;

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',

callback => sub { Gtk->main_quit; return 0 }

}

]

},

{type => 'subtree',

label => '_Help',

subtree => [

{type => 'item',

label => '_About...',

pixmap_type => 'stock',

pixmap_info => 'Menu_About',

callback => &about_box

}

]

}

);

$app->create_toolbar(

{

type => 'item',

label => 'Exit',

pixmap_type => 'stock',

pixmap_info => 'Quit',

hint => "Click here to quit",

callback => sub { Gtk->main_quit },

}, {

type => 'item',

label => 'About...',

pixmap_type => 'stock',

pixmap_info => 'About',

hint => "More information about this app",

callback => &about_box

}

);

my $label = new Gtk::Label "Hello, world";

$app->set_contents($label);

my $bar = new Gnome::AppBar 0,1,"user" ;

$bar->set_status(" Welcome ");

$app->set_statusbar( $bar );

show_all $app;

main Gtk;

sub about_box {

my $about = new Gnome::About $NAME, "v1.0",

"(C) Simon Cozens, 2000", ["Simon Cozens"],

"This program is released under the same terms as Perl itself";

show $about;

}

------------------------------------

到这里,我们已经写出了一个十分简单的基于 perl 的 Gnome 环境下的应用程序,很简单吧?下次,我再来讲解更进一步的内容(如何使用其他图形元素等).

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
2023年上半年GDP全球前十五强
 百态   2023-10-24
美众议院议长启动对拜登的弹劾调查
 百态   2023-09-13
上海、济南、武汉等多地出现不明坠落物
 探索   2023-09-06
印度或要将国名改为“巴拉特”
 百态   2023-09-06
男子为女友送行,买票不登机被捕
 百态   2023-08-20
手机地震预警功能怎么开?
 干货   2023-08-06
女子4年卖2套房花700多万做美容:不但没变美脸,面部还出现变形
 百态   2023-08-04
住户一楼被水淹 还冲来8头猪
 百态   2023-07-31
女子体内爬出大量瓜子状活虫
 百态   2023-07-25
地球连续35年收到神秘规律性信号,网友:不要回答!
 探索   2023-07-21
全球镓价格本周大涨27%
 探索   2023-07-09
钱都流向了那些不缺钱的人,苦都留给了能吃苦的人
 探索   2023-07-02
倩女手游刀客魅者强控制(强混乱强眩晕强睡眠)和对应控制抗性的关系
 百态   2020-08-20
美国5月9日最新疫情:美国确诊人数突破131万
 百态   2020-05-09
荷兰政府宣布将集体辞职
 干货   2020-04-30
倩女幽魂手游师徒任务情义春秋猜成语答案逍遥观:鹏程万里
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案神机营:射石饮羽
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案昆仑山:拔刀相助
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案天工阁:鬼斧神工
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案丝路古道:单枪匹马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:与虎谋皮
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:李代桃僵
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:指鹿为马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:小鸟依人
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:千金买邻
 干货   2019-11-12
 
推荐阅读
 
 
 
>>返回首頁<<
 
靜靜地坐在廢墟上,四周的荒凉一望無際,忽然覺得,淒涼也很美
© 2005- 王朝網路 版權所有