Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl
use Tk;
use strict;
...
$p->Scrolled('Listbox')->pack->insert('end',(1..40));

MainLoop();
  2. or download this
    require Tk::Widget;
package Tk::Widget;
...
} # end of scope for $under_cursor, $scrollable, $delta

1;