Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl Monk, Perl Meditation
 
PerlMonks  

Re^4: Can't specify font in messageBox

by Sandy (Curate)
on Apr 26, 2009 at 22:40 UTC ( #760211=note: print w/ replies, xml ) Need Help??


in reply to Re^3: Can't specify font in messageBox
in thread Can't specify font in messageBox

Theo

I think I see the misunderstanding with respect to the demo.

The widget demo runs a program msgBox.pl in C:\Perl\lib\Tk\demos\widget_lib. Looking at this code,

sub msgBox { my($demo) = @_; $TOP = $MW->WidgetDemo( -name => $demo, -text => 'Choose the icon and type option of the m +essage box. '. 'Then press the "Message Box" button to s +ee the message box.', -title => 'messageBox Demo', -iconname => 'messageBox', );
you can see that it creates a WidgetDemo object, which is the dialog box that has the large font. This object is defined in the program WidgetDemo.pm (same directory).
my %WIDGDEMO; # class hash of active widget demonstrations sub Populate { my($self, $args) = @_; my (%arg_defaults) = ( -name => 'Unknown Demo Name', -font => 'Helvetica 24', ### I changed this! -text => 'Unknown Demo Text', -geometry_manager => 'pack', );
I fiddled with the font size to prove to myself that this is where it can become larger (or smaller if you wish).

However... the messageBox that it creates by pressing the button is not affected by the font size defined in the WidgetDemo.pm module.

So, my conclusion is that we cannot adjust the size of the message box font (in windows) using Tk.

You can modify the font size in the windows 'display properties' that applies to all programs.

Good luck,

Sandy


Comment on Re^4: Can't specify font in messageBox
Select or Download Code
Re^5: Can't specify font in messageBox
by Theo_124 (Novice) on Apr 27, 2009 at 14:35 UTC

    Thank you very much for doing all this research

    I still don't entirely "get it", but I'll poke around in the files you mentioned until I understand.

    I guess my only solution is to create my own window with a label and buttons that do what I want. It's a lot more work, but it will get the job done.

    Thanks again

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://760211]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others studying the Monastery: (7)
As of 2014-12-19 02:02 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    Is guessing a good strategy for surviving in the IT business?





    Results (70 votes), past polls