view release on metacpan or  search on metacpan

lib/Tk/StyledButton.pm  view on Meta::CPAN

		($shape eq 'round')		? _computePolyPoints(0, 0, $w, $h) :
		($shape eq 'rectangle') ? _drawRectangle($w,$h) :
		($shape eq 'bevel')		? _drawBevel($w,$h, 6, $orient) :
#		($shape eq 'folio')
								  _drawFolio($w,$h, 6, $orient) ];
}

sub _bindFromImage {
	my ($self, $w, $h, $xscale, $yscale) = @_;
#
#	embed image in center of canvas, then draw transparent overlay
#	to tag for binding
#
	my @tags = ();
	my $shape = $self->cget('-shape');
	if (($self->cget('-style') eq 'image') && (ref $shape) && (ref $shape eq 'ARRAY')) {
#
#	binding coords are provided
#
		@tags = @$shape;
	}