Tk - Frame löschen und neu aufbauen - #160811 (Fragen zu Perl-Modulen)

Molaf

2012-08-10 21:56

User since
2007-10-11
119 Artikel
BenutzerIn
[default_avatar]

Ich hatte ein bisschen Mühe den Code zu deuten- was das Programm nun genau macht konnte auch ein Testlauf nicht zeigen.

Zuerst mal das Zerstören:

Code (perl): (dl )

my $mw = MainWindow->new;
my $fr = $mw->Frame->pack;
$fr->Label( -text=>'hallo' )->pack;
...
$fr->destroy;

destroy macht auch abgeleitete Elemente kaput. Die Geometriemanager (pack/grid/place) muss man auch nicht beachten, passiert alles automatisch.

Parameter übergeben kann man auf zwei gängige Arten:

Code (perl): (dl )

$fr->Button(-text=>'x',-command=> sub{ funktionX($para); })->pack;

Code (perl): (dl )

$fr->Button(-text=>'x',-command=>[\&funktionX,$para] )->pack;

Und noch mal 'unschön':

Code (perl): (dl )

$fr->Button(-text=>'x',-command=>['funktionX',$para] )->pack;