the proper way to do inheritance

[Chas Owens <alas widomaker com>]

Following is an example of how I currently fo inheritance.  Is this the "right"
way?  I remember there being some discussion earlier on changes to how Gtk2-Perl
was doing inheritance, but it referenced things I am not doing (like the type
system).  I have had no problems with this style, but I am wondering if there is
a better/more robust way of doing OO with Gtk2-Perl.

package GnomeSQLEditor::Editor;

	use strict;

	use Gtk2;
	use Gnome2;

	use base 'Gtk2::Notebook';

	sub new {
		my ($class, $text) = @_;
		my $self           = $class->SUPER::new(@_);
		$self->{sql}       = Gtk2::TextView->new;
		$self->{status}    = Gtk2::TextView->new;
		$self->{dirty}     = 0;
		my $pane      = Gtk2::VPaned->new;
		my $sw_sql    = Gtk2::ScrolledWindow->new;
		my $sw_status = Gtk2::ScrolledWindow->new;

		$self->append_page($pane, Gtk2::Label->new("Editor"));
		$pane->pack1($sw_sql, 1, 0);
		$sw_sql->add($self->{sql});
		$pane->pack2($sw_status, 1, 1);
		$sw_status->add($self->{status});

		$self->set_tab_pos('bottom'); #FIXME: this should be an option

		$self->{sql}->modify_font(
			Gtk2::Pango::FontDescription->from_string(
				"Monospace 12" #FIXME: should be an option
			)
		);

		my $buffer = $self->{sql}->get_buffer;
		$buffer->set_text($text);
		$buffer->signal_connect(
			'changed',
			sub { $self->{dirty} = 1 }
		);
		
		$self->show_all;

		return bless $self, $class;
	}

	sub is_dirty { $_[0]->{'dirty'} }

	sub get_text {
		my $self   = shift;
		my $buffer = $self->{'sql'}->get_buffer;
		$buffer->get_text($buffer->get_bounds, 0);
	}

	sub execute {...}
	sub open    {...}
	sub close   {...}
	sub save    {...}
	sub save_as {...}