commit 1bc568047250a39dc5cd60eac49f40d36fe82201
Author:     ManoloFLTK <41016272+ManoloFLTK@users.noreply.github.com>
AuthorDate: Sat Mar 30 17:21:11 2024 +0100
Commit:     ManoloFLTK <41016272+ManoloFLTK@users.noreply.github.com>
CommitDate: Sat Mar 30 17:21:11 2024 +0100

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

diff --git src/drivers/PostScript/Fl_PostScript.cxx src/drivers/PostScript/Fl_PostScript.cxx
index f5d8f8f..bee3470 100644
--- src/drivers/PostScript/Fl_PostScript.cxx
+++ 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_);