use Tk::NoteBook;
	$notebook = $frmNotebook->NoteBook()->pack();
	my $billTab = $notebook->add('Bill', -label => 'Billing');
	my $shipTab = $notebook->add('Ship', -label => 'Shipping');
	my $acctTab = $notebook->add('Acct', -label => 'Accounting');
	my $notesTab = $notebook->add('Notes', -label => 'Notes');
	my $invoiceTab = $notebook->add('Invoicing', -label => 'Invoicing');
#put widgets into the notebook tabs...
	&customersBillAddr_ui($billTab);
	&customersShipAddr_ui($shipTab);
	&customersAccounting_ui($acctTab);
	&customersNotes_ui($notesTab);
	&customersInvoice_ui($invoiceTab);

##</code><code>##

	my $mnuTerms = $root->BrowseEntry (
		-textvariable => \$cust->{'terms'},
		-state => 'readonly',
		-choices => \@items,
	);