Tk::Error: bad window path name "all" at ./test.pl line 22.
 Tk callback for scale
 Tk::After::repeat at /usr/lib/perl5/vendor_perl/5.22/i686-cygwin-threads-64int/Tk/After.pm line 80
 [repeat,[{},after#13,500,repeat,[\&main::__ANON__]]]
 ("after" script)

##</code><code>##

#!/usr/bin/perl

use warnings;
use Tk;


sub GUI() {
    $fenetre  = new MainWindow(
	-title      => 'test',
	);
    $fenetre->minsize( 200, 70 );
    
   
    $cadre_voie = $fenetre->Frame()->pack(-fill => 'both', -expand => 1);        
    $voie = $cadre_voie->Scrolled(
	'Canvas',
	-background  => '#A0A0A0',
	);
    $voie->pack(-fill => 'both', -expand => 1);
    
    $cadre_voie->Scale(-orient=>'horizontal')-> pack();
    $fenetre->repeat( 500, sub { $voie->scale('all',0,0,1,1); } );
    MainLoop;    # Obligatoire    
}

GUI();