#!/usr/bin/perl
use warnings;
use Tk;
use strict;

my $mw = new MainWindow;

#Making a text area
my $txt = $mw -> Scrolled('Text',-width => 30,-scrollbars=>'e') -> pack ();

#Declare that there is a menu
my $mbar = $mw -> Menu();
$mw -> configure(-menu => $mbar);

my $others = $mbar -> cascade(-label =>"Main", -underline=>0, -tearoff => 0);
my $help = $mbar -> cascade(-label =>"Help", -underline=>0, -tearoff => 0);

## Others Menu ##
my $insert = $others -> cascade(-label =>"Insert", -underline => 0, -tearoff => 0);
my $Btn1 = $insert -> command(-label =>"Name",-command=>sub{print "2\n";});
my $Btn2 = $insert -> command(-label =>"Website");
my $Btn3 = $insert -> command(-label =>"Email");

$others-> command(-label => "Delete", -underline=>0, 
		-command=>sub {delete_menu();} );

$help-> command(-label => "Add", -underline=>0, 
		-command=>sub {add_menu();} );

MainLoop;

sub add_menu{
# must be cascade, checkbutton, command, radiobutton, or separator 
   $Btn1->parentMenu->add('command',-label => time, 
             -command=>sub{print "3\n";});
  }


sub delete_menu
{ 
        print "1\n";

       #$Btn1->parentMenu->delete(0);
       #or
      
      $Btn1->parentMenu->delete($Btn1->parentMenu->index($Btn1->[1])); 
      
       #or $Btn1->[0]->delete($Btn1->[0]->index($Btn1->[1])); 
       #or $$Btn1[0]->delete($$Btn1[0]->index($$Btn1[1])); 
       # or $insert->menu->delete($insert->menu->index($$Btn1[1]));        
}