view release on metacpan or  search on metacpan

lib/GooCanvas2.pm  view on Meta::CPAN

package GooCanvas2;

use 5.006000;
use strict;
use warnings;
use Glib::Object::Introspection;

our $VERSION = '0.06';

# customization ------------------------------------------------------- #

my %_NAME_CORRECTIONS = (
	
);

my @_CLASS_STATIC_METHODS = qw/
	
/;
my @_FLATTEN_ARRAY_REF_RETURN_FOR = qw/	
	GooCanvas2::Canvas::get_items_at
	GooCanvas2::Canvas::get_items_in_area
	GooCanvas2::CanvasItem::get_items_at
	GooCanvas2::CanvasItem::class_list_child_properties
	GooCanvas2::CanvasItemModel::class_list_child_properties
/;

# HANDLE SENTINAL BOOLEAN FOR
# Unsicher bin ich mir bei GooCanvas2::CanvasItem::get_transform
# GooCanvas2::CanvasItem::get_simple_transform ist an sich eine Funktion, die ein 
# bool'sches und weitere out-Argumente zurückgibt. Allerdings sind diese nicht NULL
# wenn die Funktion unwahr zurückgibt (sd. bspw. undef, 0, 0, 1, 0). Daher lass ich es raus.
# Das selbe gilt für die entsprechenden Funktionen in CanvasItem (get_transform
# und get_simple_transform)
my @_HANDLE_SENTINEL_BOOLEAN_FOR = qw/
	
/;
my @_USE_GENERIC_SIGNAL_MARSHALLER_FOR = (
);


sub import {

	Glib::Object::Introspection->setup(
		basename => 'GooCanvas',
		version => '2.0',
		package => 'GooCanvas2',
		name_corrections => \%_NAME_CORRECTIONS,
		class_static_methods =>\@_CLASS_STATIC_METHODS,
		flatten_array_ref_return_for =>\@_FLATTEN_ARRAY_REF_RETURN_FOR,
		handle_sentinel_boolean_for => \@_HANDLE_SENTINEL_BOOLEAN_FOR);
}

# Preloaded methods go here.

1;
__END__
# Below is stub documentation for your module. You'd better edit it!

=head1 NAME

GooCanvas2 - Perl binding for GooCanvas2 widget using Glib::Object::Introspection

=head1 SYNOPSIS

  	#!/usr/bin/perl -w
	use strict;
	use warnings;

	use Gtk3 -init;
	use GooCanvas2;
	
	my $window = Gtk3::Window->new();
	$window->set_default_size(640, 600);
	$window->signal_connect('destroy' => sub {Gtk3->main_quit()});

	my $scrolled_win = Gtk3::ScrolledWindow->new();
	$scrolled_win->set_shadow_type('in');

	my $canvas = GooCanvas2::Canvas->new();
	$canvas->set_size_request(600,450);
	$canvas->set_bounds(0,0,1000,1000);
	$scrolled_win->add($canvas);

	my $root = $canvas->get_root_item();

	# Add a few simple items
	my $rect_item = GooCanvas2::CanvasRect->new('parent' => $root,
						'x' => 100,
						'y' => 100,
						'width' => 300,
						'height' => 300,
						'line_width' => 10.0,
						'radius-x' => 20.0,