#-----------------------------------------------------------------------------------
#-- Define menubar
sub Define_Menu {
   
   $Menu_Frame = $TopWindow->Frame(-relief => 'raised', -borderwidth => 2)->form(-top=>'%0',-left=>'%0',-right=>'%100');
   $Menu_Toplevel = $Menu_Frame->toplevel ;
   $Menu_Bar = $Menu_Toplevel->Menu(-type => 'menubar') ;
   $Menu_Toplevel->configure(-menu => $Menu_Bar) ;
   $Menu_File = $Menu_Bar->cascade(-label=> '~File', -tearoff => 0);
   $Menu_File_Select = $Menu_File->command (-label       => 'Select ~MySQL Dump File...', 
                                            -command     => \&Select_Config_Root, 
                                            -accelerator => 'Control+c') ;
   $Menu_File->separator ;
   $Menu_File_Exit = $Menu_File->command (-label       => '~Exit',  
                                          -command     => \&Abandon, 
                                          -accelerator => 'Control+x') ;
   $Menu_File->pack(-side=>'left',-anchor=>'nw') ; 
  
   $Menu_Run = $Menu_Bar->cascade(-label=> '~Run', -tearoff => 0 ); 
   $Menu_Run_Split = $Menu_Run->command (-label    => '~Split',
                                         -command  => \&Split ,
                                         -accelerator => 'Control+q');

   $Menu_Help = $Menu_Bar->cascade(-label=> '~Help', -tearoff => 0 ) ;
   $Menu_Help_Help = $Menu_Help->command (-label    => '~Help',
                                          -command  => [\&ShowHelpMessage],
                                          -accelerator => 'Control+h') ;
   $Menu_Help_About = $Menu_Help->command (-label    => '~About',
                                           -command  => [\&ShowAboutMessage,$ver],
                                           -accelerator => 'Control+a') ;
   $Menu_Help->pack(-side=>'right',-anchor=>'ne') ; ;

   $Menu_Run_Split->configure(-state => 'disabled');
   
}