"Fossies" - the Fresh Open Source Software Archive

Member "Tk-804.036/Extensions/ImageBack/background" (15 Nov 2013, 262 Bytes) of package /linux/misc/Tk-804.036.tar.gz:

As a special service "Fossies" has tried to format the requested source page into HTML format using (guessed) Perl source code syntax highlighting (style: standard) with prefixed line numbers and code folding option. Alternatively you can here view or download the uninterpreted source code file.

    1 #!/usr/local/bin/perl -w
    2 use Tk;
    3 use Tk::ImageBack;
    4 use Tk::Photo;
    6 my $mw = MainWindow->new;
    7 my $image = $mw->Photo('back', -file => Tk->findINC('icon.gif'));
    8 my $t     = $mw->Frame(-width => '4i', -height => '2i')->pack;
    9 $t->ImageBackground('back');
   10 MainLoop;