Thread [Tk] Innerhalb eines Command das aufrufende Widget herausfinden (4 answers)
Opened by Kean at 2015-04-02 16:45

Kean
 2015-04-02 19:49
#180539 #180539
User since
2004-08-18
463 articles
BenutzerIn

user image
Ich habe eine Lösung gefunden:

Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
foreach (@Liste)
{
$mw->Button( -text => $_, -command => [\&button_press, $_] );
}

sub button_press
{
my $button = shift;

print $button;
}


So bekommt jeder Button eine von seinem Namen abhängige Funktion.

View full thread [Tk] Innerhalb eines Command das aufrufende Widget herausfinden