#!/usr/bin/perl
use warnings;
use strict;
use Tk;
use Tk::NoteBook;
		
my $mw = MainWindow->new;
$mw->geometry('300x200');
		 
		 
my $page_tab_default_font = 
             [-family =>'Linotype Birka',
              -size => 15, 
              -weight => 'normal', 
              -underline => 0];	 

my $page_tab_select_font = 
             [-family =>'Linotype Birka', 
              -size => 15, 
              -weight => 'bold', 
              -underline => 1];	
		 
my $nb_widget = $mw->NoteBook(-font=>$page_tab_default_font)
                         ->pack(-expand=>1, -fill=>'both');

my $nb_page_01= $nb_widget->add("page1", -label=>'PAGE 1',

                               -raisecmd=>\&raised_handler);

my $nb_page_02=$nb_widget->add("page2", -label=>'PAGE 2', 
                               -raisecmd=>\&raised_handler);

MainLoop;
		 
		 
sub raised_handler {
     my $raised_page =
              print "@_\n";
              my $frame = shift;
              print "current frame: $frame\n"; 
              my $current = $nb_widget->raised();
              print "$current is current\n";
                      
              #$nb_widget->page_widget($nb_widget->raised());
     #
     # HOW DO I PROCEED FURTHER ?????
     #
             $frame->configure(-bg=> 'lightyellow');
             $nb_widget->configure(-bg => 'lightyellow'); 
       }