Re: [xs] notebook problem

[Chas Owens <alas wilma widomaker com>]

On Mon, 21 Apr 2003, Joe Smith wrote:

> Chas Owens wrote:
> > ... this line needs to read
> > $notebook_main->append_page( $table_create, Gtk2::Label->new("Skeleton"));
>
> Is there any reason this shouldn't be the default?  I mean, everybody
> seems to like Button->new("Click Me").
>
> <Joe

The difference is that you don't normally pack a other widgits into a button,
whereas I often say:


sub add_results {
	my ($self, @results) = shift;
	my $hbox             = Gtk2::HBox->new;
	my $close            = Gtk2::Button->new("X");
	$hbox->add(Gtk2::Label->new("Results 1"));
	$hbox->add($close);

	my $sw = Gtk2::ScrolledWindow->new;
	#yadda yadda yadda

	$self->append_page($sw, $hbox);

	$close->signal_connect(
		'clicked',
		sub {
			$self->remove_page($self->page_num($sw));
		}
	);
}