Changing Button Size in Perl/Tk

[pbatt]

Hi,

I have some buttons that I would like to make SMALLER than the default size of a button in Perl/Tk and found the option for -width and -height, however, that is only to make the button larger. I've tried decimals, and negative numbers but nothing seems to work to shrink the buttons. Any ideas?

Thanks!

 

[kordaff]

# use a small font
$font="-b&h-lucidabright-medium-r-normal--8-80-75-75-p-45-iso8859-1";
use Tk;
$mw=tkinit;
$b=$mw->Button(-font=>$font,-text=>"Hello")->pack;
MainLoop;

Kordaff