view release on metacpan or  search on metacpan

t/02.t  view on Meta::CPAN

    }
    sub select {
	my($self, %params) = @_;
	for my $k (keys %params) {
	    print STDERR $self->name," was notified of a change in selection: $k=>$params{$k}\n";
	}
    }
}

{
    package Gtk2::Ex::Geo::Test2;
    our @ISA = qw(Gtk2::Ex::Geo::Layer);
    sub new {
	my $self = Gtk2::Ex::Geo::Layer::new(@_);
	return $self;
    }
    sub world {
	return (0, 0, 100, 100);
    }
    sub render {
	my($self, $pb, $cr, $overlay, $viewport) = @_;
    }
    sub got_focus {
	my($self) = @_;
	print STDERR $self->name," got focus\n";
    }
    sub lost_focus {
	my($self, $gui) = @_;
	print STDERR $self->name," lost focus\n";
    }
    sub select {
	my($self, %params) = @_;
	for my $k (keys %params) {
	    print STDERR $self->name," was notified of a change in selection: $k=>$params{$k}\n";
	}
    }
}

my($window, $gis) = setup (classes => [qw/Gtk2::Ex::Geo::Layer/] );

if ($have_gnuplot) {
    my $gnuplot = IPC::Gnuplot->new();
    $gis->register_function( name => 'plot', object => $gnuplot );
    $gis->register_function( name => 'p', object => $gnuplot );
}

my $layer = Gtk2::Ex::Geo::Test1->new(name => 'test 1');
$gis->add_layer($layer);

$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";
	  }
      },
      {
	  label => 'menu item 2',
	  sub => sub {
	      my(undef, $gui) = @_;
	      print STDERR "exec menu item 2\n";
	  }
      }
    ] );

$gis->{toolbar}->set_style('icons');

Gtk2->main;

sub setup{
    my %params = @_;

    my $window = Gtk2::Window->new;
    
    $window->set_title($params{title})
	if $params{title};
    
    $window->set_default_icon_from_file($params{icon}) 
	if $params{icon} and -f $params{icon};
    
    my $gis = Gtk2::Ex::Geo::Glue->new( main_window => $window );
    
    for (@{$params{classes}}) {
	$gis->register_class($_);
    }

    # layer list
    my $list = Gtk2::ScrolledWindow->new();
    $list->set_policy("never", "automatic");
    $list->add($gis->{tree_view});
    
    # layer list and the map
    my $hbox = Gtk2::HBox->new(FALSE, 0);
    $hbox->pack_start($list, FALSE, FALSE, 0);
    $hbox->pack_start($gis->{overlay}, TRUE, TRUE, 0);
    
    # the stack
    my $vbox = Gtk2::VBox->new(FALSE, 0);
    $vbox->pack_start($gis->{toolbar}, FALSE, FALSE, 0);
    #$vbox->add($hbox);
    $vbox->pack_start($hbox, TRUE, TRUE, 0);
    $vbox->pack_start($gis->{entry}, FALSE, FALSE, 0);
    $vbox->pack_start($gis->{statusbar}, FALSE, FALSE, 0);

    $window->add($vbox);
    $window->signal_connect("destroy", \&close_the_app, [$window, $gis]);
    $window->set_default_size(600,600);
    $window->show_all;