X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Fui%2Fgui%2Fpsppire-output-window.c;h=f2580b7b16ca225844caa6ecc5bb150fc8d49658;hb=d0c5a88743b6e6964133405548a0833f410b6979;hp=106b4ad0adcdf1ae5a9bc1eea5b045b026d61434;hpb=7fbfc32fc3c636959b0a25b3e76609f86519e84a;p=pspp diff --git a/src/ui/gui/psppire-output-window.c b/src/ui/gui/psppire-output-window.c index 106b4ad0ad..f2580b7b16 100644 --- a/src/ui/gui/psppire-output-window.c +++ b/src/ui/gui/psppire-output-window.c @@ -1,5 +1,5 @@ /* PSPPIRE - a graphical user interface for PSPP. - Copyright (C) 2008 Free Software Foundation + Copyright (C) 2008, 2009, 2010 Free Software Foundation This program is free software: you can redistribute it and/or modify it under the terms of the GNU General Public License as published by @@ -20,10 +20,19 @@ #include #include "helper.h" +#include #include +#include +#include +#include +#include +#include +#include +#include +#include #include -#include "about.h" +#include "help-menu.h" #include "psppire-output-window.h" @@ -38,7 +47,13 @@ #define _(msgid) gettext (msgid) #define N_(msgid) msgid - +enum + { + COL_TITLE, /* Table title. */ + COL_ADDR, /* Pointer to the table */ + COL_Y, /* Y position of top of title. */ + N_COLS + }; static void psppire_output_window_base_finalize (PsppireOutputWindowClass *, gpointer); static void psppire_output_window_base_init (PsppireOutputWindowClass *class); @@ -84,10 +99,31 @@ psppire_output_window_finalize (GObject *object) } +static void +psppire_output_window_dispose (GObject *obj) +{ + PsppireOutputWindow *viewer = PSPPIRE_OUTPUT_WINDOW (obj); + size_t i; + + for (i = 0; i < viewer->n_items; i++) + output_item_unref (viewer->items[i]); + free (viewer->items); + viewer->items = NULL; + viewer->n_items = viewer->allocated_items = 0; + + g_object_unref (viewer->print_settings); + + /* Chain up to the parent class */ + G_OBJECT_CLASS (parent_class)->dispose (obj); +} + static void psppire_output_window_class_init (PsppireOutputWindowClass *class) { + GObjectClass *object_class = G_OBJECT_CLASS (class); + parent_class = g_type_class_peek_parent (class); + object_class->dispose = psppire_output_window_dispose; } @@ -106,13 +142,221 @@ psppire_output_window_base_finalize (PsppireOutputWindowClass *class, gpointer class_data) { } + +/* Output driver class. */ +struct psppire_output_driver + { + struct output_driver driver; + PsppireOutputWindow *viewer; + struct xr_driver *xr; + }; - +static struct output_driver_class psppire_output_class; + +static struct psppire_output_driver * +psppire_output_cast (struct output_driver *driver) +{ + assert (driver->class == &psppire_output_class); + return UP_CAST (driver, struct psppire_output_driver, driver); +} + +static gboolean +expose_event_callback (GtkWidget *widget, GdkEventExpose *event, gpointer data) +{ + struct xr_rendering *r = g_object_get_data (G_OBJECT (widget), "rendering"); + cairo_t *cr; + + cr = gdk_cairo_create (widget->window); + xr_rendering_draw (r, cr); + cairo_destroy (cr); + + return TRUE; +} + +static void +psppire_output_submit (struct output_driver *this, + const struct output_item *item) +{ + struct psppire_output_driver *pod = psppire_output_cast (this); + PsppireOutputWindow *viewer; + GtkWidget *drawing_area; + struct xr_rendering *r; + struct string title; + GtkTreeStore *store; + GtkTreePath *path; + GtkTreeIter iter; + cairo_t *cr; + int tw, th; + + if (pod->viewer == NULL) + { + pod->viewer = PSPPIRE_OUTPUT_WINDOW (psppire_output_window_new ()); + gtk_widget_show_all (GTK_WIDGET (pod->viewer)); + pod->viewer->driver = pod; + } + viewer = pod->viewer; + + if (viewer->n_items >= viewer->allocated_items) + viewer->items = x2nrealloc (viewer->items, &viewer->allocated_items, + sizeof *viewer->items); + viewer->items[viewer->n_items++] = output_item_ref (item); + + if (is_text_item (item)) + { + const struct text_item *text_item = to_text_item (item); + enum text_item_type type = text_item_get_type (text_item); + const char *text = text_item_get_text (text_item); + + if (type == TEXT_ITEM_COMMAND_CLOSE) + { + viewer->in_command = false; + return; + } + else if (text[0] == '\0') + return; + } + + cr = gdk_cairo_create (GTK_WIDGET (pod->viewer)->window); + if (pod->xr == NULL) + { + const GtkStyle *style = gtk_widget_get_style (GTK_WIDGET (viewer)); + struct string_map options = STRING_MAP_INITIALIZER (options); + PangoFontDescription *font_desc; + char *font_name; + + /* Use GTK+ default font as proportional font. */ + font_name = pango_font_description_to_string (style->font_desc); + string_map_insert (&options, "prop-font", font_name); + g_free (font_name); + + /* Derived emphasized font from proportional font. */ + font_desc = pango_font_description_copy (style->font_desc); + pango_font_description_set_style (font_desc, PANGO_STYLE_ITALIC); + font_name = pango_font_description_to_string (font_desc); + string_map_insert (&options, "emph-font", font_name); + g_free (font_name); + pango_font_description_free (font_desc); + + /* Pretend that the "page" has a reasonable width and a very big length, + so that most tables can be conveniently viewed on-screen with vertical + scrolling only. (The length should not be increased very much because + it is already close enough to INT_MAX when expressed as thousands of a + point.) */ + string_map_insert (&options, "paper-size", "300x200000mm"); + string_map_insert (&options, "headers", "off"); + string_map_insert (&options, "left-margin", "0"); + string_map_insert (&options, "right-margin", "0"); + string_map_insert (&options, "top-margin", "0"); + string_map_insert (&options, "bottom-margin", "0"); + + pod->xr = xr_driver_create (cr, &options); + + string_map_destroy (&options); + } + + r = xr_rendering_create (pod->xr, item, cr); + if (r == NULL) + goto done; + + xr_rendering_measure (r, &tw, &th); + + drawing_area = gtk_drawing_area_new (); + gtk_widget_modify_bg ( + GTK_WIDGET (drawing_area), GTK_STATE_NORMAL, + >k_widget_get_style (drawing_area)->base[GTK_STATE_NORMAL]); + g_object_set_data (G_OBJECT (drawing_area), "rendering", r); + gtk_widget_set_size_request (drawing_area, tw, th); + gtk_layout_put (pod->viewer->output, drawing_area, 0, pod->viewer->y); + gtk_widget_show (drawing_area); + g_signal_connect (G_OBJECT (drawing_area), "expose_event", + G_CALLBACK (expose_event_callback), NULL); + + if (!is_text_item (item) + || text_item_get_type (to_text_item (item)) != TEXT_ITEM_SYNTAX + || !viewer->in_command) + { + store = GTK_TREE_STORE (gtk_tree_view_get_model (viewer->overview)); + + ds_init_empty (&title); + if (is_text_item (item) + && text_item_get_type (to_text_item (item)) == TEXT_ITEM_COMMAND_OPEN) + { + gtk_tree_store_append (store, &iter, NULL); + viewer->cur_command = iter; /* XXX shouldn't save a GtkTreeIter */ + viewer->in_command = true; + } + else + { + GtkTreeIter *p = viewer->in_command ? &viewer->cur_command : NULL; + gtk_tree_store_append (store, &iter, p); + } + + ds_clear (&title); + if (is_text_item (item)) + ds_put_cstr (&title, text_item_get_text (to_text_item (item))); + else if (is_table_item (item)) + { + const char *caption = table_item_get_caption (to_table_item (item)); + if (caption != NULL) + ds_put_format (&title, "Table: %s", caption); + else + ds_put_cstr (&title, "Table"); + } + else if (is_chart_item (item)) + { + const char *s = chart_item_get_title (to_chart_item (item)); + if (s != NULL) + ds_put_format (&title, "Chart: %s", s); + else + ds_put_cstr (&title, "Chart"); + } + gtk_tree_store_set (store, &iter, + COL_TITLE, ds_cstr (&title), + COL_ADDR, item, + COL_Y, viewer->y, + -1); + ds_destroy (&title); + + path = gtk_tree_model_get_path (GTK_TREE_MODEL (store), &iter); + gtk_tree_view_expand_row (viewer->overview, path, TRUE); + gtk_tree_path_free (path); + } + + if (pod->viewer->max_width < tw) + pod->viewer->max_width = tw; + pod->viewer->y += th; -static PsppireOutputWindow *the_output_viewer = NULL; + gtk_layout_set_size (pod->viewer->output, + pod->viewer->max_width, pod->viewer->y); + gtk_window_set_urgency_hint (GTK_WINDOW (pod->viewer), TRUE); +done: + cairo_destroy (cr); +} + +static struct output_driver_class psppire_output_class = + { + "PSPPIRE", /* name */ + NULL, /* destroy */ + psppire_output_submit, /* submit */ + NULL, /* flush */ + }; + +void +psppire_output_window_setup (void) +{ + struct psppire_output_driver *pod; + struct output_driver *d; + + pod = xzalloc (sizeof *pod); + d = &pod->driver; + output_driver_init (d, &psppire_output_class, "PSPPIRE", + SETTINGS_DEVICE_UNFILTERED); + output_driver_register (d); +} + int viewer_length = 16; int viewer_width = 59; @@ -125,9 +369,7 @@ on_delete (GtkWidget *w, GdkEvent *event, gpointer user_data) gtk_widget_destroy (GTK_WIDGET (ow)); - the_output_viewer = NULL; - - unlink (OUTPUT_FILE_NAME); + ow->driver->viewer = NULL; return FALSE; } @@ -139,107 +381,399 @@ cancel_urgency (GtkWindow *window, gpointer data) { gtk_window_set_urgency_hint (window, FALSE); } -/* Sets width and length according to the new size - of the output window */ + static void -on_textview_resize (GtkWidget *widget, - GtkAllocation *allocation, - gpointer user_data) +on_row_activate (GtkTreeView *overview, + GtkTreePath *path, + GtkTreeViewColumn *column, + PsppireOutputWindow *window) { - PangoContext * context ; - PangoLayout *layout ; - PangoRectangle logical; - GtkStyle *style; - gint right_margin, left_margin; - GtkTextView *text_view = GTK_TEXT_VIEW (widget); + GtkTreeModel *model; + GtkTreeIter iter; + GtkAdjustment *vadj; + GValue value = {0}; + double y, min, max; + + model = gtk_tree_view_get_model (overview); + if (!gtk_tree_model_get_iter (model, &iter, path)) + return; + + gtk_tree_model_get_value (model, &iter, COL_Y, &value); + y = g_value_get_long (&value); + g_value_unset (&value); + + vadj = gtk_layout_get_vadjustment (window->output); + min = vadj->lower; + max = vadj->upper - vadj->page_size; + if (y < min) + y = min; + else if (y > max) + y = max; + gtk_adjustment_set_value (vadj, y); +} - context = gtk_widget_create_pango_context (widget); - layout = pango_layout_new (context); +static void psppire_output_window_print (PsppireOutputWindow *window); - style = gtk_widget_get_style (widget); - pango_layout_set_font_description (layout, style->font_desc); +static GtkFileFilter * +add_filter (GtkFileChooser *chooser, const char *name, const char *pattern) +{ + GtkFileFilter *filter = gtk_file_filter_new (); + g_object_ref_sink (G_OBJECT (filter)); + gtk_file_filter_set_name (filter, name); + gtk_file_filter_add_pattern (filter, pattern); + gtk_file_chooser_add_filter (chooser, filter); + return filter; +} + +static void +export_output (PsppireOutputWindow *window, struct string_map *options, + const char *format) +{ + struct output_driver *driver; + size_t i; - /* Find the width of one character. We can use any character, because - the textview has a monospaced font */ - pango_layout_set_text (layout, "M", 1); + string_map_insert (options, "format", format); + driver = output_driver_create (options); + if (driver == NULL) + return; - pango_layout_get_extents (layout, NULL, &logical); + for (i = 0; i < window->n_items; i++) + driver->class->submit (driver, window->items[i]); + output_driver_destroy (driver); +} - left_margin = gtk_text_view_get_left_margin (text_view); - right_margin = gtk_text_view_get_right_margin (text_view); +static void +psppire_output_window_export (PsppireOutputWindow *window) +{ + gint response; + + GtkFileFilter *pdf_filter; + GtkFileFilter *html_filter; + GtkFileFilter *odt_filter; + GtkFileFilter *txt_filter; + GtkFileFilter *ps_filter; + GtkFileFilter *csv_filter; + GtkFileChooser *chooser; + GtkWidget *dialog; + + dialog = gtk_file_chooser_dialog_new (_("Export Output"), + GTK_WINDOW (window), + GTK_FILE_CHOOSER_ACTION_SAVE, + GTK_STOCK_CANCEL, GTK_RESPONSE_CANCEL, + GTK_STOCK_SAVE, GTK_RESPONSE_ACCEPT, + NULL); + chooser = GTK_FILE_CHOOSER (dialog); + + pdf_filter = add_filter (chooser, _("PDF Files (*.pdf)"), "*.pdf"); + html_filter = add_filter (chooser, _("HTML Files (*.html)"), "*.html"); + odt_filter = add_filter (chooser, _("OpenDocument Files (*.odt)"), "*.odt"); + txt_filter = add_filter (chooser, _("Text Files (*.txt)"), "*.txt"); + ps_filter = add_filter (chooser, _("PostScript Files (*.ps)"), "*.ps"); + csv_filter = add_filter (chooser, _("Comma-Separated Value Files (*.csv)"), + "*.csv"); + + gtk_file_chooser_set_do_overwrite_confirmation (chooser, TRUE); + gtk_file_chooser_set_filter (chooser, pdf_filter); + + response = gtk_dialog_run (GTK_DIALOG (dialog)); + + if ( response == GTK_RESPONSE_ACCEPT ) + { + char *filename = gtk_file_chooser_get_filename (chooser); + GtkFileFilter *filter = gtk_file_chooser_get_filter (chooser); + struct string_map options; + + g_return_if_fail (filename); + g_return_if_fail (filter); + + string_map_init (&options); + string_map_insert (&options, "output-file", filename); + if (filter == pdf_filter) + { + export_output (window, &options, "pdf"); + } + else if (filter == html_filter) + export_output (window, &options, "html"); + else if (filter == odt_filter) + export_output (window, &options, "odt"); + else if (filter == txt_filter) + { + string_map_insert (&options, "headers", "false"); + string_map_insert (&options, "paginate", "false"); + string_map_insert (&options, "squeeze", "true"); + string_map_insert (&options, "emphasis", "none"); + string_map_insert (&options, "charts", "none"); + string_map_insert (&options, "top-margin", "0"); + string_map_insert (&options, "bottom-margin", "0"); + export_output (window, &options, "txt"); + } + else if (filter == ps_filter) + export_output (window, &options, "ps"); + else if (filter == csv_filter) + export_output (window, &options, "csv"); + else + g_return_if_reached (); + + free (filename); + } - viewer_length = allocation->height / PANGO_PIXELS (logical.height); - viewer_width = (allocation->width - right_margin - left_margin) - / PANGO_PIXELS (logical.width); + g_object_unref (G_OBJECT (pdf_filter)); + g_object_unref (G_OBJECT (html_filter)); + g_object_unref (G_OBJECT (txt_filter)); + g_object_unref (G_OBJECT (ps_filter)); + g_object_unref (G_OBJECT (csv_filter)); - g_object_unref (G_OBJECT (layout)); - g_object_unref (G_OBJECT (context)); + gtk_widget_destroy (dialog); } +enum { + SELECT_FMT_NULL, + SELECT_FMT_TEXT, + SELECT_FMT_UTF8, + SELECT_FMT_HTML +}; + + static void -psppire_output_window_init (PsppireOutputWindow *window) +insert_glyph (struct string_map *map, const char *opt, gunichar glyph) +{ + char s[6] = {0,0,0,0,0,0}; + + g_unichar_to_utf8 (glyph, s); + string_map_insert (map, opt, s); +} + +struct glyph_pair { - GtkBuilder *xml = builder_new ("output-viewer.ui"); + gunichar glyph; + char opt[10]; +}; + +struct glyph_pair table[] = { + {0x250C, "box[1100]"}, + {0x2518, "box[0011]"}, + {0x2510, "box[0110]"}, + {0x2514, "box[1001]"}, + {0x2502, "box[0101]"}, + {0x2500, "box[1010]"}, + {0x2534, "box[1011]"}, + {0x252C, "box[1110]"}, + {0x2501, "box[2020]"}, + {0x2503, "box[0202]"}, + {0x253F, "box[2121]"}, + {0x2542, "box[1212]"}, + {0x254B, "box[2222]"}, + {0x2525, "box[0121]"}, + {0x2530, "box[1210]"}, + {0x2538, "box[1012]"}, + {0x251D, "box[2101]"}, + {0x2537, "box[2021]"}, + {0x252F, "box[2120]"} +}; - GtkWidget *box = gtk_vbox_new (FALSE, 0); - GtkWidget *sw = get_widget_assert (xml, "scrolledwindow1"); +static void +utf8_box_chars (struct string_map *map) +{ + int i; + for (i = 0; i < sizeof (table) / sizeof (table[0]); ++i) + { + const struct glyph_pair *p = &table[i]; + insert_glyph (map, p->opt, p->glyph); + } +} - GtkWidget *menubar = get_widget_assert (xml, "menubar1"); - window->textview = get_widget_assert (xml, "output-viewer-textview"); +static void +clipboard_get_cb (GtkClipboard *clipboard, + GtkSelectionData *selection_data, + guint info, + gpointer data) +{ + PsppireOutputWindow *window = data; - gtk_container_add (GTK_CONTAINER (window), box); + gsize length; + gchar *text = NULL; + struct output_driver *driver = NULL; + char *filename = NULL; + struct string_map options; + GtkTreeSelection *sel = gtk_tree_view_get_selection (window->overview); + GtkTreeModel *model = gtk_tree_view_get_model (window->overview); - g_object_ref (menubar); - gtk_widget_unparent (menubar); + GList *rows = gtk_tree_selection_get_selected_rows (sel, &model); + GList *n = rows; - g_object_ref (sw); - gtk_widget_unparent (sw); + if ( n == NULL) + return; + string_map_init (&options); + filename = tempnam (NULL, NULL); + string_map_insert (&options, "output-file", filename); - gtk_box_pack_start (GTK_BOX (box), menubar, FALSE, TRUE, 0); - gtk_box_pack_start (GTK_BOX (box), sw, TRUE, TRUE, 0); + switch (info) + { + case SELECT_FMT_UTF8: + utf8_box_chars (&options); + /* fall-through */ + case SELECT_FMT_TEXT: + string_map_insert (&options, "format", "txt"); + break; - gtk_widget_show_all (box); + case SELECT_FMT_HTML: + string_map_insert (&options, "format", "html"); + break; - connect_help (xml); + default: + goto finish; + break; + } - window->buffer = gtk_text_view_get_buffer (GTK_TEXT_VIEW (window->textview)); + driver = output_driver_create (&options); + if (driver == NULL) + goto finish; - g_signal_connect (window, - "focus-in-event", - G_CALLBACK (cancel_urgency), - NULL); + while (n) + { + GtkTreePath *path = n->data ; + GtkTreeIter iter; + struct output_item *item ; + + gtk_tree_model_get_iter (model, &iter, path); + gtk_tree_model_get (model, &iter, COL_ADDR, &item, -1); + driver->class->submit (driver, item); + + n = n->next; + } + + if ( driver->class->flush) + driver->class->flush (driver); + + if ( g_file_get_contents (filename, &text, &length, NULL) ) + { + gtk_selection_data_set (selection_data, selection_data->target, + 8, + (const guchar *) text, length); + } + + finish: + + output_driver_destroy (driver); + g_free (text); + + unlink (filename); + free (filename); + + g_list_free (rows); +} + +static void +clipboard_clear_cb (GtkClipboard *clipboard, + gpointer data) +{ +} + +static const GtkTargetEntry targets[] = { + + { "STRING", 0, SELECT_FMT_TEXT }, + { "TEXT", 0, SELECT_FMT_TEXT }, + { "COMPOUND_TEXT", 0, SELECT_FMT_TEXT }, + { "text/plain", 0, SELECT_FMT_TEXT }, + + { "UTF8_STRING", 0, SELECT_FMT_UTF8 }, + { "text/plain;charset=utf-8", 0, SELECT_FMT_UTF8 }, + + { "text/html", 0, SELECT_FMT_HTML } +}; + +static void +on_copy (PsppireOutputWindow *window) +{ { - /* Output uses ascii characters for tabular material. - So we need a monospaced font otherwise it'll look silly */ - PangoFontDescription *font_desc = - pango_font_description_from_string ("monospace"); + GtkClipboard *clipboard = + gtk_widget_get_clipboard (GTK_WIDGET (window), + GDK_SELECTION_CLIPBOARD); - gtk_widget_modify_font (window->textview, font_desc); - pango_font_description_free (font_desc); + if (!gtk_clipboard_set_with_data (clipboard, targets, + G_N_ELEMENTS (targets), + clipboard_get_cb, clipboard_clear_cb, + window)) + + clipboard_clear_cb (clipboard, window); } +} + +static void +on_selection_change (GtkTreeSelection *sel, GtkAction *copy_action) +{ + /* The Copy action is available only if there is something selected */ + gtk_action_set_sensitive (copy_action, gtk_tree_selection_count_selected_rows (sel) > 0); +} - g_signal_connect (window->textview, "size-allocate", - G_CALLBACK (on_textview_resize), NULL); +static void +psppire_output_window_init (PsppireOutputWindow *window) +{ + GtkTreeViewColumn *column; + GtkCellRenderer *renderer; + GtkBuilder *xml; + GtkAction *copy_action; + GtkTreeSelection *sel; - window->fp = NULL; + xml = builder_new ("output-viewer.ui"); - g_signal_connect (get_action_assert (xml,"help_about"), - "activate", - G_CALLBACK (about_new), - window); + copy_action = get_action_assert (xml, "edit_copy"); - g_signal_connect (get_action_assert (xml,"help_reference"), - "activate", - G_CALLBACK (reference_manual), + gtk_action_set_sensitive (copy_action, FALSE); + + g_signal_connect_swapped (copy_action, "activate", G_CALLBACK (on_copy), window); + + gtk_widget_reparent (get_widget_assert (xml, "vbox1"), GTK_WIDGET (window)); + + window->output = GTK_LAYOUT (get_widget_assert (xml, "output")); + window->y = 0; + + window->overview = GTK_TREE_VIEW (get_widget_assert (xml, "overview")); + + sel = gtk_tree_view_get_selection (window->overview); + + gtk_tree_selection_set_mode (sel, GTK_SELECTION_MULTIPLE); + + g_signal_connect (sel, "changed", G_CALLBACK (on_selection_change), copy_action); + + gtk_tree_view_set_model (window->overview, + GTK_TREE_MODEL (gtk_tree_store_new ( + N_COLS, + G_TYPE_STRING, /* COL_TITLE */ + G_TYPE_POINTER, /* COL_ADDR */ + G_TYPE_LONG))); /* COL_Y */ + + window->in_command = false; + + window->items = NULL; + window->n_items = window->allocated_items = 0; + + column = gtk_tree_view_column_new (); + gtk_tree_view_append_column (GTK_TREE_VIEW (window->overview), column); + renderer = gtk_cell_renderer_text_new (); + gtk_tree_view_column_pack_start (column, renderer, TRUE); + gtk_tree_view_column_add_attribute (column, renderer, "text", COL_TITLE); + + g_signal_connect (GTK_TREE_VIEW (window->overview), + "row-activated", G_CALLBACK (on_row_activate), window); + + gtk_widget_modify_bg (GTK_WIDGET (window->output), GTK_STATE_NORMAL, + >k_widget_get_style (GTK_WIDGET (window->output))->base[GTK_STATE_NORMAL]); + + connect_help (xml); + + g_signal_connect (window, + "focus-in-event", + G_CALLBACK (cancel_urgency), NULL); g_signal_connect (get_action_assert (xml,"windows_minimise-all"), @@ -249,11 +783,19 @@ psppire_output_window_init (PsppireOutputWindow *window) { GtkUIManager *uim = GTK_UI_MANAGER (get_object_assert (xml, "uimanager1", GTK_TYPE_UI_MANAGER)); + merge_help_menu (uim); PSPPIRE_WINDOW (window)->menu = - GTK_MENU_SHELL (gtk_ui_manager_get_widget (uim,"/ui/menubar1/windows_menuitem/windows_minimise-all")->parent); + GTK_MENU_SHELL (gtk_ui_manager_get_widget (uim,"/ui/menubar/windows_menuitem/windows_minimise-all")->parent); } + g_signal_connect_swapped (get_action_assert (xml, "file_export"), "activate", + G_CALLBACK (psppire_output_window_export), window); + + + g_signal_connect_swapped (get_action_assert (xml, "file_print"), "activate", + G_CALLBACK (psppire_output_window_print), window); + g_object_unref (xml); g_signal_connect (window, "delete-event", @@ -270,107 +812,130 @@ psppire_output_window_new (void) NULL)); } -static void reload_viewer (PsppireOutputWindow *ow); -void -psppire_output_window_reload (void) + +static void +create_xr_print_driver (GtkPrintContext *context, PsppireOutputWindow *window) { - struct stat buf; - - /* If there is no output, then don't do anything */ - if (0 != stat (OUTPUT_FILE_NAME, &buf)) - return ; + struct string_map options; + GtkPageSetup *page_setup; + double width, height; + double left_margin; + double right_margin; + double top_margin; + double bottom_margin; + + page_setup = gtk_print_context_get_page_setup (context); + width = gtk_page_setup_get_paper_width (page_setup, GTK_UNIT_MM); + height = gtk_page_setup_get_paper_height (page_setup, GTK_UNIT_MM); + left_margin = gtk_page_setup_get_left_margin (page_setup, GTK_UNIT_MM); + right_margin = gtk_page_setup_get_right_margin (page_setup, GTK_UNIT_MM); + top_margin = gtk_page_setup_get_top_margin (page_setup, GTK_UNIT_MM); + bottom_margin = gtk_page_setup_get_bottom_margin (page_setup, GTK_UNIT_MM); + + string_map_init (&options); + string_map_insert_nocopy (&options, xstrdup ("paper-size"), + xasprintf("%.2fx%.2fmm", width, height)); + string_map_insert_nocopy (&options, xstrdup ("left-margin"), + xasprintf ("%.2fmm", left_margin)); + string_map_insert_nocopy (&options, xstrdup ("right-margin"), + xasprintf ("%.2fmm", right_margin)); + string_map_insert_nocopy (&options, xstrdup ("top-margin"), + xasprintf ("%.2fmm", top_margin)); + string_map_insert_nocopy (&options, xstrdup ("bottom-margin"), + xasprintf ("%.2fmm", bottom_margin)); + + window->print_xrd = + xr_driver_create (gtk_print_context_get_cairo_context (context), &options); + + string_map_destroy (&options); +} - if ( NULL == the_output_viewer ) +static gboolean +paginate (GtkPrintOperation *operation, + GtkPrintContext *context, + PsppireOutputWindow *window) +{ + if ( window->print_item < window->n_items ) { - the_output_viewer = PSPPIRE_OUTPUT_WINDOW (psppire_output_window_new ()); - gtk_widget_show (GTK_WIDGET (the_output_viewer)); + xr_driver_output_item (window->print_xrd, window->items[window->print_item++]); + if (xr_driver_need_new_page (window->print_xrd)) + { + xr_driver_next_page (window->print_xrd, NULL); + window->print_n_pages ++; + } + return FALSE; + } + else + { + gtk_print_operation_set_n_pages (operation, window->print_n_pages); + window->print_item = 0; + create_xr_print_driver (context, window); + return TRUE; } - - reload_viewer (the_output_viewer); - } - static void -reload_viewer (PsppireOutputWindow *ow) +begin_print (GtkPrintOperation *operation, + GtkPrintContext *context, + PsppireOutputWindow *window) { - GtkTextIter end_iter; - GtkTextMark *mark ; - - char *line = NULL; + create_xr_print_driver (context, window); - gboolean chars_inserted = FALSE; + window->print_item = 0; + window->print_n_pages = 1; +} - gtk_text_buffer_get_end_iter (ow->buffer, &end_iter); +static void +end_print (GtkPrintOperation *operation, + GtkPrintContext *context, + PsppireOutputWindow *window) +{ + xr_driver_destroy (window->print_xrd); +} - line = xrealloc (line, sizeof (char) * (viewer_width + 1)); - mark = gtk_text_buffer_create_mark (ow->buffer, NULL, &end_iter, TRUE); +static void +draw_page (GtkPrintOperation *operation, + GtkPrintContext *context, + gint page_number, + PsppireOutputWindow *window) +{ + xr_driver_next_page (window->print_xrd, gtk_print_context_get_cairo_context (context)); + while ( window->print_item < window->n_items) + { + xr_driver_output_item (window->print_xrd, window->items [window->print_item++]); + if ( xr_driver_need_new_page (window->print_xrd) ) + break; + } +} -#ifdef __CYGWIN__ - /* - Apparently Windoze is not capabale of writing to a file whilst - another (or the same) process is reading from it. Therefore, we - must close the file after reading it, and clear the entire buffer - before writing to it. - This will be slower for large buffers, but should work - (in so far as anything ever works on windows). - */ - { - GtkTextIter start_iter; - FILE *fp = fopen (OUTPUT_FILE_NAME, "r"); - if ( !fp) - { - g_print ("Cannot open %s\n", OUTPUT_FILE_NAME); - return; - } - /* Delete all the entire buffer */ - gtk_text_buffer_get_start_iter (ov->buffer, &start_iter); - gtk_text_buffer_delete (ov->buffer, &start_iter, &end_iter); +static void +psppire_output_window_print (PsppireOutputWindow *window) +{ + GtkPrintOperationResult res; + GtkPrintOperation *print = gtk_print_operation_new (); - gtk_text_buffer_get_start_iter (ov->buffer, &start_iter); - /* Read in the next lot of text */ - while (fgets (line, viewer_width + 1, fp) != NULL) - { - chars_inserted = TRUE; - gtk_text_buffer_insert (ov->buffer, &start_iter, line, -1); - } + if (window->print_settings != NULL) + gtk_print_operation_set_print_settings (print, window->print_settings); - fclose (fp); - } -#else - { - if ( ow->fp == NULL) - { - ow->fp = fopen (OUTPUT_FILE_NAME, "r"); - if ( ow->fp == NULL) - { - g_print ("Cannot open %s\n", OUTPUT_FILE_NAME); - return; - } - } - - /* Read in the next lot of text */ - while (fgets (line, viewer_width + 1, ow->fp) != NULL) - { - chars_inserted = TRUE; - gtk_text_buffer_insert (ow->buffer, &end_iter, line, -1); - } - } -#endif + g_signal_connect (print, "begin_print", G_CALLBACK (begin_print), window); + g_signal_connect (print, "end_print", G_CALLBACK (end_print), window); + g_signal_connect (print, "paginate", G_CALLBACK (paginate), window); + g_signal_connect (print, "draw_page", G_CALLBACK (draw_page), window); - /* Scroll to where the start of this lot of text begins */ - gtk_text_view_scroll_to_mark (GTK_TEXT_VIEW (ow->textview), - mark, - 0.1, TRUE, 0.0, 0.0); + res = gtk_print_operation_run (print, GTK_PRINT_OPERATION_ACTION_PRINT_DIALOG, + GTK_WINDOW (window), NULL); + if (res == GTK_PRINT_OPERATION_RESULT_APPLY) + { + if (window->print_settings != NULL) + g_object_unref (window->print_settings); + window->print_settings = g_object_ref (gtk_print_operation_get_print_settings (print)); + + } - if ( chars_inserted ) - gtk_window_set_urgency_hint ( GTK_WINDOW (ow), TRUE); + g_object_unref (print); } - - -