[Tk] Tk-Spinbox - Command ausführen (gelöst) - #175680 (Graphische Oberflächen)

GUIfreund

2014-05-23 16:54

User since
2011-08-08
559 Artikel
BenutzerIn
[default_avatar]

Wenn es dir nur darum geht, das doppelte Hinschreiben des Callbacks zu vermeiden, gib dem Callback einen Namen:

Code (perl): (dl )

1
2
3

sub spin_cmd {print $anzeige_jahr_w->get()};
my $spinbox = $mw->Spinbox(-from => 1980, -to => 2037, -command => \&spin_cmd)->pack();
$spinbox->bind('<Return>', \&spin_cmd);

Gruß
GUIfreund