my $lbox = $parent->new_tk__listbox(-listvariable => \$cnames, -height => 5);