#!/usr/bin/perl -w
use strict;
use Gtk2 '-init';
use Gnome2::Canvas;
use lib '../lib';
use Gtk2::Ex::MindMapView;
use Gtk2::Ex::MindMapView::ItemFactory;
my $window = Gtk2::Window->new();
my $scroller = Gtk2::ScrolledWindow->new();
my $view = Gtk2::Ex::MindMapView->new(aa=>1);
$view->set(connection_arrows=>'one-way');
my $factory = Gtk2::Ex::MindMapView::ItemFactory->new(view=>$view);
$view->set_scroll_region(-350,-325,350,325);
#$view->set_scroll_region(0,0,350,325);
$scroller->add($view);
$window->signal_connect('destroy'=>sub { _closeapp($view); });
$window->set_default_size(900,350);
$window->add($scroller);
my $item1 = _text_item($factory, "Test Multiple Predecessors");
$view->add_item($item1);
my $item2 = _text_item($factory, "Music");
$view->add_item($item1, $item2);
my $item3 = _text_item($factory, "Films");
$view->add_item($item1, $item3);
my $item4 = _text_item($factory, "Dog");
$view->add_item($item1, $item4);
my $item5 = _text_item($factory, "Security");
$view->add_item($item1, $item5);
my $item6 = _text_item($factory, "Athena");
$view->add_item($item1, $item6);
my $item7 = _text_item($factory, "The Sadies.");
$view->add_item($item2, $item7);
my $item8 = _text_item($factory, "The Byrds.");
$view->add_item($item2, $item8);
my $item9 = _text_item($factory, "The Grateful Dead.");
$view->add_item($item2, $item9);
my $item10 = _text_item($factory, "Winged Migration");
$view->add_item($item3, $item10);
my $item11 = _text_item($factory, "Down By Law");
$view->add_item($item3, $item11);
my $item12 = _text_item($factory, "The Last Waltz");
$view->add_item($item2, $item12);
$view->add_item($item3, $item12);
my $item13 = _text_item($factory, "Kerberos");
$view->add_item($item4, $item13);
$view->add_item($item5, $item13);
$view->add_item($item6, $item13);
$view->layout();
$window->show_all();
Gtk2->main();
exit 0;
sub _closeapp
{
my $view = shift(@_);
$view->destroy();
Gtk2->main_quit();
return 0;
}
sub _text_item
{
my ($factory, $text) = @_;
return $factory->create_item(border=>'Gtk2::Ex::MindMapView::Border::RoundedRect',
content=>'Gtk2::Ex::MindMapView::Content::EllipsisText',
text=>$text);
}
1;