Perl TK - Programm - #44680 (Graphische Oberflächen)

BrownWolf

2003-10-26 19:31

User since
2003-08-15
308 Artikel
BenutzerIn
[default_avatar]

Hi, hab mir jetzt mal nen Beispiel angeschaut. Und da ich gerade am lernen bin frage ich mich warum du es nicht so gemacht hast:

Code (perl): (dl )

use Tk;
require Tk::LabEntry;
$mw = new MainWindow;

foreach (qw/Vorname Nachname Strasse PLZ Ort/) {
        $mw->LabEntry(
               
       -label => $_,
               
       -textvariable => \$results{$_}
        )->pack();
}
$mw->Button(-text => "Ok", -command => sub { print "$_ => $results{$_}
" for keys %results })->pack();
$mw->Button(-text => "Exit", -command => sub { exit } )->pack();

MainLoop;

Und warum du in deinen ganzen Beispielen keine Klammern bei MainLoop benutzt. Aber sagst das du es immer benutzt ;)

Edit: Ich nehms wieder zurück. Du hast doch Klammern in einigen Beispielen :-P\n\n

Code (perl): ()

1
2
3

sub _{s;;xrqIpiql\\{}p{pl{R>rl{N{}gjwpkssq]>rl{N;;;*{{}=*{_};;
&#36{{}={q{{{}}}=>[reverse+split+reverse+q;}{;]};&#36{{}->{q{{{}}}}->[@{{}];}
&#36{{}=reverse+_(q{{}}=>q{{}})^chr(30)x+length&_(q{{}}=>,q{{}})and+print;