Initial commit of OpenSPARC T2 design and verification files.

[OpenSPARC-T2-DV] / tools / perl-5.8.0 / lib / site_perl / 5.8.0 / sun4-solaris / Tk / demos / widget_lib / image1.pl

# image1.pl

use vars qw/$TOP/;

sub image1 {

    # This demonstration script displays two image widgets.

    my($demo) = @_;
    $TOP = $MW->WidgetDemo(
        -name     => $demo,
        -text     => 'This demonstration displays two images, each in a separate label widget.',
        -title    => 'Image Demonstration #1',
        -iconname => 'image1',
    );

    my(@pl) = qw/-side top -padx .5m -pady .5m/;
    $TOP->Photo('image1a', -file => Tk->findINC('demos/images/earth.gif'));
    $TOP->Label(-image => 'image1a')->pack(@pl);

    $TOP->Photo('image1b', -file => Tk->findINC('demos/images/earthris.gif'));
    $TOP->Label(-image => 'image1b')->pack(@pl);

} # end image1

1;