Re: subclass, custom widget

["Ross McFarland" <rwmcfa1 neces com>]

Jim Donoghue said:
> How do I properly create a custom widget? What I need to do is create a
> HBox with a label, an entry, and a button, that I can use like this:
>
> use Things;
>
> my $vbox = Gtk2::VBox->new(0,6);
>
> my $thing = SomeThing->new();
>
> $vbox->add($thing);
>
> ....
>
> Where SomeThing is the custom widget.
>
> How do I get SomeThing to inherit the properties necessary to treat it
> as a container?

depending on what you're doing you probably don't need to use Glib::Subclass.
take a look at http://gtk2-perl.sourceforge.net/faq/#16

it should look something like: (note this isn't compiled/tested code, but it
should be close)

package Gtk2::Something;

use strict;
use warnings;
use Carp;
use Gtk2;
# this is the all important line
use base 'Gtk2::VBox';

sub new
{
	my $class = shift;

	# first to parmas to this function are the params for the vbox new call
	my $self = Gtk2::Vbox->new(shift, shift);

	# rebless it to an Gtk2::Something
	bless $self, $class;

	# use the third param as the label text
	$self->{label} = Gtk2::Label->new(shift)
	$self->{entry} = Gtk2::Entry->new;
	# the fourth param will be put into the entry to start
	$self->{entry}->set_text(shift);
	# the fifth param will be the button label
	$self->{button} = Gtk2::Button->new(shift);

	# obviously pack them how you want
	$self->pack_start($self->{label}, 0, 0, 0);
	$self->pack_start($self->{entry}, 0, 0, 0);
	$self->pack_start($self->{button}, 0, 0, 0);

	return $self;
}

sub show
{
	my $self = shift;
	$self->{label}->show;
	$self->{entry}->show;
	$self->{button}->show;
        $self->SUPER::show;
}

# there's probably a few more methods that you might want to override

then you would use it like:

my $vbox = Gtk2::VBox->new(0,6);
# you obviously need to change the way params work to suit your actual needs.
my $thing = Gtk2::SomeThing->new(0, 6, 'label txt', 'entry txt', 'button txt');
$vbox->pack_start($thing, 0, 0, 0);
$thing->{entry}->set_text('foo');

-rm