perl - perl tk の選択イベント

Question

Tkを使用するperl GUIスクリプトに次のScrolledウィジェットがあります

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 { ... });