view release on metacpan or  search on metacpan

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

   $button->add($image);
   $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;

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

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

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

   #printf "on_button_release_event %s\n", $this->get_filename;
   $this->{menu}
     ->popup( undef, undef, undef, undef, $event->button, $event->time );
   return;
}

sub on_menu_activated {
   my ( $item, $this ) = @_;

   my $path = $item->get_child->get_text;
   printf "on_menu_activated %s\n", $path;

   $this->set_uri( sprintf "file://%s", $path );