File Coverage

blib/lib/Gtk2/Ex/ComboBox/Text.pm

Criterion	Covered	Total	%
statement	13	15	86.6
branch			n/a
condition			n/a
subroutine	5	5	100.0
pod			n/a
total	18	20	90.0

# Copyright 2010, 2011 Kevin Ryde

# This file is part of Gtk2-Ex-ComboBoxBits.
#
# Gtk2-Ex-ComboBoxBits 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-ComboBoxBits 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-ComboBoxBits.  If not, see .

package Gtk2::Ex::ComboBox::Text;
use 5.008;
use strict;
use warnings;
use Carp;
use Gtk2;
use Scalar::Util;
use Gtk2::Ex::ComboBoxBits 'set_active_text';

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

our $VERSION = 32;

use Glib::Object::Subclass
  'Gtk2::ComboBox',
  signals => { notify => \&_do_notify },
  properties => [ Glib::ParamSpec->string
                  ('active-text',
                   'Active text',
                   'The selected text value.',
                   (eval {Glib->VERSION(1.240);1}
                    ? undef  # default
                    : ''),   # no undef/NULL before Perl-Glib 1.240
                   Glib::G_PARAM_READWRITE),


                  # these are not gettable, so the default doesn't matter,
                  # but give undef
                  #
                  Glib::ParamSpec->string
                  ('append-text',
                   'append-text',
                   'Append a text string.',
                   (eval {Glib->VERSION(1.240);1}
                    ? undef  # default
                    : ''),   # no undef/NULL before Perl-Glib 1.240
                   ['writable']),

                  Glib::ParamSpec->string
                  ('prepend-text',
                   'prepend-text',
                   'Prepend a text string.',
                   (eval {Glib->VERSION(1.240);1}
                    ? undef  # default
                    : ''),   # no undef/NULL before Perl-Glib 1.240
                   ['writable']),
                ];

# Gtk2::ComboBox::new_text creates a Gtk2::ComboBox, must override to get a
# subclass Gtk2::Ex::ComboBoxBits
# could think about offering this as a ComboBox::Subclass mix-in
sub new_text {
  return shift->new(@_);
}

my $renderer = Gtk2::CellRendererText->new;

sub INIT_INSTANCE {
  my ($self) = @_;

  # same as gtk_combo_box_new_text(), which alas it doesn't make available
  # for general use
  $self->set_model (Gtk2::ListStore->new ('Glib::String'));
  $self->pack_start ($renderer, 1);
  $self->set_attributes ($renderer, text => 0);
}

sub GET_PROPERTY {
  my ($self) = @_;
  ### Text GET_PROPERTY: $_[1]->get_name

  # my $pname = $pspec->get_name;
  # if ($pname eq 'active_text') {
  return $self->get_active_text;
}

sub SET_PROPERTY {
  my ($self, $pspec, $newval) = @_;
  ### Text SET_PROPERTY: $pspec->get_name, $newval

  my $pname = $pspec->get_name;
  if ($pname eq 'active_text') {
    $self->set_active_text ($newval);
  } else {
    # append_text or prepend_text
    $self->$pname ($newval);
  }
}

# 'notify' class closure
sub _do_notify {
  my ($self, $pspec) = @_;
  ### ComboBox-Test _do_notify()
  shift->signal_chain_from_overridden (@_);

  if ($pspec->get_name eq 'active') {
    $self->notify ('active-text');
  }
}

1;
__END__