Gtk2-Ex-Geo

 view release on metacpan or  search on metacpan

ChangeLog  view on Meta::CPAN

Date: 15:44:24, 10. heinäkuuta 2007
require open_features_dialog, hue_dir is either -1 or 1

Date: 15:42:24, 10. heinäkuuta 2007
new method: run_command, dox,  in add_layer do not overwrite name

Date: 15:40:33, 10. heinäkuuta 2007
test with Gtk2::TestHelper

Date: 1:39:57, 10. heinäkuuta 2007
show toolbar button, change cursor when popup menu on layer list

Date: 1:38:35, 10. heinäkuuta 2007
test registering commands

Date: 23:37:45, 9. heinäkuuta 2007
simple named params for register_function 

Date: 23:08:33, 9. heinäkuuta 2007
simpler overlay menu

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

	$args{tip} = $args{tip} || '';
	$button->set_tooltip($tooltips, $args{tip}, '');
	$tooltips->set_tip($button, $args{tip});
	$tooltips->enable;
	$args{pos} = -1 unless defined $args{pos};
	#$button->set_menu($menu);
	$button->show_all;
	$menu->show_all;

	$button->signal_connect(clicked => sub {
	    $menu->popup(undef, undef, undef, undef, 0, 0);
				});
	
	$self->{toolbar}->insert($button, $args{pos});
    } else {
	for my $command (@$commands) {
	    $self->register_command(%$command);
	}
    }
}

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

	    my $item;
	    unless ($items[$i+1]) {
		$item = Gtk2::SeparatorMenuItem->new();
	    } else {
		$item = Gtk2::MenuItem->new($items[$i]);
		$item->signal_connect(activate => $items[$i+1], $params);
	    }
	    $item->show;
	    $menu->append($item);
	}
	$menu->popup(undef, undef, undef, undef, $event->button, $event->time);
	return 1;

    } elsif ($column =~ /^v/) {

	$layer->visible(!$layer->visible());
	$self->update;
	$self->{overlay}->render;

    } elsif ($column =~ /^t/) {

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

	    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);
	}
	$menu->popup(undef, undef, undef, undef, $event->button, $event->time);
	$handled = 1;
	
    } elsif ($event->button == 1) {

	push @{$self->{path}}, [$event->x, $event->y];

	unless ($self->{rubberband_mode} eq 'edit') {
	    $self->{rubberband_gc} = Gtk2::Gdk::GC->new($self->{pixmap});
	    $self->{rubberband_gc}->copy($self->style->fg_gc($self->state));
	    $self->{rubberband_gc}->set_function('invert');

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

    my $menu = Gtk2::Menu->new;
    foreach my $method ('expand_all', 'collapse_all') {
	my $label = join ' ', map { ucfirst $_ } split /_/, $method;
	my $item = Gtk2::MenuItem->new ($label);
	$menu->append ($item);
	$item->show;
	$item->signal_connect (activate => sub {
	    $self->$method;
			       });
    }
    $menu->popup (undef, undef, undef, undef, $event->button, $event->time);
}

sub _fill_scalar {
    my ($self, $model, $parent, $name, $data) = @_;
    my $str = defined ($data) ? "$data" : "[undef]";
    $model->set ($model->append ($parent),
		 0, (defined($name) ? "$name " : ''). $str);
}

sub _fill_array {

t/02.t  view on Meta::CPAN

$layer = Gtk2::Ex::Geo::Test2->new(name => 'test 2');
$gis->add_layer($layer);

$gis->{overlay}->signal_connect(update_layers => 
	sub {
	#print STDERR "in callback: @_\n";
	});

$gis->register_commands(
    [ 
      tag => 'test popup',
      label => 'Menu',
      tip => 'Press to get a menu',
      {
	  label => 'menu item 1',
	  sub => sub {
	      my(undef, $gui) = @_;
	      print STDERR "exec menu item 1\n";
	  }
      },
      {