my $main_text_field = $top->Text(-width => 132, height => 24,
                                 -setgrid => 1, -wrap => 'word');
my $main_text_field_spelling_menu = $main_text_field->menu->Menu(-tearoff => 0);
$main_text_field_spelling_menu->configure
  (-postcommand => [\&post_suggestion_menu,
                    $main_text_field, $main_text_field_spelling_menu]);
$main_text_field->menu->insert
  ('View', cascade => -label => 'Respell...', -underline => 0,
   -menu => $main_text_field_spelling_menu);