Help for this page

Select Code to Download


  1. or download this
    sub go_command {
.
...
sub sub1 {
 print("In the thread\n");
}
  2. or download this
    sub DESTROY
{
 my $w = shift;
 $w->destroy if ($w->IsWidget);
}
  3. or download this
    sub _Destroyed
{
...
    {
     my $ent = pop(@$a);
     if (ref $ent) {....}