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

sub mkLabel {

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

   $mkLabel->destroy if Exists($mkLabel);
   $mkLabel = $top->Toplevel();
   my $w = $mkLabel;
   dpos($w);
   $w->title('Label Demonstration');
   $w->iconname('Labels');

   my $w_msg = $w->Message(-font => '-Adobe-times-medium-r-normal--*-180-*-*-*-*-*-*', -aspect => 300,
                            -text => 'Five labels are displayed below: three textual ones on the left, and a bitmap label ' .
                            'and a text label on the right.  Labels are pretty boring because you can\'t do anything with ' .
                            'them.  Click the "OK" button when you\'ve seen enough.');
   my $w_left = $w->Frame();
   my $w_right = $w->Frame();
   my $w_ok = $w->Button(-text => 'OK', -command => ['destroy', $w], -width => 8);
   $w_msg->pack(-side => 'top');
   $w_ok->pack(-side => 'bottom');
   my(@pl) = (-side => 'left', -expand => 'yes', -padx => 10, -pady => 10, -fill => 'both');
   $w_left->pack(@pl);
   $w_right->pack(@pl);

   my $w_left_l1 = $w_left->Label(-text => 'First label');
   my $w_left_l2 = $w_left->Label(-text => 'Second label, raised just for fun', -relief => 'raised');
   my $w_left_l3 = $w_left->Label(-text => 'Third label, sunken', -relief => 'sunken');
   @pl = (-side => 'top', -expand => 'yes', -pady => 2, -anchor => 'w');
   $w_left_l1->pack(@pl);
   $w_left_l2->pack(@pl);
   $w_left_l3->pack(@pl);

   my $w_right_bitmap = $w_right->Label(-bitmap => '@'.Tk->findINC('demos/images/face'), -borderwidth => 2,
                                   -relief => 'sunken');
   my $w_right_caption = $w_right->Label(-text => 'Tcl/Tk Proprietor');
   $w_right_bitmap->pack(-side => 'top');
   $w_right_caption->pack(-side => 'top');

} # end mkLabel


1;