問題タブ [perltk]

下の画像に示すように、「キー」列、「値」列、および「新しい値」列を含むテーブルを作成しました。「キー」列と「値」列はラベルとして実装され、「値」列はご覧のとおりラップされています。「新しい値」列は、編集可能にする必要があるため、エントリ ウィジェットとして実装されます。値を [新しい値] エントリ フィールドにコピーする [コピー & ペースト] ボタンがあります。Entry ウィジェットでテキストをラップしたいので、ボタンを押すと、「値」フィールドのテキストのようになります。

作成したテーブルと、ラップされたラベルと入力フィールドのテキストの違いを示す画像

表示される列を定義するコードは次のとおりです。

-commandコールバックを持つ perl TK ウィジェットがあります。

コマンドサブ内のウィジェットでメソッドを呼び出したいと思います。

コールバック内のウィジェット自体への参照を一般的な方法で取得するにはどうすればよいですか (名前で $widget にアクセスするのではなく、一般的な方法で)。

@_サブに渡される引数を調べましたが、ウィジェットの値とアクション (「up」など) しか含まれていません。$self または javascript のように「this」を介してウィジェットにアクセスできることを望んでいました。