my $ent1 = $table->Entry (
                -font     => "verdana 10",
                -validate => 'key',
                # Pass button widget and a ref to $filled into callback. Need a
                # ref because we manipulate $filled in the callback
                -vcmd     => [\&onEdit, $press, \$filled],
            )