use warnings ;
use strict ;  
use Tk ;      
use Tk::NoteBook ;

my $popup_menu_items = 
    [                  
        [Button => "Close", -command => \&popup_close],
        [Button => "Other", -command => \&popup_other] 
    ] ;

my $tabs ;
my $popup_menu ;

sub sk_notebook_add
    {
    my $MW = shift ;

    $tabs = $MW->NoteBook()->pack( -fill=>'both', -expand=>1 );
    $popup_menu = $tabs->Menu( -menuitems => $popup_menu_items, -tearoff => 0 ) ;
    $tabs->bind( "<Button-3>" => [ \&popup_spot, Ev('X'), Ev('Y') ] ) ;

    return $tabs ;
    }

my $popup_tab_name ;

sub popup_spot
    {
    my $x = $_[1] - $tabs->rootx ;
    my $y = $_[2] - $tabs->rooty ;
    $popup_tab_name = $tabs->identify( $x, $y ) ;
    $popup_menu->Popup( -popover => "cursor", -popanchor => 'nw' ) if( $popup_tab_name ) ;
    }

sub popup_close
    {
    $tabs->delete( $popup_tab_name ) ;
    }

sub popup_other
    {
    print "name = $popup_tab_name\n" ;
    }

1

__END__