view release on metacpan or  search on metacpan

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

package Tk::StyledButton;

require 5.008;

use strict;
use warnings;
use Tk;
use Tk::Balloon;
use Tk::Canvas;
use Tk::Font;
use Tk::Trace;
use Tk::PNG;
use Tk::JPEG;
use Tk::Photo;
use MIME::Base64;
use Carp;

use base qw(Tk::Derived Tk::Canvas);

use constant PI => 3.1415926;
use constant PI_OVER_2 => 1.5707963;
use constant SQUARE_EDGE_FACTOR => 1.5;

our $VERSION = '0.10';

our $hasgd;			# has GD & GD::Text
our $hasw32n2f;		# has Win32::Font::NameToFile

our $SIN_PI_OVER_4 = sin(0.78539815);

our %valid_compound = qw(
	center 1
	left 1
	right 1
	top 1
	bottom 1
	none 1
);

our %valid_anchor = qw(
	n 1
	s 1
	e 1
	w 1
	center 1
	ne 1
	nw 1
	se 1
	sw 1
);

our %valid_orient = qw(
	n ne
	s se
	e en
	w wn
	ne ne
	nw nw
	se se
	sw sw
	en en
	es es
	wn wn
	ws ws
);

our %valid_shapes = qw(
	rectangle 1
	oval 1
	round 1
	bevel 1
	folio 1
);

our %valid_styles = qw(
	flat 1
	round 1
	shiny 1