-commandコールバックを持つ perl TK ウィジェットがあります。
my $widget = $mw->Spinbox( -from => -1000, -to => 1000, -increment => 1, -width => 4, -textvariable => $textvariable, -command => sub { ... });
コマンドサブ内のウィジェットでメソッドを呼び出したいと思います。
コールバック内のウィジェット自体への参照を一般的な方法で取得するにはどうすればよいですか (名前で $widget にアクセスするのではなく、一般的な方法で)。
@_サブに渡される引数を調べましたが、ウィジェットの値とアクション (「up」など) しか含まれていません。$self または javascript のように「this」を介してウィジェットにアクセスできることを望んでいました。