Webmaster Forum / Perl / Tk / August 2008

Looks very intriguing. I have asked Jean-Louis to add a ppm to bribes.org (I
cc'd you). I can't wait to look at it.

Jack

I've been sleeping with the enemy lately :-)  Gtk2 can do this easily.
If you really need this functionality, maybe you should switch?

There are ways with Tk. What you want to do, is store all your info from
the pages in hashes, don't rely on widgets to store your data. You can
use the notebook's raise and lower cmds to save all data on that page.
Then instead of reparenting, just rebuild new widgets with the same hash
data. Once you get the idea, it's not hard. I suppose if you had a
canvas on the notebook frame, and the user was drawing scribbles on it,
it could get tricky; but text and entry widget data is easily saved to
hashes when the info{'focus'} or raisecmd tells you a page change
occured.

But here is a Gtk2 example (ducking :-) )

#!/usr/bin/perl
use warnings;
use strict;
use Glib qw/TRUE FALSE/;
use Gtk2 '-init';

my $window = Gtk2::Window->new('toplevel');
$window ->signal_connect( 'destroy' => \&delete_event );
$window->set_border_width(10);
$window->set_size_request(300,200);
$window->set_position('center');

my $window1 = Gtk2::Window->new('toplevel');
$window1->hide_all();

my $vbox = Gtk2::VBox->new( FALSE, 6 );
$window->add($vbox);
$vbox->set_border_width(2);

my $label_w_markup = Gtk2::Label->new();
$label_w_markup->set_markup("<span background = 'black' foreground=
'green'
 size=\"20000\">Label with <i>markup</i></span>");

$vbox->pack_start($label_w_markup,FALSE,FALSE,4);   

my $hbox= Gtk2::HBox->new( FALSE, 6 );
$vbox->pack_end($hbox,FALSE,FALSE,0);
$hbox->set_border_width(2);

my $button = Gtk2::Button->new_from_stock('gtk-quit');
$hbox->pack_end( $button, FALSE, FALSE, 0 );
$button->signal_connect( clicked => \&delete_event );

my $button1 = Gtk2::Button->new('Reparent');
$hbox->pack_end( $button1, FALSE, FALSE, 0 );
$button1->signal_connect( clicked => \&reparent );

my $button2 = Gtk2::Button->new('Send back');
$hbox->pack_end( $button2, FALSE, FALSE, 0 );
$button2->signal_connect( clicked => \&oldparent );

$window->show_all();

Gtk2->main;

#####################################
sub reparent{
  $window1->show_all();
  $label_w_markup->reparent($window1);
}

sub oldparent{
  $label_w_markup->reparent($vbox);
  $window1->hide_all();
}

sub delete_event {
Gtk2->main_quit;
return FALSE;
}  
__END__

zentara