#!/usr/bin/perl

use strict;
use warnings;

use Gtk2 -init;

my($win)=create();

Gtk2->main();


sub create
{
   my($win,$book);


   $win=new Gtk2::Window();
   $win->signal_connect(delete_event => sub {Gtk2->main_quit()});

   $win->add($book=new Gtk2::Notebook());

   $book->append_page(new Gtk2::Entry(),new Gtk2::Label($_))
      foreach qw(Goo Moo Foo);

   $win->show_all();

   return $win;
}