Entry(-validatecommand => \&func,
        -validate => 'all',
        -textvariable => \$scalar
)->pack();