sub listData
{
	my ($client,$dbh,$dlg,$list) = @_;

	#retrieve a list of tapeID numbers for a client
	my @tapes = getTapes($client,$dbh);
		
	#Create a DialogBox
	$dlg->configure(-title=>"Tapes for ".$$client);
	
	$dlg->Subwidget('B_1')->configure(-text=>'OK');
	$dlg->Subwidget('B_0')->packForget();	


        #attempt to configure it with noticably larger values as to show the change.
	$list->configure(-height=>40,-width=>40);
	#Populate the scrolled listbox with tape numbers
	$list->insert('end',$_) for @tapes;	    
	
	$list->pack();	          		 	       			            			       

	
	#Show the dialog
	$dlg->Show();
	
	initDialog($dlg);
	initList($list);
	
	return;
}