# Menu setup
my $menuMW = $ptrMainWindow->AddMenu( -pos => [ 10, 10 ],
				      -size=> [ 30, 30 ]
				    );

my $btnMenu = 
  $menuMW->AddMenuButton( -text => "Configuration");

my $itmDBSetup =
  $btnMenu->AddMenuItem( -text    => "Database Setup",
			 -onClick => sub{ displayDlgDBSetup( $ptrMainWindow ) } );

my $itmQuit = $btnMenu->AddMenuItem( -text => "Exit" );