From: Ben Pfaff <blp@gnu.org>
Date: Sun, 21 Jun 2009 03:29:08 +0000 (-0700)
Subject: output: Make GUI output window scrollable.
X-Git-Tag: v0.7.3~30
X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=2a08758741107d4627549e87c6af9537cd403c1d;p=pspp-builds.git

output: Make GUI output window scrollable.
---

diff --git a/src/ui/gui/psppire-output-window.c b/src/ui/gui/psppire-output-window.c
index 510d1c9e..ea713c4f 100644
--- a/src/ui/gui/psppire-output-window.c
+++ b/src/ui/gui/psppire-output-window.c
@@ -178,7 +178,12 @@ psppire_output_submit (struct outp_driver *this, struct som_entity *entity)
       driver->class->close_driver (driver);
       outp_free_driver (driver);
 
+      if (tw / 1024 > the_output_viewer->max_width)
+        the_output_viewer->max_width = tw / 1024;
       the_output_viewer->y += th / 1024;
+
+      gtk_layout_set_size (the_output_viewer->output,
+                           the_output_viewer->max_width, the_output_viewer->y);
     }
 
   gtk_window_set_urgency_hint (GTK_WINDOW (the_output_viewer), TRUE);
diff --git a/src/ui/gui/psppire-output-window.h b/src/ui/gui/psppire-output-window.h
index 7b62be20..5cb2528e 100644
--- a/src/ui/gui/psppire-output-window.h
+++ b/src/ui/gui/psppire-output-window.h
@@ -52,6 +52,7 @@ struct _PsppireOutputWindow
 
   /* <private> */
   GtkLayout *output;
+  int max_width;
   int y;
 };