fdo#62719: Set more relaxed clipping region.

It actually is so that the line is in the output PostScript; and it is even
visible sometimes when you zoom the file (like, when you are zooming
continuously, the line is appearing and disappearing).

I guess it is a corner case of the clipping, highly dependent on the exact
settings, so let's be more relaxed and clip a bit less (as we already do for
right/bottom).

Hopefully some other functionality does not depend on this exact clip
setting ;-)

Change-Id: I7080ad3ff730408296f9e9dec7a0b74ac4afca7d

1 files changed, 3 insertions, 3 deletions

diff --git a/vcl/generic/print/common_gfx.cxx b/vcl/generic/print/common_gfx.cxx
index 7ff3a11a4d38..aa6e7c1c513e 100644
--- a/vcl/generic/print/common_gfx.cxx
+++ b/vcl/generic/print/common_gfx.cxx
@@ -295,10 +295,10 @@ PrinterGfx::EndSetClipRegion()
         if( ! JoinVerticalClipRectangles( it, aOldPoint, nColumn ) )
         {
             // failed, so it is a single rectangle
-            PSBinMoveTo (it->TopLeft(),                          aOldPoint, nColumn );
-            PSBinLineTo (Point( it->Left(), it->Bottom()+1 ),    aOldPoint, nColumn );
+            PSBinMoveTo (Point( it->Left()-1, it->Top()-1),      aOldPoint, nColumn );
+            PSBinLineTo (Point( it->Left()-1, it->Bottom()+1 ),  aOldPoint, nColumn );
             PSBinLineTo (Point( it->Right()+1, it->Bottom()+1 ), aOldPoint, nColumn );
-            PSBinLineTo (Point( it->Right()+1, it->Top() ),      aOldPoint, nColumn );
+            PSBinLineTo (Point( it->Right()+1, it->Top()-1 ),    aOldPoint, nColumn );
             ++it;
         }
     }