Help for this page

Select Code to Download


  1. or download this
    package Tk::Foon;

...
  $self->SUPER::Populate($args);
  $self->ConfigSpecs('DEFAULT' => [ 'SELF' ]); 
}
  2. or download this
    #!/usr/bin/perl -w
use strict;
...
$l->configure(-text => 'happy');
 
MainLoop;