~ubuntu-branches/ubuntu/maverick/perl-tk/maverick : contents of examples/icon at revision 11

~ubuntu-branches/ubuntu/maverick/perl-tk/maverick : (revision 11)

browse files
view without revision information
view revision
view changes to this file
download file

#!/tools/local/perl -w
use Tk;
my $mw = MainWindow->new;
my $image = $mw->Photo('-file' => Tk->findINC("icon.gif"));
$mw->iconimage($image);
$mw->iconify;
MainLoop;

1.1.4 by Colin Tuckley Import upstream version 804.029	1	#!/tools/local/perl -w
	2	use Tk;
	3	my $mw = MainWindow->new;
	4	my $image = $mw->Photo('-file' => Tk->findINC("icon.gif"));
	5	$mw->iconimage($image);
	6	$mw->iconify;
	7	MainLoop;