Select Code to Download

Select or download this

  my $label = $frame->Label('Name' => 'title',
                            -text => 'Tk Names Tutorial');
  my $dialog = $top->DialogBox(-title => 'Generated Names',
                               -buttons => [ 'OK' ]);
  my $page = $notebook->add('Bill', -label => 'Billing');

Select or download this

  my $title = $frame->direct_descendant('title');
  my $button = $dialog->direct_descendant('bottom.button');
  my $bill = $notebook->direct_descendant('Bill');

Select or download this

  my $title = $top->descendant('*title');
  my $mnuTerms = $notebook->descendant('*Bill*terms');

Select or download this

  print join("\n", $notebook->list_descendant_names()), "\n";
  print $mnuTerms->full_name(), "\n";

Select or download this

# Save this code to a file called MyTkUtils.pm.
# Then from your main script, add "use MyTkUtils".
...
}

1;