di file utama anda mendeklarasikan scope $main file-wide (lewat 'my').
hapus 'my'-nya.
At 14:35 8/27/00, you wrote:
>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.
--------------------------------------------------------------------------------
Utk berhenti langganan, kirim email ke [EMAIL PROTECTED]
Informasi arsip di http://www.linux.or.id/milis.php3
Pengelola dapat dihubungi lewat [EMAIL PROTECTED]
