File Coverage

lib/Gtk2/Ex/MindMapView/ItemFactory.pm

Criterion	Covered	Total	%
statement	10	12	83.3
branch			n/a
condition			n/a
subroutine	4	4	100.0
pod			n/a
total	14	16	87.5

package Gtk2::Ex::MindMapView::ItemFactory;

our $VERSION = '0.000001';

use warnings;
use strict;
use Carp;

use Gtk2::Ex::MindMapView::ContentFactory;
use Gtk2::Ex::MindMapView::BorderFactory;
use Gtk2::Ex::MindMapView::HotSpot::ToggleFactory;
use Gtk2::Ex::MindMapView::HotSpot::GripFactory;

use Gtk2::Ex::MindMapView::Item;

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

use List::Util;

use Glib ':constants';

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

    my @attributes = @_;

    my $self = {};

    bless $self, $class;

    my %attributes = @attributes;

    args_valid(\%attributes, qw(view font_desc fill_color_gdk text_color_gdk
				outline_color_gdk hotspot_color_gdk));

    args_required(\%attributes, qw(view));

    args_store($self, \%attributes);

    if (!($self->{view}->isa('Gtk2::Ex::MindMapView')))
    {
	carp "Invalid Gtk2::Ex::MindMapView argument.\n";
    }

    arg_default($self, "font_desc",
		Gtk2::Pango::FontDescription->from_string("Ariel Normal 10"));

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

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

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

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

    $self->{content_factory} =
	Gtk2::Ex::MindMapView::ContentFactory->new(view=>$self->{view});

    $self->{border_factory}  =
	Gtk2::Ex::MindMapView::BorderFactory->new(view=>$self->{view});

    $self->{grip_factory}    = Gtk2::Ex::MindMapView::HotSpot::GripFactory->new();

    $self->{toggle_factory}  = Gtk2::Ex::MindMapView::HotSpot::ToggleFactory->new();

    return $self;
}


sub create_item
{
    my ($self, @attributes) = @_;

    my %attributes = @attributes;

    args_valid(\%attributes, qw(border content text browser uri pixbuf
				font_desc fill_color_gdk text_color_gdk
				outline_color_gdk hotspot_color_gdk));

    args_required(\%attributes, qw(border content));

    my $border_type       = $attributes{border};

    my $content_type      = $attributes{content};

    my $text              = $attributes{text};

    my $browser           = $attributes{browser};

    my $uri               = $attributes{uri};

    my $pixbuf            = $attributes{pixbuf};

    my $font_desc         = (defined $attributes{font_desc}) ?
	                     $attributes{font_desc} : $self->{font_desc};

    my $fill_color_gdk    = (defined $attributes{fill_color_gdk}) ?
	                     $attributes{fill_color_gdk} : $self->{fill_color_gdk};

    my $text_color_gdk    = (defined $attributes{text_color_gdk}) ?
	                     $attributes{text_color_gdk} : $self->{text_color_gdk};

    my $outline_color_gdk = (defined $attributes{outline_color_gdk}) ?
	                     $attributes{outline_color_gdk} : $self->{outline_color_gdk};

    my $hotspot_color_gdk = (defined $attributes{hotspot_color_gdk}) ?
	                     $attributes{hotspot_color_gdk} : $self->{hotspot_color_gdk};

    my $content           = $self->{content_factory}->create_content(
				      type=>$content_type, browser=>$browser,
				      text=>$text, uri=>$uri, pixbuf=>$pixbuf,
				      font_desc=>$font_desc,
				      text_color_gdk=>$text_color_gdk);

    my $border            = $self->{border_factory}->create_border(
                                      type=>$border_type,
				      content=>$content,
				      fill_color_gdk=>$fill_color_gdk,
				      outline_color_gdk=>$outline_color_gdk);

    my $item              = Gnome2::Canvas::Item->new(
                                      $self->{view}->root,
				      'Gtk2::Ex::MindMapView::Item',
			              border=>$border,
                                      x=>0, y=>0);

    my $hotspot1          = $self->{grip_factory}->create_grip(
				      item=>$item,
				      border=>$border,
				      side=>'left',
			              fill_color_gdk=>$fill_color_gdk,
				      hotspot_color_gdk=>$hotspot_color_gdk);

    my $hotspot2          = $self->{grip_factory}->create_grip(
				      item=>$item,
				      border=>$border,
				      side=>'right',
				      fill_color_gdk=>$fill_color_gdk,
				      hotspot_color_gdk=>$hotspot_color_gdk);

    my $hotspot3          = $self->{toggle_factory}->create_toggle(
				      item=>$item,
				      border=>$border,
				      side=>'left',
				      fill_color_gdk=>$fill_color_gdk,
				      outline_color_gdk=>$outline_color_gdk,
				      hotspot_color_gdk=>$hotspot_color_gdk);

    my $hotspot4          = $self->{toggle_factory}->create_toggle(
				      item=>$item,
				      border=>$border,
				      side=>'right',
				      fill_color_gdk=>$fill_color_gdk,
				      outline_color_gdk=>$outline_color_gdk,
				      hotspot_color_gdk=>$hotspot_color_gdk);

    $item->add_hotspot('lower_left',   $hotspot1);

    $item->add_hotspot('lower_right',  $hotspot2);

    $item->add_hotspot('toggle_left',  $hotspot3);

    $item->add_hotspot('toggle_right', $hotspot4);

    return $item;
}


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