xiper has asked for the wisdom of the Perl Monks concerning the following question:
Greetings fellow monkeys,
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
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:
(not MainWindow->new->Dialog( -bitmap => '<type>' )->Show; - this uses Tk's builtin bitmaps, although both are the same on linux).MainWindow->new->messageBox( -icon => '<type>' );
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:
which apparently comes from site\lib\auto\Tk\Tk.dll.invalid icon "<type>", must be error, info, question or warning at C:/ +Perl/site/lib/Tk.pm line 266.
Many thanks!
- ><iper
use japh; print;
Back to
Seekers of Perl Wisdom