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,
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).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', );
I fiddled with the font size to prove to myself that this is where it can become larger (or smaller if you wish).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', );
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
|
---|
Replies are listed 'Best First'. | |
---|---|
Re^5: Can't specify font in messageBox
by Theo_124 (Novice) on Apr 27, 2009 at 14:35 UTC |
In Section
Seekers of Perl Wisdom