sub handleClick
{
    my ($listbox,$path,$label,$drives,$filename) = @_;
    
    #retrieve the item selected
    my $item = $listbox->get('active');
    
    #If the item's first letter is not an allowed character
    if(!($item =~ m{^[\w\d\.\+\-\=\(\)\%\^\#\@\!\~\`\'\,]{1}}))
    {    
		#Strip slashes if directory
		$item =~ s{\/}{}g;

		CLICK_OPTION:
		{
			#Move down a level 
			$item =~ m{\.{2}} && do
			                     {
			                    	#Remmove valid path characters from the end of the file
			                     	$$path =~ s{\/[\s\w\d\.\+\-\=\(\)\%\^\#\@\!\~\`\'\,]*$}{};                  
						  		    
						  		    #Add a slash if you're left with only the drive letter and :
						  		    $$path .= "/" if length($$path) == 2;
								    
								 	last CLICK_OPTION;
								 };
			#Change drives
			$item =~ m{^\<}   && do
								 {
								 	#Remove angle brackets 
								 	$item =~ s{[<>]*}{}g;
									
									#Add a colon and /
									$$path = $item.":/";
									
									last CLICK_OPTION;
								 };
								 
			#Defaultly attempt to open it as a directory
			if(opendir TEST,$$path."/".$item)
			{
				#Close it if it suceeds
				closedir TEST;
				
				#Update $$path for use in populate()
				$$path  = (length($$path) != 3 ?  $$path."/".$item:$$path.$item);
			}
		}

		#Reformat the label showing the path
		$label->configure(text=>'Browsing: ' . $$path);

		#Re-populate the listbox
		populate($path,$listbox,$drives);
	}
	else
	{
		#Delete the current value of the entry widget
		$filename->delete('0.0',length($filename->get()));
		
		#Add the selected path and filename to the entry widget
		$filename->insert('end',(length($$path) != 3 ?  $$path."/".$item:$$path.$item));	
	}

	return;
}

sub getDrives
{
	my @drives = ();
	
	#Loop through the alphabet
	for ('A'..'Z')
	{		
		#Attempt to open the root of the drives
		if(opendir(TEST,$_.":/"))
		{
			#If successful close it 
			closedir(TEST);
			
			#add to the list
			push @drives,$_;
		}
	}	
	return @drives;
}


sub populate
{
	my ($path,$listbox,$drives) = @_;

	#Delete the entries in the box	
	$listbox->delete('end') for(0..$listbox->size);
	
	#Open the path that will populate the listbox
	opendir DATA, $$path or die "$! : Could not open directory!";

	#Loop over each item
	foreach(readdir DATA)
	{
		#If the item can be opened as a file
		if(opendir(TEST,$$path."/".$_))
		{ 
			closedir(TEST);
			
			#Insert the item with a prepending / 
			#to denote that the item is a directory
			$listbox->insert('end',"/".$_);
		}
		else
		{
			#Insert it as returned by readdir
			$listbox->insert('end',$_);
		}		
	}
	
	#Close the path that populates the listbox
	closedir DATA;
		
	$listbox->insert('end',"<".$_.">") for @{$drives};
	
	return;
}

sub selectFile
{
	my ($mw,$client,$login) = @_;			
	
	#Create the DialogBox
	my $dlg = $mw->DialogBox(-title=>"Import Data: ".$$client,
	                         -buttons=>['OK','Cancel']);
	
	my ($filename,$tape,$path) = ('','','C:/');
	
	#save the array of drive letters 
	#returned by getDrives() in @drives
	my @drives = getDrives();
	
	#Create the pwd label
	my $label = $dlg->Label(-text=>"Browsing: " .$path)->pack();
	            	
	#Create the listbox that holds the directory listing
	my $list = $dlg->Scrolled('Listbox',
				  			   -scrollbars=>'oe os',
							   -background=>'black',
							   -foreground=>'white',
							   -width=>'50',
							   -height=>'20')->pack();
    		
	#Create the LabEntry widget and bind its value to $filename
	my $fileEntry= $dlg->LabEntry(-label       =>'Enter a Filename',
						          -labelPack   =>[qw{-side left  -anchor w}],								  
								  -textvariable=>\$filename,
								  -background  =>'white',
								  -width       =>30)->pack();

	#Create the LabEntry widget and bind its value to $tape
	$dlg->LabEntry(-label       =>'Enter a Tape Number:',
		           -labelPack   =>[qw{-side left -anchor w}],
				   -textvariable=>\$tape,
				   -background  =>'white',
				   -width       =>26)->pack();

	                         
	#Bind the double-click event.
	$list->bind('<Double-1>'=>[\&handleClick,\$path,$label,\@drives,$fileEntry]);
    
	#Populate the scrolled listbox
	populate(\$path,$list,\@drives);	
	
	#Show Dialog and save result in $result
	my $result = $dlg->Show();

	#If the user clicked OK
	while($result eq 'OK' && (!$filename || !validTapeID(\$tape,$login)))
	{
		errorDisplay($mw,'You must enter a valid filename, and tape number not already present in the data.');
		$result = $dlg->Show();
	}
	
	return ($result,$filename,$tape);
}