バインドする方法<Tab> Perl Tkでキーを押しますか？

Question

<Tab> keypressイベントをPerl Tkウィジェットにバインドするコードの構文を探しています。

ドキュメントを読むと、<Control>と<Alt>（と任意の組み合わせ）をバインドできますが、<Tab>キーバインディングが見つかりませんでした。

私は...->bind('<Tab>', sub{...});を試しましたが、動作しませんでした。

どのようにバインドするのですか？

Answer 1

この問題をしばらく掘り下げ、コメントに記載されているすべてのアドバイスを検討してください。ウィジェットを派生させて独自のカスタムウィジェットを作成し、その動作を制御するためにOOPオーバーライド技術を使用することが私の目的を達成する最良の方法であることがわかった。

これは魅力的です。

のでTk::Textのために、例えば、ネイティブ<Tab>イベントが

$mw->bind($class,'<Tab>', 'insertTab'); 

sub insertTab 
{ 
    my ($w) = @_; 
    $w->Insert("\t"); 
    $w->focus; 
    $w->break 
} 

にバインドされており、次のように自分のTk::myTextウィジェットにTk::Textウィジェットから派生させることによって、私はinsertTabメソッドをオーバーライドすることができました：

を

sub insertTab 
{ 
    my ($w) = @_; 

    // <-- place my stuff here 
    // <-- to be executed first 

    $w->SUPER::insertTab(); // <-- then call the original <Tab> handler from the parent 
}