Select Code to Download

map { [Button => $_, -command => sub { replace($_) }] } @menu_items

sub replace{

...
  $t->tagAdd("rp","$r","$r wordend");
}
1;

$m = $top->Menu(-tearoff => 0,font => "{arial} 12 {bold}",
        -menuitems =>        
...
...
}
1;

sub replace{

...
}
1;