use strict;
use warnings;
use Gtk2;

my $pspec = Glib::ParamSpec->boxed
  ('myrect',
   'myrect',
   'Blurb.',
   'Gtk2::Gdk::Rectangle',
   Glib::G_PARAM_READWRITE);

$,=' ';

my $rect = Gtk2::Gdk::Rectangle->new (1,2,3,4);
print "rect values: @{[$rect->values]}\n";
my ($flag, $newrect) = $pspec->value_validate($rect);
print "flag '$flag'\n";
print "newrect values: @{[$newrect->values]}\n";

exit 0;
