File Coverage

blib/lib/Gtk2/Ex/Spinner.pm

Criterion	Covered	Total	%
statement	7	9	77.7
branch			n/a
condition			n/a
subroutine	3	3	100.0
pod			n/a
total	10	12	83.3

package Gtk2::Ex::Spinner;

use strict;
use warnings;
use Gtk2;

our $VERSION = 0.21;

use constant DEBUG => 0;

use Glib::Object::Subclass
  Gtk2::HBox::,
  properties => [Glib::ParamSpec->string
                 ('value',
                  'value',
                  'Integer',
                  1,
                  Glib::G_PARAM_READWRITE),
                ];

sub INIT_INSTANCE {
  my ($self) = @_;
  $self->{'value'} = 1;

  my $spin_adj = Gtk2::Adjustment->new (1,    # initial
                                        0, 9999, # range
                                        1,       # step increment
                                        10,      # page_increment
                                        0);      # page_size (not applicable)
  my $spin = $self->{'spin'} = Gtk2::SpinButton->new ($spin_adj, 1, 0);
  $spin->show;
  $self->pack_start ($spin, 0,0,0);

  $spin->signal_connect   (value_changed => \&_update);
  _update ($spin);
}

sub SET_PROPERTY {
  	my ($self, $pspec, $newval) = @_;
  	my $pname = $pspec->get_name;
  	$self->{$pname} = $newval;  # per default GET_PROPERTY

	$self->{'spin'}->set_value ($newval) if $pname eq 'value';
}

sub _update {
  my ($spin) = @_;
  my $self = $spin->parent;

  if ($self->{'update_in_progress'}) { return; }
  local $self->{'update_in_progress'} = 1;

  my $value = $self->{'spin'}->get_value;
  if ($value ne $self->{'value'}) {
    $self->{'value'} = $value;
    $self->notify('value');
  }
}

sub get_value {
  my ($self) = @_;
  return $self->{'value'};
}

1;
__END__