perl - perl tk 中的选择事件

Question

Scrolled我的perl GUI 脚本中有以下小部件，它使用 Tk

my $text_area = $main_window->Scrolled("Text", -scrollbars => 'se' , background => 'white')->pack(-expand => 1, -fill => 'both');

我的问题是add a selection event，当我单击并选择小部件内的部分文本（范围）时，如何做。

Answer 1

绑定虚拟事件<<Selection>>：

$text_area->bind('<<Selection>>' => sub { ... });