The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

NAME

Graphics::Primitive::Border - Line around components

DESCRIPTION

Graphics::Primitive::Border describes the border to be rendered around a component.

SYNOPSIS

  use Graphics::Primitive::Border;

  my $border = Graphics::Primitive::Border->new;

METHODS

new

Creates a new Graphics::Primitiver::Border. Borders are composed of 4 brushes, one for each of the 4 sides. See the documentation for Graphics::Primitive::Brush for more information. Note that you can provide a width and color argument to the constructor and it will create brushes of that width for each side.

bottom

The brush representing the bottom border.

clone

Close this border.

color

Set the Color on all 4 borders to the one supplied. Shortcut for setting it with each side.

dash_pattern

Set the dash pattern on all 4 borders to the one supplied. Shortcut for setting it with each side.

equal_to ($other)

Returns 1 if this border is equal to the one provided, else returns 0.

homogeneous

Returns 1 if all of this border's sides are the same. Allows for driver optimizations.

left

The brush representing the left border.

not_equal_to

Opposite of equal_to.

The brush representing the right border.

top

The brush representing the top border.

width

Set the width on all 4 borders to the one supplied. Shortcut for setting it with each side.

AUTHOR

Cory Watson, <gphat@cpan.org>

COPYRIGHT & LICENSE

Copyright 2008-2010 by Cory G Watson.

This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.