[TK] Widget innerhalb eines Command Sub identifizieren (gelöst) - #186369 (Graphische Oberflächen)

Kean

2017-04-21 10:51

User since
2004-08-18
463 Artikel
BenutzerIn

user image

Ich erzeuge in einem TK Script wie folgt Buttons:

Code (perl): (dl )

$mw->Button( -text => "Test", -command => sub { my $widget = $SELF(?); print $widget->cget(-text); }    )->place( -x => 50, -y => 100, -height => 100, -width => 320);

Kann ich in der Subroutine irgendwie das Widget/Objekt ermitteln welches die Sub aufgerufen hat?