#!/usr/local/bin/perl
use AddINC qw(. ./blib);

use Tk;

$top = MainWindow->new();

$top->iconify;

$top->Icon('-image' => $top->Pixmap('-file' => "Tk/demos/images/ned.xpm"));

$top->iconify;

MainLoop();
