Fwd: (fwd) changing the options available in native option menu

> I used the example in MTK (pages 276 onwards) to successfully  
> implement
> native option menus with columns of the choices available.
>
> I now want to be able to change the choices that are available.
....

> The second is that when I select one of the new choices it is not  
> shown
> on the native option menu button (this works before I altered the
> options).
...


> sub native_optionmenu {
>
>     my($parent, $varref, $command, @optionvals) = @_;
Remove this line!

> ##################  $$varref = $optionvals[0];
Remove this line!

Steve

-++**==--++**==--++**==--++**==--++**==--++**==--++**==
This message was posted through the Stanford campus mailing list
server.  If you wish to unsubscribe from this mailing list, send the
message body of "unsubscribe ptk" to majordomo@xxxxxxxxxxxxxxxxxx