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 / mkIcon.pl

sub mkIcon {

   # Create a top-level window that displays a bunch of iconic buttons.

   $mkIcon->destroy if Exists($mkIcon);
   $mkIcon = $top->Toplevel();
   my $w = $mkIcon;
   dpos $w;
   $w->title('Iconic Button Demonstration');
   $w->iconname('Icons');
   $w->Bitmap('flagup', -file => Tk->findINC('demos/images/flagup'),
                 -maskfile => Tk->findINC('demos/images/flagup'));
   $w->Bitmap('flagdown', -file => Tk->findINC('demos/images/flagdown'),
                 -maskfile => Tk->findINC('demos/images/flagdown'));
   my $w_msg = $w->Label(-font => '-Adobe-times-medium-r-normal--*-180-*-*-*-*-*-*', -wraplength => '4.5i',
                          -justify => 'left', -text => 'This window shows three ways of using bitmaps or images in ' .
                          'radiobuttons and checkbuttons.  On the left are two radiobuttons, each of which displays a ' .
                          'bitmap and an indicator.  In the middle is a checkbutton that displays a different image ' .
                          'depending on whether it is selected or not.  On the right is a checkbutton that displays a ' .
                          'single bitmap but changes its background color to indicate whether or not it is selected.  ' .
                          'Click the "OK" button when you\'re done.');
   my $w_frame = $w->Frame(-borderwidth => '10');
   my $w_ok = $w->Button(-text => 'OK', -command => ['destroy', $w], -width => '8');
   my @pl = (-side => 'top');
   $w_msg->pack(@pl);
   $w_frame->pack(@pl);
   $w_ok->pack(@pl);

   my $w_frame_b1 = $w_frame->Checkbutton(-image => 'flagdown', -selectimage => 'flagup', -indicatoron => 0,
                                     -selectcolor => 'bisque1', -activebackground => 'bisque1');
   my $w_frame_b2 = $w_frame->Checkbutton(-bitmap => '@'.Tk->findINC('demos/images/letters'), -indicatoron => 0,
                                     -selectcolor => '#efbd9b');
   my $w_frame_left = $w_frame->Frame();
   @pl = (-side => 'left', -expand => 'yes', -padx => '5m');
   $w_frame_left->pack(@pl);
   $w_frame_b1->pack(@pl);
   $w_frame_b2->pack(@pl);

   $letters = '';
   my $w_frame_left_b3 = $w_frame_left->Radiobutton(-bitmap => '@'.Tk->findINC('demos/images/letters'), -variable => \$letters,
                                          -value => 'full');
   my $w_frame_left_b4 = $w_frame_left->Radiobutton(-bitmap => '@'.Tk->findINC('demos/images/noletters'), -variable => \$letters,
                                          -value => 'empty');
   @pl = (-side => 'top', -expand => 'yes');
   $w_frame_left_b3->pack(@pl);
   $w_frame_left_b4->pack(@pl);

} # end mkIcon


1;