perl tk中的选择事件

Question

我的perl GUI脚本中有以下Scrolled小部件，它使用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 { ... });