http://qs321.pair.com?node_id=132584

dhable has asked for the wisdom of the Perl Monks concerning the following question:

I'm working on a small GUI that looks more like a dialog based application. Does anyone know how I could add another menu selection to the program icon menu (this is the menu displayed when the icon in the upper right corner is clicked.). I've seen other Windows applications do this before. Can it even be done in Perl/Tk?

Replies are listed 'Best First'.
(crazyinsomniac) Re: Adding Program Icons with Perl/Tk
by crazyinsomniac (Prior) on Dec 18, 2001 at 08:40 UTC
    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;"

[reply]
      I found your answer useful as well, but it wasn't an answer to my question. I want to add an menu item onto that menu. Thus, when the user clicks on the Tk icon they see the standard selections like "Move" and "Size", but they also will see my item "About program...".
[reply]
Re: Adding Program Icons with Perl/Tk
by MZSanford (Curate) on Dec 17, 2001 at 22:02 UTC
    I have done some intermediate Tk programming, and searched for the same thing sometime ago. I never found any way of changing the contents of that menu. I believe it is not an option, because that would not be within Tk's platform independant functionality (as it is windows specific). But, as always, i am not omnipotent ... maybe someone else has found a way. 
    $ perl -e 'do() || ! do() ;'
Undefined subroutine &main::try

    [download]
[reply]
[d/l]

Back to Seekers of Perl Wisdom