王朝网络
分享
 
 
 

Perl/TkFAQ-10.7.如何设置游标(slider)的绑定

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

原文:

10.7. How do I bind the action of a slider (sic) to ... ?

Technically speaking they are called Scrollbars (not sliders) and one must configure the action of the desired widget to call the Scrollbars (i.e. bind is not involved here)

A common task using Scrollbars is to configure things like Canvas, Listbox, or a Text widgets to be updated (change appearance) when the slider of the acompanying Scrollbar is moved by the user.

As an example consider the code that sets up a twelve element Listbox and an accompanying vertical Scrollbar: my $main = new MainWindow; my $box = $main->Listbox(-relief => 'sunken', -width => -1, # Shrink to fit -height => 5, -setgrid => 'yes'); my @items = qw(One Two Three Four Five Six Seven Eight Nine Ten Eleven Twelve); foreach (@items) { $box->insert('end', $_); } my $scroll = $main->Scrollbar(-command => ['yview', $box]);

So far so good. But merely setting them up does not mean that the Listbox even knows that the Scrollbar is lying next to it. Note that the scalar variable $scroll is how we refer to the Scrollbar, thus, hooking the $box up to handle $scroll events is a matter of configuration: $box->configure(-yscrollcommand => ['set', $scroll]);

A complete script that makes use of this code (and adds the necessary calls to pack and MainLoop;) is given as the fifth example in UserGuide.pod (and may be found at http://www.perltk.org/contrib/pod/.)

There was an old Perl/Tk tendency to have a bunch of ScrlFoo widgets (such as ScrlListbox). The use of such widgets is now deprecated in favor of a new Scrolled class, as in: $w = $patent->Scrolled('Text',...);

The widgets that can be ->Scrolled() include:

* Canvas (::Axis)

* Entry

* Ghostview

* HList

* HTML (::Web)

* Listbox

* Pod

* Text (::ROText) (::TextUndo)

* Tiler

译文:

10.7. 如何设置游标(slider)的绑定?

首先,它们真正专业的名称是滚动条(Scrollbars,不是游标)。使用时需要对所用组件的操作进行配置来调用滚动条,因此,其实这里与绑定没有关系。

通常,我们用滚动条来配置诸如Canvas、Listbox或Text等组件,以使它们可以在用户滑动相应的滚动条时进行更新(也就是变化外观)。

在下面的例子中,我们构建了一个包含12个元素的Listbox和一个相应的垂直滚动条:

my $main = new MainWindow;

my $box = $main->Listbox(-relief => 'sunken',

-width => -1, # Shrink to fit

-height => 5,

-setgrid => 'yes');

my @items = qw(One Two Three Four Five Six Seven

Eight Nine Ten Eleven Twelve);

foreach (@items) {

$box->insert('end', $_);

}

my $scroll = $main->Scrollbar(-command => ['yview', $box]);

到目前为止,一直都还不错。但是,只是构建了这些并不意味着Listbox已经知道了滚动条就在它的旁边。请注意,这里的标量$scroll就是我们构建的滚动条,因此基本的配置就是要让$box能够响应$scroll的事件:

$box->configure(-yscrollcommand => ['set', $scroll]);

关于这段例子的完整代码(也就是加上了必要的pack和MainLoop等)可以参考UserGuide中的第五个例子。

(译者注:这里为了方便大家,就直接给出来了:

#! /usr/bin/perl5 -w

use strict;

use Tk;

my $main = MainWindow->new;

my $box = $main->Listbox(-relief => 'sunken',

-width => -1, # Shrink to fit

-height => 5,

-setgrid => 1);

my @items = qw(One Two Three Four Five Six Seven

Eight Nine Ten Eleven Twelve);

foreach (@items) {

$box->insert('end', $_);

}

my $scroll = $main->Scrollbar(-command => ['yview', $box]);

$box->configure(-yscrollcommand => ['set', $scroll]);

$box->pack(-side => 'left', -fill => 'both', -expand => 1);

$scroll->pack(-side => 'right', -fill => 'y');

MainLoop;

过去Perl/Tk中有一类诸如ScrlFoo的组件(例如ScrlListbox),但是现在已经被弃用了。取而代之的是一个新的Scrolled类,例如:

$w = $patent -> Scrolled(‘Text’,…);

可以使用->Scrolled()的组件包括:

* Canvas (::Axis)

* Entry

* Ghostview

* HList

* HTML (::Web)

* Listbox

* Pod

* Text (::ROText) (::TextUndo)

* Tiler

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