$widget->configure(-height=>X,
                   -width=>Y);
##</code><code>##

#Create a scrolled listbox
$list->configure(-height=>12,
                 -width =>12);

	
#Populate the scrolled listbox with tape numbers
$list->insert('end',$_) for @tapes;	    
	
$list->pack();	          		 	       			            			       
$list->packForget();

$list->configure(-height=>12,
                 -width =>100);
$list->pack(); 
##</code><code>##

sub initList
{
	my $list = shift;
	
	#Remove the list from the packing order
	$list->packForget();
	
	#Remove all elements from the list
	$list->delete('end') for(0..$list->size);
	
	
	print $list->cget('height');
	
	#Reset heigth and width
	$list->configure(-height=>1,
	                 -width =>1);
	
	#Unbind the double click binding
	$list->bind('<Double-1>','');
	
	return;
}

##</code><code>##

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();	

	#Create a scrolled listbox
	$list->configure(-height=>12,
	          		 -width =>12);

	
	#Populate the scrolled listbox with tape numbers
	$list->insert('end',$_) for @tapes;	    
	
	$list->pack();	          		 	       			            			       
	
	
	#Show the dialog
	$dlg->Show();
	
	initDialog($dlg);
	initList($list);
	
	return;
}