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

[Peter E. <Pet...@at...>]

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);