Help for this page

Select Code to Download


  1. or download this
    use strict;
use Tk;
...
$listbox->pack( -expand => 1, -fill => 'both' );

MainLoop;
  2. or download this
    my $xsb = $listbox->Subwidget("xscrollbar");
my $ysb = $listbox->Subwidget("yscrollbar");

$xsb->configure(-width => 10);
$ysb->configure(-width => 10);