Index: /extensions/pLoader/trunk/src/Uploader/GUI/Frame.pm
===================================================================
--- /extensions/pLoader/trunk/src/Uploader/GUI/Frame.pm	(revision 5976)
+++ /extensions/pLoader/trunk/src/Uploader/GUI/Frame.pm	(revision 5977)
@@ -552,5 +552,6 @@
             $main::CHUNK_SIZE => { label => gettext("Transfert chunk size") },
             $main::GS_CHUNK_SIZE => {
-                value	=> sub { wxTheApp->chunk_size(@_) },
+                value   => sub { wxTheApp->chunk_size(@_) },
+                validator => Wx::Perl::TextValidator->new( '\d' ) 
             },
             $main::LANGUAGE => { label => gettext("Choose a language") },
Index: /extensions/pLoader/trunk/src/Uploader/GUI/wxApp.pm
===================================================================
--- /extensions/pLoader/trunk/src/Uploader/GUI/wxApp.pm	(revision 5567)
+++ /extensions/pLoader/trunk/src/Uploader/GUI/wxApp.pm	(revision 5977)
@@ -694,5 +694,5 @@
                 http_password  => $self->http_password,
                 branding       => $self->branding,
-                chunk_size     => $self->chunk_size,
+                chunk_size     => sub { $self->chunk_size(@_) },
                 use_offline    => $self->use_offline,
                 version        => $self->version,
Index: /extensions/pLoader/trunk/src/Uploader/PWG/WebServices.pm
===================================================================
--- /extensions/pLoader/trunk/src/Uploader/PWG/WebServices.pm	(revision 5020)
+++ /extensions/pLoader/trunk/src/Uploader/PWG/WebServices.pm	(revision 5977)
@@ -629,5 +629,5 @@
 
     my $content_length = length($content);
-    my $nb_chunks = ceil($content_length / $self->chunk_size);
+    my $nb_chunks = ceil($content_length / $self->chunk_size->());
 
     my $chunk_pos = 0;
@@ -640,7 +640,7 @@
             $content,
             $chunk_pos,
-            $self->chunk_size
+            $self->chunk_size->()
         );
-        $chunk_pos += $self->chunk_size;
+        $chunk_pos += $self->chunk_size->();
         #print "pwg.images.addChunk\n";
         my $data = encode_base64($chunk);