File Coverage

lib/Gtk2/Ex/MindMapView/Border/Ellipse.pm

Criterion	Covered	Total	%
statement	13	15	86.6
branch			n/a
condition			n/a
subroutine	5	5	100.0
pod			n/a
total	18	20	90.0

package Gtk2::Ex::MindMapView::Border::Ellipse;

our $VERSION = '0.000001';

use warnings;
use strict;
use Carp;

use List::Util;

use Gnome2::Canvas;

use Gtk2::Ex::MindMapView::ArgUtils;

use base 'Gtk2::Ex::MindMapView::Border';

sub new
{
    my $class = shift(@_);

    my $self = $class->SUPER::new(@_);

    my %attributes = @_;

    args_valid(\%attributes, qw(group x y width height content width_pixels
				padding_pixels fill_color_gdk outline_color_gdk));

    arg_default($self, "fill_color_gdk", Gtk2::Gdk::Color->parse('white'));

    arg_default($self, "outline_color_gdk", Gtk2::Gdk::Color->parse('gray'));

    $self->{border} = $self->border_get_image();

    $self->{content}->set(anchor=>'north-west');

    my ($top, $left, $bottom, $right) = $self->border_insets();

    my $content_width = $self->{content}->get('width');

    my $content_height = $self->{content}->get('height');

    my $width_adjust = List::Util::max($content_width * 1.5, ($left + $right));

    my $height_adjust = List::Util::max($content_height * 1.5, ($top + $bottom));

    $self->{width} = $content_width + $width_adjust;

    $self->{height} = $content_height + $height_adjust;

    return $self;
}


sub border_get_image
{
    my $self = shift(@_);

    return Gnome2::Canvas::Item->new($self->{group}, 'Gnome2::Canvas::Ellipse',
				     'fill-color-gdk'=>$self->{fill_color_gdk},
				     'outline-color-gdk'=>$self->{outline_color_gdk});
}


sub border_insets
{
    my $self = shift(@_);

    my $min_inset = $self->{width_pixels} + $self->{padding_pixels};

    my $top = List::Util::max($min_inset, $self->{height} / 4);

    my $left = List::Util::max($min_inset, $self->{width} / 4);

    return ($top, $left, $top, $left);
}


sub border_set_x
{
    my ($self, $value) = @_;

    $self->{border}->set(x1=>$value);

    $self->{border}->set(x2=>$value + $self->{width});
}


sub border_set_y
{
    my ($self, $value) = @_;

    $self->{border}->set(y1=>$value);

    $self->{border}->set(y2=>$value + $self->{height});
}


sub border_set_width
{
    my ($self, $value) = @_;

    $self->{border}->set(x2=>$self->{x} + $value);
}


sub border_set_height
{
    my ($self, $value) = @_;

    $self->{border}->set(y2=>$self->{y} + $value);
}


sub border_set_param
{
    my ($self, $name, $value) = @_;

    $self->{border}->set($name=>$value);
}


1; # Magic true value required at end of module
__END__