Dear Netter and Mailler,
Dibawah ini adalah contoh program Perl yang gue download dari source perl di
Internet.
Di baris kedua ada statement " use Tk; ". Kira-kira ada yang ngerti/tau
nggak ya apa maksud dari statement tersebut.
#!/usr/bin/perl -w
use Tk;
my $mw = MainWindow->new;
$mw->title("Good Window");
$mw->Label(-text => "Latihan Membuat Windows dengan Perl")->pack;
$mw->Button(-text => "Exit",
-command => sub { exit })->pack(-side => 'bottom',
-expand => 1,
-fill => 'x');
$mw->Checkbutton(-text => "I like it!")->pack(-side => 'left',
-expand => 1);
$mw->Checkbutton(-text => "I hate it!")->pack(-side => 'left',
-expand => 1);
$mw->Checkbutton(-text => "I don't care")->pack(-side => 'left',
-expand => 1);
MainLoop;
Warm Regards,
Edwin M. Bachtiar
* Gunadarma Mailing List -----------------------------------------------
* Archives : http://milis-archives.gunadarma.ac.id
* Langganan : Kirim Email kosong ke [EMAIL PROTECTED]
* Berhenti : Kirim Email kosong ke [EMAIL PROTECTED]
* Administrator: [EMAIL PROTECTED]
