Re: Tk - Tick box size change

Your options seem to be either to supply your own images for the checked and unchecked checkboxes to Checkbutton or use a different checkbutton object. I found Tk::Checkbox has the option of setting the size. I don't see how to add text next to it so you likely will need to add your own label.

use warnings;
use strict;
use Tk;
use Tk::Checkbox;

my $mw = MainWindow->new(-title => 'CheckBox size');
my $f = $mw->Frame->pack(-side => 'top');

my $weight1 = "normal";

my $fch = $f->Checkbutton(
     -text     => "Weight",
    -variable => \$weight1,
)->pack(-side => 'left');
my $size = 16;
$fch->configure(-font => [ -size => $size ]);

my $weight2 = "Weight";
my $fch2 = $f->Checkbox(
    -variable   => \$weight2,
    -command    => sub {print "$weight2\n"},
    -onvalue    => "Weight",
    -offvalue   => "Mass",
    -size       => 25,
)->pack(-side => 'left');

MainLoop;
[download]

I found it was tricky to install Tk::Checkbox in CPAN since install Tk::Checkbox doesn't work and i /Tk::Checkbox/ doesn't find anything. I had to use install MIKRA/Tk-MK-0.23.tar.gz.

Comment on Re: Tk - Tick box size change Select or Download Code

Replies are listed 'Best First'.
Re^2: Tk - Tick box size change by merrymonk (Hermit) on Mar 13, 2019 at 20:31 UTC
Thank you. I was hoping it would have been more straightforward however, I will try and use what you have suggested.	[reply]
Re^3: Tk - Tick box size change by Lotus1 (Vicar) on Mar 14, 2019 at 14:03 UTC
It looks like you can also place buttons on a canvas and then scale the canvas. I don't have time to dig into this and there are monks around who are experienced with Perl/Tk who might be able to provide an example. Edit: Here is a Perlmonks node that deals with scaling canvases but not really scaling buttons. It might give you something to go on.	[reply]


We don't bite newbies here... much
	PerlMonks