On 12/03/2013 7:56 PM, Daniel Burgaud wrote:
> Hi
>
> I need a button with a big label and below it, description of the button.
>
> I dont know how to make a TK button with multiple font size.
> If not button, any TK object, clickable, and multiple font size capable.
use Tk;
use strict;
my $mw = tkinit;
my $bigfont = $mw->fontCreate('bigfont',
-family=>'arial',
-weight=>'bold',
-size=>48);
$mw->Button(-text=>'Big Text', -font=>'bigfont')->pack;
$mw->Label(-text=>'Click on the button above')->pack;
MainLoop;
HTH
Jack
_______________________________________________
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
