view release on metacpan or  search on metacpan

t/show-range-visible.t  view on Meta::CPAN

use strict;
use warnings;
use Glib qw(TRUE FALSE);
use Gtk2 -init;
use Data::Dumper;
use Gtk2::Ex::NumberRange;

use Gtk2::TestHelper tests => 2;

my $numberrange = Gtk2::Ex::NumberRange->new;
$numberrange->set_model(['>', 10, 'and', '<=', 20]);

my $outsidelabel = Gtk2::Label->new('Outside Label');
my $outsidelabelbox = _add_button_press($outsidelabel);

my $label = Gtk2::Label->new('Click-Here');
my $labelbox = _add_button_press($label);
my $popup = $numberrange->attach_popup_to($label);
$labelbox->signal_connect('button-press-event' => 
	sub {
		$popup->show;
		return TRUE; # Very Important...
		             # If you don't return true, then the popup will get closed
	}
);
my $window = Gtk2::Window->new;
$window->signal_connect('destroy' => sub { Gtk2->main_quit });
my $hbox = Gtk2::HBox->new (FALSE);
$hbox->pack_start (Gtk2::Label->new, TRUE, TRUE, 0); 
$hbox->pack_start ($labelbox, TRUE, TRUE, 0); 
$hbox->pack_start (Gtk2::Label->new, TRUE, TRUE, 0); 

my $vbox = Gtk2::VBox->new (FALSE);
$vbox->pack_start ($hbox, FALSE, FALSE, 0); 	
$vbox->pack_start (Gtk2::Label->new, TRUE, TRUE, 0); 
$vbox->pack_start ($outsidelabelbox, TRUE, TRUE, 0); 

$window->add($vbox);
$window->show_all;

Glib::Timeout->add(100, \&label_clicked);
Glib::Timeout->add(200, \&move_window);
Glib::Timeout->add(300, \&terminate);

Gtk2->main;

sub _add_button_press {
	my ($widget) = @_;
	my $eventbox = Gtk2::EventBox->new;
	$eventbox->add ($widget);
	$eventbox->add_events (['button-press-mask']);
	return $eventbox;
}

sub label_clicked {
	$labelbox->signal_emit('button-press-event' => $_[1]);
    ok($numberrange->{widget}->visible());
	return FALSE;
}

sub move_window {
    my ($x, $y) = $window->get_position;
    $window->move($x+100, $y+100);
	ok($numberrange->{widget}->visible());
    return FALSE;
}

sub terminate {
    Gtk2->main_quit;
}