分享
 
 
 

Perl/TkFAQ-10.如何使用某个组件来完成某个工作

王朝perl·作者佚名  2008-05-18
窄屏简体版  字體: |||超大  

原文:

10. How do I get widget X to do Y ?

There are a number of tasks that can be accomplished with perl/Tk widgets, configurations, and bindings (a few that can't and a few that require specific tricks). Beginners are encouraged to work through the examples in UserGuide.pod. Some examples from UserGuide.pod are addressed in this document among those that follow.

Basically a widget can be "created" by simply calling the sub of the same name: my $main = new MainWindow;

will set aside the necessary system memory etc. for a new MainWindow widget (it does not appear until after the MainLoop; call). The object "created" is then callable via the variable $main. So, for example, if you wanted a Button in your MainWindow, then this: $main->Button();

would be a very basic example of a widget command. If you wanted to later call this button widget you would need a "widget tag or ID" to "get a handle on it". Instead of the above call try something like: my $button = $main->Button();

The variable $button is how you refer to the Button widget in subsequent calls, such as when we call the pack routine: $button -> pack;

A complete script that incorporates these ideas to make a very plain button would look like: #!/usr/bin/perl -w use Tk; use strict; my $main = new MainWindow; my $button = $main -> Button(); $button -> pack; MainLoop;

But who wants such a plain looking button? You can provide a number of different widget configurations via calls to the configure routine as in: #!/usr/bin/perl -w use Tk; use strict; my $main = new MainWindow; my $button = $main->Button(); $button -> configure(-text => 'Press me!'); $button -> pack; MainLoop;

The Perl motto is "there is more than one way to do it." - perl/Tk remains quite true to this motto as well. Note that the above script could have been written quite succinctly without the use of either the $main or $button variables as: #!/usr/bin/perl -w use Tk; use strict; new MainWindow -> Button(-text => 'Press me!') -> pack; MainLoop;

But if you want your widgets to actually do things then you must set up callback procedures as discussed later...

Do not overlook the - sign in front of some options (like -text in the above example) Another commonly overlooked problem is that elements in a hash are supposed to be strings hence a configuration option like -length +> 5, really ought to be specified as either '-length' +> 5, or "-length" +> 5, etc., rather than perl's builtin length() function.

译文:

10. 如何使用某个组件来完成某个工作?

通过使用Perl/Tk的各种组件,并进行必要的配置和绑定,可以实现很多功能。当然,也有少数的一些无法完成或需要一定的技巧才能完成。建议初学Tk的朋友仔细的学习和试用UserGuide.pod中的例程。在下面的讲解中,我们也会谈到其中的一些例子。

基本上,要创建一个组件,只需要调用和他名称对应的子程序,例如:

my $main = new MainWindow;

上面的语句将使Perl解释器为这个新的MainWindow组件留出一些必要的系统内存等资源(但是这个主窗口并非立刻出现的,它要直到调用 MainLoop才会出现)。这样,上面创建的这个对象,以后就可以通过变量$main来调用了。例如,如果你想在你的这个主窗口中放置一个按钮,就可以这样:

$main->Button();

那么,实现上面的几个想法的一般“完整”的脚本如下(这里将创建一个空白的按钮):

#!/usr/bin/perl -w

use Tk;

use strict;

my $main = new MainWindow;

my $button = $main -> Button();

$button -> pack;

MainLoop;

但是谁会想要一个空白的按钮呢?其实,你可能通过使用configure方法对很多不同的组件进行配置。例如:

#!/usr/bin/perl -w

use Tk;

use strict;

my $main = new MainWindow;

my $button = $main->Button();

$button -> configure(-text => 'Press me!');

$button -> pack;

MainLoop;

众所周知,Perl的名言就是:做一件事情可以有多种方法。所以,Perl/Tk也同样信守了这一原则。其实,上面的脚本可以写的非常简洁,甚至不使用任何的变量($main和$button),代码如下:

#!/usr/bin/perl -w

use Tk;

use strict;

new MainWindow -> Button(-text => 'Press me!') -> pack;

MainLoop;

当然,如果你确实希望你的组件实现一些功能的话,你还必须让它们关联一些代码,这我们将在以后详细讨论……

最后,我们提醒大家不要忽略了在选项前面的“-”符号,例如上面例子中的-text。另外,值得一提的是,hash中的元素默认被当作字符串看待,所以我们使用的配置选项如:-length => 5,事实上应该写成:’-length’ => 5或”-length” => 5,这样才可以和Perl的内置函数length()相区别。

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
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- 王朝網路 版權所有