1 /* PSPPIRE - a graphical user interface for PSPP.
2 Copyright (C) 2007 Free Software Foundation, Inc.
4 This program is free software: you can redistribute it and/or modify
5 it under the terms of the GNU General Public License as published by
6 the Free Software Foundation, either version 3 of the License, or
7 (at your option) any later version.
9 This program is distributed in the hope that it will be useful,
10 but WITHOUT ANY WARRANTY; without even the implied warranty of
11 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
12 GNU General Public License for more details.
14 You should have received a copy of the GNU General Public License
15 along with this program. If not, see <http://www.gnu.org/licenses/>. */
19 #include "window-manager.h"
20 #include "output-viewer.h"
24 #include <sys/types.h>
28 #include <glade/glade.h>
33 struct editor_window parent;
34 GtkTextBuffer *buffer; /* The buffer which contains the text */
36 FILE *fp; /* The file it's viewing */
41 cancel_urgency (GtkWindow *window, gpointer data)
43 gtk_window_set_urgency_hint (window, FALSE);
47 static struct output_viewer *the_output_viewer = NULL;
49 int viewer_length = -1;
50 int viewer_width = -1;
52 /* Callback for the "delete" action (clicking the x on the top right
53 hand corner of the window) */
55 on_delete (GtkWidget *w, GdkEvent *event, gpointer user_data)
57 struct output_viewer *ov = user_data;
61 the_output_viewer = NULL;
63 unlink (OUTPUT_FILE_NAME);
69 /* Sets width and length according to the new size
70 of the output window */
72 on_textview_resize (GtkWidget *widget,
73 GtkAllocation *allocation,
76 PangoContext * context ;
78 PangoRectangle logical;
80 gint right_margin, left_margin;
81 GtkTextView *text_view = GTK_TEXT_VIEW (widget);
83 context = gtk_widget_create_pango_context (widget);
84 layout = pango_layout_new (context);
86 style = gtk_widget_get_style (widget);
88 pango_layout_set_font_description (layout, style->font_desc);
90 /* Find the width of one character. We can use any character, because
91 the textview has a monospaced font */
92 pango_layout_set_text (layout, "M", 1);
94 pango_layout_get_extents (layout, NULL, &logical);
96 left_margin = gtk_text_view_get_left_margin (text_view);
97 right_margin = gtk_text_view_get_right_margin (text_view);
99 viewer_length = allocation->height / PANGO_PIXELS (logical.height);
100 viewer_width = (allocation->width - right_margin - left_margin)
101 / PANGO_PIXELS (logical.width);
103 g_object_unref (G_OBJECT (layout));
104 g_object_unref (G_OBJECT (context));
110 Create a new output viewer
112 struct output_viewer *
113 new_output_viewer (void)
115 GladeXML *xml = XML_NEW ("output-viewer.glade");
117 struct output_viewer *ov ;
118 struct editor_window *e;
122 ov = g_malloc (sizeof (*ov));
124 e = (struct editor_window *)ov;
127 e->window = GTK_WINDOW (get_widget_assert (xml, "output-viewer-window"));
128 ov->textview = get_widget_assert (xml, "output-viewer-textview");
129 ov->buffer = gtk_text_view_get_buffer (GTK_TEXT_VIEW (ov->textview));
131 g_signal_connect (e->window,
133 G_CALLBACK (cancel_urgency),
137 /* Output uses ascii characters for tabular material.
138 So we need a monospaced font otherwise it'll look silly */
139 PangoFontDescription *font_desc =
140 pango_font_description_from_string ("monospace");
142 gtk_widget_modify_font (ov->textview, font_desc);
143 pango_font_description_free (font_desc);
146 g_signal_connect (ov->textview, "size-allocate",
147 G_CALLBACK (on_textview_resize), NULL);
151 g_signal_connect (get_widget_assert (xml,"help_about"),
153 G_CALLBACK (about_new),
156 g_signal_connect (get_widget_assert (xml,"help_reference"),
158 G_CALLBACK (reference_manual),
161 g_signal_connect (get_widget_assert (xml,"windows_minimise-all"),
163 G_CALLBACK (minimise_all_windows),
166 g_object_unref (xml);
169 g_signal_connect (e->window, "delete-event",
170 G_CALLBACK (on_delete), ov);
177 reload_the_viewer (void)
181 /* If there is no output, then don't do anything */
182 if (0 != stat (OUTPUT_FILE_NAME, &buf))
185 if ( NULL == the_output_viewer )
188 (struct output_viewer *) window_create (WINDOW_OUTPUT, NULL);
191 reload_viewer (the_output_viewer);
196 reload_viewer (struct output_viewer *ov)
198 GtkTextIter end_iter;
199 char line[OUTPUT_LINE_WIDTH];
201 gboolean chars_inserted = FALSE;
206 ov->fp = fopen (OUTPUT_FILE_NAME, "r");
209 g_print ("Cannot open %s\n", OUTPUT_FILE_NAME);
214 gtk_text_buffer_get_end_iter (ov->buffer, &end_iter);
216 mark = gtk_text_buffer_create_mark (ov->buffer, NULL, &end_iter, TRUE);
218 /* Read in the next lot of text */
219 while (fgets (line, OUTPUT_LINE_WIDTH, ov->fp) != NULL)
221 chars_inserted = TRUE;
222 gtk_text_buffer_insert (ov->buffer, &end_iter, line, -1);
225 /* Scroll to where the start of this lot of text begins */
226 gtk_text_view_scroll_to_mark (GTK_TEXT_VIEW (ov->textview),
228 0.1, TRUE, 0.0, 0.0);
231 if ( chars_inserted )
232 gtk_window_set_urgency_hint ( ((struct editor_window *)ov)->window, TRUE);