Select Code to Download

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-thre
+ads-64int/Tk/After.pm line 80
 [repeat,[{},after#13,500,repeat,[\&main::__ANON__]]]
 ("after" script)

#!/usr/bin/perl

...
}

GUI();