sub update_native_optionmenu_options {

my($native_nm, $varref, $command, $ref_optionvals) = @_;

my ($menu, $callback);

$$varref = $ref_optionvals->[0];

$callback = ref($command) =~ /CODE/ ? [$command] : $command;

foreach (@$ref_optionvals) {

$menu = $native_nm->cget(-menu);

$menu->radiobutton(
       -label     => $_,
       -variable  => $varref,
       -command   => [@$callback, $_],
   );
}

}