Perl/TkFAQ-10.2.如何设置按钮随鼠标指向的动态变化

原文：

10.2. How do I get a Button to actively change under my mouse pointer?

You should specify both an '-image' and an '-activeimage' configuration option either when calling the ->Button() method or in a later separate call to the ->configure() method.

Here is an example excerpted from the basic_demo script that comes with the Tk kit: #!/usr/local/bin/perl -w use Tk; $main = MainWindow->new; $QPBFile = "demos/images/QuitPB.xpm"; $QPBaFile = "demos/images/QuitPBa.xpm"; $QuitPB = $main->Pixmap('-file' => Tk->findINC("$QPBFile")); $QuitPBa = $main->Pixmap('-file' => Tk->findINC("$QPBaFile")); my $but = $main->Button('-image' => $QuitPB, '-activeimage' => $QuitPBa, '-command' => sub { $main->destroy } ) -> pack; MainLoop; __END__译文：

10.2. 如何设置按钮随鼠标指向的动态变化？

这需要在调用->Button()方法创建按钮的时候，或者是后来使用->configure()方法的时候，设定“-image”和“-activeimage”两个选项。

下面是从Tk包中的basic_demo脚本中摘录出来的一个例子：

#!/usr/local/bin/perl -w

use Tk;

$main = MainWindow->new;

$QPBFile = "demos/images/QuitPB.xpm";

$QPBaFile = "demos/images/QuitPBa.xpm";

$QuitPB = $main->Pixmap('-file' => Tk->findINC("$QPBFile"));

$QuitPBa = $main->Pixmap('-file' => Tk->findINC("$QPBaFile"));

my $but = $main->Button('-image' => $QuitPB,

'-activeimage' => $QuitPBa,

'-command' => sub { $main->destroy }

) -> pack;

MainLoop;

__END__