Thread [Tk] Referenz auf Tk Objekt (4 answers)
Opened by Kean at 2012-02-23 14:12

Kean
 2012-02-23 14:55
#156360 #156360
User since
2004-08-18
463 articles
BenutzerIn

user image
Hier mal ein Minimalbeispiel von meinem Programm (anstatt mit Hlist/Text mit Entry):

Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
use strict;
use warnings;
use Tk;

my $mw = MainWindow->new();

my $frame = $mw->Frame()->pack;

my $name = $frame->Entry( )->pack;
my $alter = $frame->Entry( )->pack;

my $button = $frame->Button( -text => "Ausgabe",
                                                         -command => \&ausgabe,
                           )->pack;                                                

MainLoop;

sub ausgabe
{
print $name->get()." ".$alter->get()."\n";
}


Und dies würde ich gerne so "umschreiben", dass der Frame mit den beiden Entrys in einer Funktion erzeugt werden und die Funktion ausgabe nur einmal benötigt wird.

View full thread [Tk] Referenz auf Tk Objekt