view release on metacpan or  search on metacpan

lib/Gtk2/Ex/FileLocator/RecycleButton.pm  view on Meta::CPAN

   $button->show;
   $button->add_events('button-release-mask');
   $button->signal_connect(
      'button_release_event' => \&on_button_release_event,
      $this
   );

   $this->add($button);

   #popup menu
   $this->{menu} = new Gtk2::Menu;
   $this->{menu}->show;

   $this->signal_connect_after( 'map' => \&on_map );

   $this->get('chooser')->signal_connect( 'selection_changed', sub { $this->add_filename( $this->get_filename ) } );
}

sub on_map {
   my $this   = shift;
   my $height = $this->allocation->height + 5;

lib/Gtk2/Ex/FileLocator/RecycleButton.pm  view on Meta::CPAN

   $filename = Unicode::MapUTF8::from_utf8(
      { -string => $filename, -charset => 'ISO-8859-1' } );
   my @children = $this->{menu}->get_children;
   return
     if @children
        and grep { $_->get_child->get_text eq $filename } @children;

   $this->Debug($filename);

   my $menuItem = Gtk2::ImageMenuItem->new($filename);
   $menuItem->set_image($image);
   $menuItem->signal_connect_after( 'activate' => \&on_menu_activated, $this );
   $menuItem->show;

   $this->{menu}->append($menuItem);
   return;
}

sub on_button_release_event {
   my ( $button, $event, $this ) = @_;