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

sub mkListbox {

    # Create a top-level window that displays a listbox with the names of the 50 states.

    $mkListbox->destroy if Exists($mkListbox);
    $mkListbox = $top->Toplevel();
    my $w = $mkListbox;
    dpos $w;
    $w->title('Listbox Demonstration (50 states)');
    $w->iconname('Listbox');
    $w->minsize(1, 1);

    my $w_msg = $w->Label(-font => '-Adobe-times-medium-r-normal--*-180-*-*-*-*-*-*', -justify => 'left',
			   -wraplength => '3.5i', -text => 'A listbox containing the 50 states is displayed below, along ' .
			   'with a scrollbar.  You can scan the list either using the scrollbar or by dragging in the ' .
			   'listbox window with button 2 pressed.  Click the "OK" button when you\'ve seen enough.');
    my $w_frame = $w->Frame(-borderwidth => 10);
    my $w_ok = $w->Button(-text => 'OK', -width => 8, -command => ['destroy', $w]);
    $w_msg->pack(-side => 'top');
    $w_frame->pack(-side => 'top', -expand => 'yes', -fill => 'y');
    $w_ok->pack(-side => 'bottom');

    my $w_frame_scroll = $w_frame->Scrollbar();
    my $w_frame_list = $w_frame->Listbox(-yscrollcommand => ['set', $w_frame_scroll], -setgrid => 1);
    $w_frame_scroll->configure(-command => ['yview', $w_frame_list]);
    $w_frame_scroll->pack(-side => 'right', -fill => 'y');
    $w_frame_list->pack(-side => 'left', -expand => 'yes', -fill => 'both');

    $w_frame_list->insert(0, qw(Alabama Alaska Arizona Arkansas California Colorado Connecticut Delaware Florida Georgia Hawaii
				Idaho Illinois Indiana Iowa Kansas Kentucky Louisiana Maine Maryland Massachusetts Michigan
				Minnesota Mississippi Missouri Montana Nebraska Nevada), 'New Hampshire', 'New Jersey',
			        'New Mexico', 'New York', 'North Carolina', 'North Dakota', qw( Ohio Oklahoma Oregon
 			        Pennsylvania), 'Rhode Island', 'South Carolina', 'South Dakota', qw(Tennessee Texas Utah 
			        Vermont Virginia Washington), 'West Virginia', 'Wisconsin', 'Wyoming');

} # end mkListbox


1;