Select Code to Download

my $main_text_field = $top->Text(-width => 132, height => 24,
                                 -setgrid => 1, -wrap => 'word');
...
$main_text_field->menu->insert
  ('View', cascade => -label => 'Respell...', -underline => 0,
   -menu => $main_text_field_spelling_menu);

sub post_suggestion_menu {
  my $widget = shift;
...
    $menu->add(command => -label => 'No suggestions.', -state => 'disa
+bled');
  }
}