use strict;
use Tk;
my $xVConsSflEmbMax0 = 1.0;
my $xVConsSflEmbMax = $xVConsSflEmbMax0;
    my $emb1Entry = $embCanvas->Entry(
      -textvariable     => \$xVConsSflEmbMax,
      -width            => 3,
      -validate         => 'focusout',
      -validatecommand  => sub {$_[0] =~ /^\d*\.?\d+$/},
      -invalidcommand   => sub {$xVConsSflEmbMax=$xVConsSflEmbMax0},
    );