Dear Linux Mania.
Saya punya Masalah, langsung saja. contoh program dibawah ini.
#!/usr/bin/perl
#file utama.pl
use Tk;
require "b.pl";
my $main=new MainWindow;
$main->Button(-text=>'Klik',
-command=> [ \&tampil ])->pack;
MainLoop;
#isi file b.pl
sub tampil {
my $mw= $main->Button(-text=>'hello',
-command=>sub{print "Hello\n"})->pack;
}
1;
pesan error jika tombol Klik ditekan,jika digabung dalam satu file tidak ada
masalah,tetapi saya ingin dalam file terpisah,
apa sintax pada file b.pl sudah sesuai dan sepertinya variabel $main tidak
dikenal, ini dapat diatasi jika dalam file b.pl variabel $main saya
deklarasikan lagi seperti pada utama.pl
tapi jelas gak efisien, mohon bantuannya.
Makasih boanyak sebelumnya :)
Widya.
______________________________________________
FREE Personalized Email at Mail.com
Sign up at http://www.mail.com/?sr=signup
--------------------------------------------------------------------------------
Utk berhenti langganan, kirim email ke [EMAIL PROTECTED]
Informasi arsip di http://www.linux.or.id/milis.php3
Pengelola dapat dihubungi lewat [EMAIL PROTECTED]
