perl tk笔记: scrollbar滚动条

1：同时创建widget和scrollbar


$widget = $parent->Scrolled('Widget',
                           -scrollbars => 'string' [, options ]);

-scrollbar 的值可以是"n", "s", "e", "w"; or "on", "os", "oe", "ow"代表此滚动条出现的方位

Configure

$lb->Subwidget("xscrollbar")->configure(-background => "green");
如果对一个不存在的scrollbar进行配置，则出错

2：单独创建scrollbar

$scrollbar = $mw->Scrollbar([ options ...])

当创建完一个滚动条之后需要和其他widget联系起来

$scrollbar = $mw->Scrollbar( );
$lb = $mw->Listbox(-yscrollcommand => ['set' => $scrollbar]);
#将scrollbar和listbox widget相关联
$scrollbar->configure(-command => ['yview' => $lb]);
#配置点击scrollbar时改变listbox的内容
#Pack the Scrollbar first so that it doesn't disappear when we resize
$scrollbar->pack(-side => 'right', -fill => 'y');
$lb->pack(-side => 'left', -fill => 'both');

scrollbar和其他widget的整合

如前所示，程序通过command选项告诉scrollbar和哪个widget关联，command的值必须是xview或yview，
分别代表scrollbar出现在水平方向和垂直方向的两种情况。
有三种形式的调用

$widget->xviewMoveto(fraction);
$widget->xviewScroll(number, "units");
$widget->xviewScroll(number, "page");
似乎我们并没有必要搞清楚是如何工作的