sub begin_menus{
	$scan_menu->command(-label => 'Nmap Scan',
	-background=>'black',
	-foreground=>'#00ff00',
	-activebackground=>'#00ff00',
	-activeforeground=>'black',
	-command => sub { &nmap_scan_dialog() } );
	
	$search_menu->command(-label => 'Nmap Database Search',
	-background =>'black',
	-foreground =>'#00ff00',
	-activebackground=>'#00ff00',
	-activeforeground=>'black',
	-command => sub { &nmap_search_dialog() } );
	
	$configuration_menu->command(-label => 'Nmap Configuration',
	-background=>'black',
	-foreground=>'#00ff00',
	-activebackground=>'#00ff00',
	-activeforeground=>'black',
	-command => sub { &nmap_configuration_dialog() } );
}

sub nmap_search_dialog {
	return 1;
}

sub nmap_scan_dialog {
	$tabsinside->add("nmap", -label => "Nmap Scan")->pack();

}

sub nmap_configuration_dialog {
	return 1;	
}
sub nmap_start {
	if ( begin_menus() ) { return 1; }
}

nmap_start();