$images[$y] = $mainframe->Photo(-file => "$file.gif");
		my ($height, $width) = ($images[$y]->height, $images[$y]->width);
		my $yfactor = $height/$MAX_HEIGHT;
		my $xfactor = $width/$MAX_WIDTH;
		my $scalefactor = $xfactor > $yfactor ? int($xfactor) : int($yfactor);
		$scalefactor +=1;
		my $scaledimage = $mainframe->Photo("button$y");
		$scaledimage->copy($images[$y], -subsample => $scalefactor);
		$images[$y]->destroy();