#!/Perl/bin/perl

use strict;
use warnings;
use Tk;
use Tk::Scale;
use Tk::Balloon;

my $mw = Tk::MainWindow->new(-width=>150,-height=>150,);
$mw->gridPropagate(0);
$mw->packPropagate(0);

my $wert = 0;

my $e = $mw->Entry(-textvariable=>\$wert);

my $s = $mw->Scale(
    -variable => \$wert,
    -from => 0,
    -to => 100,
    -length => 50,
    -showvalue => 0,
    -sliderlength => 6,
    -sliderrelief => 'raised',
    -orient => 'horizontal',
);

$e->configure(
    -validate => 'all',
    -validatecommand => sub { 
        if( $wert =~ m/\D/g ) {
            $wert =~ s/\D//g;
            # invalid-command kommt hier zum Zuge
            return 0;
        }
        return 1;
    },    
);



$e->pack();
$s->pack();

Tk::MainLoop;