view release on metacpan or  search on metacpan

demo/btnstudio.pl  view on Meta::CPAN

	-orient => 'horizontal',
	-digits => 4,
	-from => 0.0,
	-to => 1.0,
	-troughcolor => 'white',
	-resolution => 0.01,
	-showvalue => 1,
	-variable => \$disperse,
	-width => 10,
	-length => 250)
	->grid(-column => 1, -columnspan => 4, -row => 8, -sticky => 'w');

$cmdframe->Label(-text => 'Angle:')->grid(-column => 0, -row => 9, -sticky => 'e');
$cmdframe->Scale(
	-orient => 'horizontal',
	-digits => 4,
	-from => 0.0,
	-to => 1.0,
	-troughcolor => 'white',
	-resolution => 0.01,
	-showvalue => 1,
	-variable => \$angle,
	-width => 10,
	-length => 250)
	->grid(-column => 1, -columnspan => 4, -row => 9, -sticky => 'w');

my $le = $cmdframe->LabEntry(
	-label => 'Button text:',
	-labelPack => [ qw/-side left -anchor w/],
	-bg => 'white',
	-textvariable => \$text,
	-font => [ -family => 'arial', -size => 12, -weight => 'bold' ])
	->grid(-column => 0, -row => 10, -columnspan => 5);

my $font = $le->cget(-font);

$fontinfo = join('-', $font->actual(-family), $font->actual(-size), $font->actual(-weight), $font->actual(-slant));

$cmdframe->Checkbutton(
	-text => 'Add image',
	-variable => \$image)
	->grid(-column => 0, -row => 11, -columnspan => 2);

my $gdbtn = $cmdframe->Checkbutton(
	-text => 'Use GD',
	-variable => \$gd)->grid(-column => 2, -row => 11, -columnspan => 2);
$gdbtn->configure(-state => 'disabled') unless $hasgd;

$cmdframe->StyledButton(
	-style => 'shiny',
	-shape => 'oval',
	-text => 'Render',
	-command => sub { renderButton(); })
	->grid(-column => 0, -row => 12, -columnspan => 2);

$cmdframe->StyledButton(
	-style => 'shiny',
	-shape => 'oval',
	-text => 'Rotate',
	-command => sub { rotateButton(); })
	->grid(-column => 2, -row => 12, -columnspan => 2);

my $started = 1;
renderButton();

MainLoop();

sub colorDialog {
	my $rgb;
	$color = $cmdframe->chooseColor(-title => 'Button color', -initialcolor => $color),
	$colorbtn->configure(-background => $color, -activebackground => $color),