$BAK_menu -> cascade(-label => "Enter Repos."  );

     my $menu = $menu_bar -> cget (-menu);
     my $cm = $BAK_menu -> Menu ( -tearoff => 0   ); ### WORKS DOWN TO
     ### THIS LINE

     $BAK_menu -> entryconfigure ( "Enter Repos." , -menu => $cm  );

    #     $cm -> command ( -label => "first"  );
    #     $cm -> command ( -label => "second"  );

     my $repos = "";
     my $REPOS_entry = $cm -> Entry (
				     -width      => 20,
				     -foreground => 'white',
				     -background => 'black',
				     #-textvariable => \$repos

				    ) -> pack();
     
     
     $BAK_menu -> separator();

     $BAK_menu -> command (
			   -label   => "Close",
			   -command => sub {
			                     ##$top -> destroy;
			                   }

			  );

     $menu_bar -> idletasks;