...
$lbox = $content->new_tk__listbox(-listvariable => \$cnames, -height => 5);
...