Seek and hopefully ye shall find your answer at How do I change the icon on Toplevel?

oooops: What you speak of is impossible, like the guy above me said. You could do it only ou recompiled Tk, the same you would for a custom icon, but that's too much trouble. Furthermore, I've seen no application, tk or otherwise, that overrides that menu, mostly because people do not expect it to change. Take a look at the perl tk chatterbox for an example on how to implement menus.

 
___crazyinsomniac_______________________________________
Disclaimer: Don't blame. It came from inside the void
perl -e "$q=$_;map({chr unpack qq;H*;,$_}split(q;;,q*H*));print;$q/$q;"