From 1bc568047250a39dc5cd60eac49f40d36fe82201 Mon Sep 17 00:00:00 2001
From: ManoloFLTK <41016272+ManoloFLTK@users.noreply.github.com>
Date: Sat, 30 Mar 2024 17:21:11 +0100
Subject: Fix error in Fl_PostScript_File_Device::begin_page() under Pango

This fixes the bug reported in fltk.general "Fl_Printer bug?"
---
 src/drivers/PostScript/Fl_PostScript.cxx | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/drivers/PostScript/Fl_PostScript.cxx')

diff --git a/src/drivers/PostScript/Fl_PostScript.cxx b/src/drivers/PostScript/Fl_PostScript.cxx
index f5d8f8f11..bee34703d 100644
--- a/src/drivers/PostScript/Fl_PostScript.cxx
+++ b/src/drivers/PostScript/Fl_PostScript.cxx
@@ -1645,6 +1645,7 @@ int Fl_PostScript_File_Device::begin_page (void)
   char feature[200];
   snprintf(feature, 200, "%%%%PageOrientation: %s", ps->pw_ > ps->ph_ ? "Landscape" : "Portrait");
   cairo_ps_surface_dsc_comment(cairo_get_target(ps->cr()), feature);
+  cairo_save(ps->cr());
   if (ps->pw_ > ps->ph_) {
     cairo_translate(ps->cr(), 0, ps->pw_);
     cairo_rotate(ps->cr(), -M_PI/2);
@@ -1654,7 +1655,6 @@ int Fl_PostScript_File_Device::begin_page (void)
   cairo_set_source_rgb(ps->cr(), 1.0, 1.0, 1.0); // white background
   cairo_save(ps->cr());
   cairo_save(ps->cr());
-  cairo_save(ps->cr());
   ps->check_status();
 #else
   ps->page(ps->page_format_);
-- 
cgit v1.2.3