Beefy Boxes and Bandwidth Generously Provided by pair Networks
Pathologically Eclectic Rubbish Lister
 
PerlMonks  

Tk: how to display os-specific dialog icons

by xiper (Friar)
on Jan 15, 2004 at 23:20 UTC ( #321704=perlquestion: print w/replies, xml ) Need Help??

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

Greetings fellow monkeys,

I am developing a small app in Perl/Tk under win32, and need to make my own dialog boxes. I would like to use the standard os-specific dialog icon's (error, info, question, warning), as provided by:

MainWindow->new->messageBox( -icon => '<type>' );
(not MainWindow->new->Dialog( -bitmap => '<type>' )->Show; - this uses Tk's builtin bitmaps, although both are the same on linux).

I've trawled through the docco, web, pm, Mastering Perl/Tk, and the source, without much luck in finding any clues on how to display these myself. Can anyone help? Here are a couple of hints to get you started:

  • messageBox() is defined in site\lib\Tk.pm, and calls MessageBox(), which references site\lib\Tk\Dialog.pm, which references site\lib\Tk\DialogBox.pm (which is a TopLevel).

  • If you specify anything other than the 4 defined -icon's, you get a
    invalid icon "<type>", must be error, info, question or warning at C:/ +Perl/site/lib/Tk.pm line 266.
    which apparently comes from site\lib\auto\Tk\Tk.dll.
  • Many thanks!

    - ><iper

    use japh; print;

    Replies are listed 'Best First'.
    Re: Tk: how to display os-specific dialog icons
    by zentara (Archbishop) on Jan 17, 2004 at 18:00 UTC
      Ask this on the newsgroup comp.lang.perl.tk That's where the tk experts hang out.

    Log In?
    Username:
    Password:

    What's my password?
    Create A New User
    Domain Nodelet?
    Node Status?
    node history
    Node Type: perlquestion [id://321704]
    Approved by xenchu
    help
    Chatterbox?
    and the web crawler heard nothing...

    How do I use this? | Other CB clients
    Other Users?
    Others romping around the Monastery: (2)
    As of 2023-01-27 14:25 GMT
    Sections?
    Information?
    Find Nodes?
    Leftovers?
      Voting Booth?

      No recent polls found

      Notices?