← Back to branch summary

~ubuntu-branches/ubuntu/maverick/perl-tk/maverick

« back to all changes in this revision

Viewing changes to examples/icon

  • Committer: Bazaar Package Importer
  • Author(s): Colin Tuckley
  • Date: 2010-05-30 09:19:40 UTC
  • mfrom: (1.1.4 upstream)
  • Revision ID: james.westby@ubuntu.com-20100530091940-wbmq9bloo92t9m6x
Tags: 1:804.029-1
http://bugs.debian.org/578814
* New Upstream Release (Closes: #578814).
* Added debian/watch file.

Show diffs side-by-side

added added

removed removed

Lines of Context:
examples/icon
 
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;