view release on metacpan or  search on metacpan

t/widget_allocation.t  view on Meta::CPAN

    ### Bar SET_PROPERTY: $newval
    ### values: $newval && $newval->values
    $self->{'myrect'} = ($newval && $newval->copy);
  }
}

#-----------------------------------------------------------------------------
# windowed DrawingArea widget 

{
  my $toplevel = Gtk2::Window->new('popup');

  my $fixed = Gtk2::Fixed->new;
  $toplevel->add ($fixed);

  my $draw = Gtk2::DrawingArea->new;
  $draw->set_size_request (2000, 1000);

  my $size_allocate_ran = 0;
  $draw->signal_connect (size_allocate => sub {
                           diag "draw size-allocate signal runs";

t/widget_allocation.t  view on Meta::CPAN

}

#-----------------------------------------------------------------------------

{
  package MyNoWindow;
  use Glib::Object::Subclass 'Gtk2::Widget';
}

{
  my $toplevel = Gtk2::Window->new('popup');

  my $fixed = Gtk2::Fixed->new;
  $toplevel->add ($fixed);

  my $nowin = Gtk2::DrawingArea->new;

  my $size_allocate_ran = 0;
  $nowin->signal_connect (size_allocate => sub {
                           diag "draw size-allocate signal runs";
                           $size_allocate_ran = 1;