$list = $browser->Scrolled(
	'Tree',
	'-relief' => 'sunken',
	'-border' => '2',
	'-width' => '80',
	'-height' => '30',
	'-scrollbars' => 'osoe',
	'-command' => \&edit
)->pack(
	'-side' => 'left',
	'-fill' => 'both',
	'-expand' => '1'
);

##</code><code>##

$list->add("rec$i", '-text' => "($i) $displayLine");
$list->setmode("rec$i", 'open');
$list->close("rec$i");

##</code><code>##

$list->add("rec$i.$j", '-text' => "$segments[$j]");
$list->setmode("rec$i.$j", 'open');
$list->close("rec$i.$j");
$list->hide('entry', "rec$i.$j");

##</code><code>##

$list->add("rec$i.$j.$k", '-text' => "$fields[$k]");
$list->hide('entry', "rec$i.$j.$k");