[perl-win32-gui-users] Progress Bar question

[Peter Eisengrein]

Anyone know what the maximum allowed value is for the ->SetRange($min,$max)
on Win32::GUI::AddProgressBar? I am trying to have it be set dynamically
based upon a file size and it would appear that if a file is too big the
$max gets set to some default.

for example: 



my $ProgressWindow = new Win32::GUI::DialogBox(
        -name   => "ProgressWindow",
        -left   => 300,
        -top    => 300,
        -width  => 400,
        -height => 100,
        -title  => "Loading file...",
);

$ProgressWindow->AddProgressBar(
        -name   => "PB",
        -left   => 20,
        -top    => 25,
        -width  => 350,
        -height => 20,
        -smooth => 1,
);


$max = ((stat($file))[7] / 80);   ### assuming 80 chars per line
$ProgressWindow->PB->SetRange(0,$max);