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;