view release on metacpan or  search on metacpan

lib/Gtk2/CV/Plugin/MetaCluster.pm  view on Meta::CPAN

   my $metacluster;

   $schnauzer->signal_connect (popup => sub {
      my ($self, $menu, $cursor, $event) = @_;
      
      $menu->append (my $i_up = new Gtk2::MenuItem "Imagesize clustering...");
      $i_up->signal_connect (activate => sub {
         ($metacluster = Gtk2::CV::Plugin::MetaCluster->new)->start ($self, \&imgsize);
      });

      $menu->append (my $i_up = new Gtk2::MenuItem "Filetime clustering...");
      $i_up->signal_connect (activate => sub {
         ($metacluster = Gtk2::CV::Plugin::MetaCluster->new)->start ($self, \&mtime);
      });

      $menu->append (my $i_up = new Gtk2::MenuItem "Filesize clustering...");
      $i_up->signal_connect (activate => sub {
         ($metacluster = Gtk2::CV::Plugin::MetaCluster->new)->start ($self, \&size);
      });

      $menu->append (my $i_up = new Gtk2::MenuItem "Link count clustering...");
      $i_up->signal_connect (activate => sub {
         ($metacluster = Gtk2::CV::Plugin::MetaCluster->new)->start ($self, \&nlink);
      });

      if ($::CUSTOM_CLUSTERING) {
         $menu->append (my $i_up = new Gtk2::MenuItem "Custom clustering...");
         $i_up->signal_connect (activate => sub {
            ($metacluster = Gtk2::CV::Plugin::MetaCluster->new)->start ($self, \&custom);
         });
      }
   });

 view release on metacpan or  search on metacpan

examples/gtk2-ex-clock.pl  view on Meta::CPAN

}

my $clock = Gtk2::Ex::Clock->new (%clock_properties);
$noshrink->add ($clock);

my $menu = Gtk2::Menu->new;

my $quit = Gtk2::ImageMenuItem->new_from_stock ('gtk-quit');
$quit->signal_connect (activate => sub { $toplevel->destroy });
$quit->show;
$menu->add ($quit);

 view release on metacpan or  search on metacpan

devel/menu-enum.pl  view on Meta::CPAN

use 5.010;
use strict;
use warnings;
use Gtk2 '-init';
use Gtk2::Ex::Menu::EnumRadio 6; # v.6 in ComboBoxBits

use Smart::Comments;

use FindBin;
my $progname = $FindBin::Script;

if (0) {
  # my $menuitem = Gtk2::MenuItem->new ('_hello');
  my $menuitem = Gtk2::MenuItem->new_with_label ('hello');
  #  my $menuitem = Glib::Object::new ('Gtk2::MenuItem');
  ### child: $menuitem->get_child
  ### label: $menuitem->get('label')
  ### under: $menuitem->get('use-underline')
  # $menuitem->set(label => undef);
  exit 0;

devel/menu-enum.pl  view on Meta::CPAN

$toplevel->signal_connect (destroy => sub { Gtk2->main_quit });

my $vbox = Gtk2::VBox->new;
$toplevel->add ($vbox);

my $menubar = Gtk2::MenuBar->new;
$vbox->pack_start ($menubar, 0,0,0);

my $item = Gtk2::MenuItem->new_with_label ('Menu');
$menubar->add ($item);

my $menu = Gtk2::Ex::Menu::EnumRadio->new
  (enum_type => 'My::Test1');
$menu->signal_connect ('notify::active-nick' => sub {
                         my ($menu) = @_;
                         print "$progname: active-nick now ",$menu->get('active-nick')||'[undef]',"\n";
                       });
$item->set_submenu ($menu);

my $tearoff = Gtk2::TearoffMenuItem->new;
$menu->prepend($tearoff);

{
  my $button = Gtk2::Button->new_with_label ('set active undef');
  $button->signal_connect (clicked => sub {

 view release on metacpan or  search on metacpan

lib/Gtk2/Ex/DBI.pm  view on Meta::CPAN

    # Get the parent widget so we know if we're an entry in a combo box or not
    my $parent_widget = $widget->get_parent;
    
    # The 'find' menu item
    if ( ! $self->{disable_find} && ! exists $self->{sql}->{pass_through} ) {
        $menu_item = Gtk2::ImageMenuItem->new_from_stock("gtk-find");
        if ( ref $parent_widget eq "Gtk2::ComboBoxEntry" ) {
            $menu_item->signal_connect_after( activate => sub { $self->find_dialog($parent_widget); } );
        } else {
            $menu_item->signal_connect_after( activate => sub { $self->find_dialog($widget); } );
        }
        $menu->append($menu_item);
        $menu_item->show;
    }
    
    # The 'calculator' menu item
    $menu_item = Gtk2::ImageMenuItem->new("Calculator");
    my $pixbuf = $widget->render_icon( "gtk-index", "menu" );
    my $image = Gtk2::Image->new_from_pixbuf($pixbuf);
    $menu_item->set_image($image);
    $menu_item->signal_connect_after( activate => sub { $self->calculator($widget); } );
    $menu->append($menu_item);

lib/Gtk2/Ex/DBI.pm  view on Meta::CPAN

    # ( but only if we've got a definition handy to rebuild it with )
    if ( ref $parent_widget eq "Gtk2::ComboBoxEntry"
        && $self->{combos}
        && $self->{combos}->{$parent_widget->get_name}
       ) {
        $menu_item = Gtk2::ImageMenuItem->new("Refresh Combo");
        $pixbuf = $widget->render_icon( "gtk-refresh", "menu" );
        $image = Gtk2::Image->new_from_pixbuf($pixbuf);
        $menu_item->set_image($image);
        $menu_item->signal_connect_after( activate => sub { $self->setup_combo($parent_widget->get_name); } );
        $menu->append($menu_item);

 view release on metacpan or  search on metacpan

lib/Gtk2/Ex/DBITableFilter.pm  view on Meta::CPAN

use Carp;
use Gtk2::Ex::Simple::List;
use Glib qw(TRUE FALSE);
use Data::Dumper;
use Gtk2::Ex::ComboBox;
use Gtk2::Ex::Simple::Menu;
use Gtk2::Ex::DBITableFilter::BrowserBar;
use Gtk2::Ex::DBITableFilter::FilterWidget;

sub new {
	my ($class, $slist) = @_;

 view release on metacpan or  search on metacpan

devel/run.pl  view on Meta::CPAN

                                   $alloc->width-$x, $alloc->height);
       }
     });
}

my $tearoff = Gtk2::TearoffMenuItem->new;
print "$progname: tearoff border ", $tearoff->get_border_width,
  ",", $tearoff->get_border_width, "\n";

$toplevel->show_all;
print "$progname: ythickness after show ", $dashes_list[1]->style->ythickness, "\n";

 view release on metacpan or  search on metacpan

examples/Forms/Dnav2.pm  view on Meta::CPAN

    # die unless ($menu);
    while ( my @row = $sth->fetchrow_array() ) {

        # print $row[0],"\n";
        my $t = Gtk2::MenuItem->new( $row[0] );
        $t->signal_connect(
            'activate',
            sub {
                $self->display_tbl( { name => $row[0] }, dbh => $arg{dbh} );
            }

 view release on metacpan or  search on metacpan

devel/Action.pm  view on Meta::CPAN

C<Gtk2::Ex::ErrorTextDialog::Action> invokes either C<back> or C<forward> on
a given C<Gtk2::Ex::ErrorTextDialog>.  The "stock" icon and tooltip follow
the direction.  The action is insensitive when the history is empty.

When the action is used on a toolbar button a mouse button-3 handler is
added to popup C<Gtk2::Ex::ErrorTextDialog::Menu>.

If you're not using UIManager and its actions system then see
L<Gtk2::Ex::ErrorTextDialog::Button> for similar button-3 behaviour.

There's no accelerator keys offered as yet.  "B" and "F" would be natural,

 view release on metacpan or  search on metacpan

lib/Gtk2/Ex/FormFactory/Layout.pm  view on Meta::CPAN

package Gtk2::Ex::FormFactory::Layout;

use strict;

use Gtk2::SimpleList;
use Gtk2::SimpleMenu;

my $DEFAULT_SPACING = 5;

sub new {
	my $class = shift;

lib/Gtk2/Ex/FormFactory/Layout.pm  view on Meta::CPAN

sub build_menu {
	my $self = shift;
	my ($menu) = @_;
	
	my $gtk_menu = Gtk2::SimpleMenu->new (
		menu_tree        => $menu->get_menu_tree,
		default_callback => $menu->get_default_callback,
		user_data	 => $menu->get_user_data,
	);
	

lib/Gtk2/Ex/FormFactory/Layout.pm  view on Meta::CPAN

sub build_popup {
	my $self = shift;
	my ($popup) = @_;
	
	my $gtk_popup_menu = Gtk2::Menu->new;
	my $gtk_popup = Gtk2::OptionMenu->new;
	$gtk_popup->set_menu($gtk_popup_menu);

	$popup->set_gtk_widget ( $gtk_popup );

	1;	

 view release on metacpan or  search on metacpan

lib/Gtk2/Ex/Geo/Overlay.pm  view on Meta::CPAN

    my $handled = 0;

    if ($event->button == 3 and $self->{menu}) {

	$self->delete_rubberband if $self->{path};
	my $menu = Gtk2::Menu->new;
	for (my $i =0; $i < @{$self->{menu}}; $i+=2) {
	    my $name = $self->{menu_item_setup}->($self->{menu}->[$i], $self);
	    my $item;
	    unless ($self->{menu}->[$i+1]) {
		$item = Gtk2::SeparatorMenuItem->new();
	    } else {
		$item = Gtk2::MenuItem->new($name);
		$item->signal_connect(activate => $self->{menu}->[$i+1], $self);
	    }
	    $item->show;
	    $menu->append ($item);
	}

 view release on metacpan or  search on metacpan

lib/Gtk2/Ex/Graph/GD.pm  view on Meta::CPAN

	$self->{tooltip}->{displayed} = FALSE;
}

sub _create_optionsmenu {
	my ($self) = @_;
	my $menu = Gtk2::Menu->new();

	my $bars = Gtk2::MenuItem->new("bars");
	my $lines = Gtk2::MenuItem->new("lines");
	my $linespoints = Gtk2::MenuItem->new("lines with points");
	my $area = Gtk2::MenuItem->new("area");
	my $pie = Gtk2::MenuItem->new("pie");
	my $cumulate = Gtk2::MenuItem->new("cumulate");

	$bars->signal_connect(activate => 
		sub { 
			$self->_set_type('bars');
			$self->_refresh;

 view release on metacpan or  search on metacpan

devel/button.pl  view on Meta::CPAN

use strict;
use warnings;
use Gtk2 '-init';
use Gtk2::Ex::History;
use Gtk2::Ex::History::Button;
use Gtk2::Ex::History::MenuToolButton;

# uncomment this to run the ### lines
use Smart::Comments;

use FindBin;

devel/button.pl  view on Meta::CPAN

my $vbox = Gtk2::VBox->new;
$toplevel->add ($vbox);

#my $histbutton = Gtk2::Ex::History::Button->new;
my $histbutton = Gtk2::Ex::History::MenuToolButton->new;
print "$progname: ", $histbutton->get('way'), "\n";
$vbox->pack_start ($histbutton, 1,1,0);

{
  my $button = Gtk2::Button->new ('Set history');

 view release on metacpan or  search on metacpan

examples/blank-start.pl  view on Meta::CPAN

use strict;
use warnings;
use Gtk2 '-init';
use Gtk2::Ex::ICal::Recur;
use Gtk2::Ex::Simple::Menu;
use Gtk2::Ex::Simple::List;
use Glib qw /TRUE FALSE/;
use Data::Dumper;

my $recur = Gtk2::Ex::ICal::Recur->new;

 view release on metacpan or  search on metacpan

devel/cellview-timer.pl  view on Meta::CPAN

#!/usr/bin/perl -w

# Copyright 2010 Kevin Ryde

# This file is part of Gtk2-Ex-MenuView.
#
# Gtk2-Ex-MenuView is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by the
# Free Software Foundation; either version 3, or (at your option) any later
# version.
#
# Gtk2-Ex-MenuView is distributed in the hope that it will be useful, but
# WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
# or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
# for more details.
#
# You should have received a copy of the GNU General Public License along
# with Gtk2-Ex-MenuView.  If not, see <http://www.gnu.org/licenses/>.


use strict;
use warnings;
use Gtk2 '-init';