pintos-os.org Git - pspp/blob - src/ui/gui/psppire-output-window.c

   1 /* PSPPIRE - a graphical user interface for PSPP.
   2    Copyright (C) 2008, 2009, 2010, 2011, 2012, 2013, 2014, 2016  Free Software Foundation
   3
   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.
   8
   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.
  13
  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/>. */
  16
  17 #include <config.h>
  18
  19 #include "ui/gui/psppire-output-window.h"
  20
  21 #include <errno.h>
  22 #include <gtk/gtk.h>
  23 #include <stdlib.h>
  24 #include <sys/stat.h>
  25 #include <sys/types.h>
  26 #include <unistd.h>
  27
  28 #include "libpspp/cast.h"
  29 #include "libpspp/message.h"
  30 #include "libpspp/string-map.h"
  31 #include "output/chart-item.h"
  32 #include "output/driver-provider.h"
  33 #include "output/message-item.h"
  34 #include "output/output-item.h"
  35 #include "output/table-item.h"
  36 #include "output/text-item.h"
  37 #include "ui/gui/help-menu.h"
  38 #include "ui/gui/builder-wrapper.h"
  39 #include "ui/gui/psppire-output-view.h"
  40 #include "ui/gui/psppire-conf.h"
  41 #include "ui/gui/windows-menu.h"
  42
  43 #include "gl/xalloc.h"
  44
  45 #include "helper.h"
  46
  47 #include <gettext.h>
  48 #define _(msgid) gettext (msgid)
  49 #define N_(msgid) msgid
  50
  51 static void psppire_output_window_class_init    (PsppireOutputWindowClass *class);
  52 static void psppire_output_window_init          (PsppireOutputWindow      *window);
  53
  54 GType
  55 psppire_output_window_get_type (void)
  56 {
  57   static GType psppire_output_window_type = 0;
  58
  59   if (!psppire_output_window_type)
  60     {
  61       static const GTypeInfo psppire_output_window_info =
  62       {
  63         sizeof (PsppireOutputWindowClass),
  64         (GBaseInitFunc) NULL,
  65         (GBaseFinalizeFunc) NULL,
  66         (GClassInitFunc)psppire_output_window_class_init,
  67         (GClassFinalizeFunc) NULL,
  68         NULL,
  69         sizeof (PsppireOutputWindow),
  70         0,
  71         (GInstanceInitFunc) psppire_output_window_init,
  72       };
  73
  74       psppire_output_window_type =
  75         g_type_register_static (PSPPIRE_TYPE_WINDOW, "PsppireOutputWindow",
  76                                 &psppire_output_window_info, 0);
  77     }
  78
  79   return psppire_output_window_type;
  80 }
  81
  82 static GObjectClass *parent_class;
  83
  84 static void
  85 psppire_output_window_finalize (GObject *object)
  86 {
  87   if (G_OBJECT_CLASS (parent_class)->finalize)
  88     (*G_OBJECT_CLASS (parent_class)->finalize) (object);
  89 }
  90
  91
  92 static void
  93 psppire_output_window_dispose (GObject *obj)
  94 {
  95   PsppireOutputWindow *window = PSPPIRE_OUTPUT_WINDOW (obj);
  96
  97   if (window->dispose_has_run)
  98     return;
  99
 100   window->dispose_has_run = TRUE;
 101   psppire_output_view_destroy (window->view);
 102   window->view = NULL;
 103
 104   /* Chain up to the parent class */
 105   G_OBJECT_CLASS (parent_class)->dispose (obj);
 106 }
 107
 108 static void
 109 psppire_output_window_class_init (PsppireOutputWindowClass *class)
 110 {
 111   GObjectClass *object_class = G_OBJECT_CLASS (class);
 112
 113   parent_class = g_type_class_peek_parent (class);
 114   object_class->dispose = psppire_output_window_dispose;
 115
 116   object_class->finalize = psppire_output_window_finalize;
 117 }
 118 \f
 119 /* Output driver class. */
 120
 121 struct psppire_output_driver
 122   {
 123     struct output_driver driver;
 124     PsppireOutputWindow *window;
 125   };
 126
 127 static struct output_driver_class psppire_output_class;
 128
 129 static struct psppire_output_driver *
 130 psppire_output_cast (struct output_driver *driver)
 131 {
 132   assert (driver->class == &psppire_output_class);
 133   return UP_CAST (driver, struct psppire_output_driver, driver);
 134 }
 135
 136 static void
 137 psppire_output_submit (struct output_driver *this,
 138                        const struct output_item *item)
 139 {
 140   struct psppire_output_driver *pod = psppire_output_cast (this);
 141   PsppireOutputWindow *window;
 142   bool new;
 143
 144   new = pod->window == NULL;
 145   if (new)
 146     {
 147       pod->window = PSPPIRE_OUTPUT_WINDOW (psppire_output_window_new ());
 148       GApplication *app = g_application_get_default ();
 149       gtk_application_add_window (GTK_APPLICATION (app),
 150                                   GTK_WINDOW (pod->window));
 151
 152       pod->window->driver = pod;
 153     }
 154   window = pod->window;
 155
 156   psppire_output_view_put (window->view, item);
 157
 158   if (new)
 159     {
 160       /* We could have called this earlier in the previous "if (new)" block,
 161          but doing it here finds, in a plain GTK+ environment, a bug that
 162          otherwise only showed up on an Ubuntu Unity desktop.  See bug
 163          #43362. */
 164       gtk_widget_show_all (GTK_WIDGET (pod->window));
 165     }
 166
 167   PsppireConf *conf = psppire_conf_new ();
 168   {
 169     gboolean status = true;
 170     psppire_conf_get_boolean (conf, "OutputWindowAction", "alert",
 171                               &status);
 172     gtk_window_set_urgency_hint (GTK_WINDOW (pod->window), status);
 173   }
 174
 175   {
 176     gboolean status ;
 177     if (psppire_conf_get_boolean (conf, "OutputWindowAction", "maximize",
 178                                   &status) && status)
 179       gtk_window_maximize (GTK_WINDOW (pod->window));
 180   }
 181
 182   {
 183     gboolean status ;
 184     if (psppire_conf_get_boolean (conf, "OutputWindowAction", "raise",
 185                                   &status) && status)
 186       gtk_window_present (GTK_WINDOW (pod->window));
 187   }
 188 }
 189
 190 static struct output_driver_class psppire_output_class =
 191   {
 192     "PSPPIRE",                  /* name */
 193     NULL,                       /* destroy */
 194     psppire_output_submit,      /* submit */
 195     NULL,                       /* flush */
 196   };
 197
 198 void
 199 psppire_output_window_setup (void)
 200 {
 201   struct psppire_output_driver *pod;
 202   struct output_driver *d;
 203
 204   pod = xzalloc (sizeof *pod);
 205   d = &pod->driver;
 206   output_driver_init (d, &psppire_output_class, "PSPPIRE",
 207                       SETTINGS_DEVICE_UNFILTERED);
 208   output_driver_register (d);
 209 }
 210
 211 \f
 212
 213 /* Callback for the "delete" action (clicking the x on the top right
 214    hand corner of the window) */
 215 static gboolean
 216 on_delete (GtkWidget *w, GdkEvent *event, gpointer user_data)
 217 {
 218   PsppireOutputWindow *ow = PSPPIRE_OUTPUT_WINDOW (user_data);
 219
 220   gtk_widget_destroy (GTK_WIDGET (ow));
 221
 222   ow->driver->window = NULL;
 223
 224   return FALSE;
 225 }
 226
 227
 228
 229 static void
 230 cancel_urgency (GtkWindow *window,  gpointer data)
 231 {
 232   gtk_window_set_urgency_hint (window, FALSE);
 233 }
 234
 235 static void psppire_output_window_print (PsppireOutputWindow *window);
 236
 237
 238 static void
 239 export_output (PsppireOutputWindow *window, struct string_map *options,
 240                const char *format)
 241 {
 242   string_map_insert (options, "format", format);
 243   psppire_output_view_export (window->view, options);
 244 }
 245
 246
 247 struct file_types
 248 {
 249   const gchar *label;
 250   const gchar *ext;
 251 };
 252
 253 enum
 254   {
 255     FT_AUTO = 0,
 256     FT_PDF,
 257     FT_HTML,
 258     FT_ODT,
 259     FT_TXT,
 260     FT_ASCII,
 261     FT_PS,
 262     FT_CSV,
 263     n_FT
 264   };
 265
 266 #define N_EXTENSIONS (n_FT - 1)
 267
 268 struct file_types ft[n_FT] = {
 269   {N_("Infer file type from extension"),  NULL},
 270   {N_("PDF (*.pdf)"),                     ".pdf"},
 271   {N_("HTML (*.html)"),                   ".html"},
 272   {N_("OpenDocument (*.odt)"),            ".odt"},
 273   {N_("Text (*.txt)"),                    ".txt"},
 274   {N_("Text [plain] (*.txt)"),            ".txt"},
 275   {N_("PostScript (*.ps)"),               ".ps"},
 276   {N_("Comma-Separated Values (*.csv)"),  ".csv"}
 277 };
 278
 279
 280 static void
 281 on_combo_change (GtkFileChooser *chooser)
 282 {
 283   gboolean sensitive = FALSE;
 284   GtkWidget *combo = gtk_file_chooser_get_extra_widget (chooser);
 285
 286   int x = 0;
 287   gchar *fn = gtk_file_chooser_get_filename (chooser);
 288
 289   if (combo &&  gtk_widget_get_realized (combo))
 290     x = gtk_combo_box_get_active (GTK_COMBO_BOX (combo));
 291
 292   if (fn == NULL)
 293     {
 294       sensitive = FALSE;
 295     }
 296   else
 297     {
 298       gint i;
 299       if ( x != 0 )
 300         sensitive = TRUE;
 301
 302       for (i = 1 ; i < N_EXTENSIONS ; ++i)
 303         {
 304           if ( g_str_has_suffix (fn, ft[i].ext))
 305             {
 306               sensitive = TRUE;
 307               break;
 308             }
 309         }
 310     }
 311
 312   g_free (fn);
 313
 314   gtk_dialog_set_response_sensitive (GTK_DIALOG (chooser), GTK_RESPONSE_ACCEPT, sensitive);
 315 }
 316
 317
 318 static void
 319 on_file_chooser_change (GObject *w, GParamSpec *pspec, gpointer data)
 320 {
 321
 322   GtkFileChooser *chooser = data;
 323   const gchar *name = g_param_spec_get_name (pspec);
 324
 325   if ( ! gtk_widget_get_realized (GTK_WIDGET (chooser)))
 326     return;
 327
 328   /* Ignore this one.  It causes recursion. */
 329   if ( 0 == strcmp ("tooltip-text", name))
 330     return;
 331
 332   on_combo_change (chooser);
 333 }
 334
 335
 336 /* Recursively descend all the children of W, connecting
 337    to their "notify" signal */
 338 static void
 339 iterate_widgets (GtkWidget *w, gpointer data)
 340 {
 341   if ( GTK_IS_CONTAINER (w))
 342     gtk_container_forall (GTK_CONTAINER (w), iterate_widgets, data);
 343   else
 344     g_signal_connect (w, "notify",  G_CALLBACK (on_file_chooser_change), data);
 345 }
 346
 347
 348
 349 static GtkListStore *
 350 create_file_type_list (void)
 351 {
 352   int i;
 353   GtkTreeIter iter;
 354   GtkListStore *list = gtk_list_store_new (2, G_TYPE_STRING, G_TYPE_STRING);
 355
 356   for (i = 0 ; i < n_FT ; ++i)
 357     {
 358       gtk_list_store_append (list, &iter);
 359       gtk_list_store_set (list, &iter,
 360                           0,  gettext (ft[i].label),
 361                           1,  ft[i].ext,
 362                           -1);
 363     }
 364
 365   return list;
 366 }
 367
 368 static void
 369 psppire_output_window_export (PsppireOutputWindow *window)
 370 {
 371   gint response;
 372   GtkWidget *combo;
 373   GtkListStore *list;
 374
 375   GtkFileChooser *chooser;
 376
 377   GtkWidget *dialog = gtk_file_chooser_dialog_new (_("Export Output"),
 378                                         GTK_WINDOW (window),
 379                                         GTK_FILE_CHOOSER_ACTION_SAVE,
 380                                         _("Cancel"), GTK_RESPONSE_CANCEL,
 381                                         _("Save"),   GTK_RESPONSE_ACCEPT,
 382                                         NULL);
 383
 384   g_object_set (dialog, "local-only", FALSE, NULL);
 385
 386   chooser = GTK_FILE_CHOOSER (dialog);
 387
 388   list = create_file_type_list ();
 389
 390   combo = gtk_combo_box_new_with_model (GTK_TREE_MODEL (list));
 391
 392
 393   {
 394     /* Create text cell renderer */
 395     GtkCellRenderer *cell = gtk_cell_renderer_text_new();
 396     gtk_cell_layout_pack_start (GTK_CELL_LAYOUT (combo), cell, FALSE );
 397
 398     gtk_cell_layout_add_attribute (GTK_CELL_LAYOUT (combo), cell,  "text", 0);
 399   }
 400
 401   g_signal_connect_swapped (combo, "changed", G_CALLBACK (on_combo_change), chooser);
 402
 403   gtk_combo_box_set_active (GTK_COMBO_BOX (combo), 0);
 404
 405   gtk_file_chooser_set_extra_widget (chooser, combo);
 406
 407   /* This kludge is necessary because there is no signal to tell us
 408      when the candidate filename of a GtkFileChooser has changed */
 409   gtk_container_forall (GTK_CONTAINER (dialog), iterate_widgets, dialog);
 410
 411
 412   gtk_file_chooser_set_do_overwrite_confirmation (chooser, TRUE);
 413
 414   response = gtk_dialog_run (GTK_DIALOG (dialog));
 415
 416   if ( response == GTK_RESPONSE_ACCEPT )
 417     {
 418       gint file_type = gtk_combo_box_get_active (GTK_COMBO_BOX (combo));
 419       gchar *filename = gtk_file_chooser_get_filename (chooser);
 420       struct string_map options;
 421
 422       g_return_if_fail (filename);
 423
 424       if (file_type == FT_AUTO)
 425         {
 426           /* If the "Infer file type from extension" option was chosen,
 427              search for the respective type in the list.
 428              (It's a O(n) search, but fortunately n is small). */
 429           gint i;
 430           for (i = 1 ; i < N_EXTENSIONS ; ++i)
 431             {
 432               if ( g_str_has_suffix (filename, ft[i].ext))
 433                 {
 434                   file_type = i;
 435                   break;
 436                 }
 437             }
 438         }
 439       else if (! g_str_has_suffix (filename, ft[file_type].ext))
 440         {
 441           /* If an explicit document format was chosen, and if the chosen
 442              filename does not already have that particular "extension",
 443              then append it.
 444            */
 445
 446           gchar *of = filename;
 447           filename = g_strconcat (filename, ft[file_type].ext, NULL);
 448           g_free (of);
 449         }
 450
 451       string_map_init (&options);
 452       string_map_insert (&options, "output-file", filename);
 453
 454       switch (file_type)
 455         {
 456         case FT_PDF:
 457           export_output (window, &options, "pdf");
 458           break;
 459         case FT_HTML:
 460           export_output (window, &options, "html");
 461           break;
 462         case FT_ODT:
 463           export_output (window, &options, "odt");
 464           break;
 465         case FT_PS:
 466           export_output (window, &options, "ps");
 467           break;
 468         case FT_CSV:
 469           export_output (window, &options, "csv");
 470           break;
 471
 472         case FT_TXT:
 473           string_map_insert (&options, "box", "unicode");
 474           /* Fall through */
 475
 476         case FT_ASCII:
 477           string_map_insert (&options, "charts", "none");
 478           export_output (window, &options, "txt");
 479           break;
 480         default:
 481           g_assert_not_reached ();
 482         }
 483
 484       string_map_destroy (&options);
 485
 486       free (filename);
 487     }
 488
 489   gtk_widget_destroy (dialog);
 490 }
 491
 492 static void
 493 psppire_output_window_init (PsppireOutputWindow *window)
 494 {
 495   GtkBuilder *xml = builder_new ("output-window.ui");
 496   GtkApplication *app = GTK_APPLICATION (g_application_get_default());
 497   GtkWidget *box = gtk_box_new (GTK_ORIENTATION_VERTICAL, 0);
 498   gtk_container_add (GTK_CONTAINER (window), box);
 499
 500   GtkWidget *paned = get_widget_assert (xml, "paned1");
 501
 502   window->dispose_has_run = FALSE;
 503
 504   window->view = psppire_output_view_new (
 505     GTK_LAYOUT (get_widget_assert (xml, "output")),
 506     GTK_TREE_VIEW (get_widget_assert (xml, "overview")));
 507
 508
 509   connect_help (xml);
 510
 511   g_signal_connect (window,
 512                     "focus-in-event",
 513                     G_CALLBACK (cancel_urgency),
 514                     NULL);
 515
 516   GObject *menu = get_object_assert (xml, "output-window-menu", G_TYPE_MENU);
 517   GtkWidget *menubar = gtk_menu_bar_new_from_model (G_MENU_MODEL (menu));
 518   gtk_box_pack_start (GTK_BOX (box), menubar, FALSE, FALSE, 0);
 519   gtk_box_pack_start (GTK_BOX (box), paned, TRUE, TRUE, 0);
 520
 521   gtk_menu_shell_append (GTK_MENU_SHELL (menubar),
 522                          create_windows_menu (GTK_WINDOW (window)));
 523
 524   gtk_menu_shell_append (GTK_MENU_SHELL (menubar),
 525                          create_help_menu (GTK_WINDOW (window)));
 526
 527   {
 528     GSimpleAction *print = g_simple_action_new ("print", NULL);
 529     g_signal_connect_swapped (print, "activate", G_CALLBACK (psppire_output_window_print), window);
 530     g_action_map_add_action (G_ACTION_MAP (window), G_ACTION (print));
 531
 532
 533     const gchar *accels[2] = { "<Ctrl>P", NULL};
 534     gtk_application_set_accels_for_action (app,
 535                                            "win.print",
 536                                            accels);
 537   }
 538
 539
 540   {
 541     GSimpleAction *export = g_simple_action_new ("export", NULL);
 542     g_signal_connect_swapped (export, "activate", G_CALLBACK (psppire_output_window_export), window);
 543     g_action_map_add_action (G_ACTION_MAP (window), G_ACTION (export));
 544   }
 545
 546   {
 547     GSimpleAction *select_all = g_simple_action_new ("select-all", NULL);
 548     g_action_map_add_action (G_ACTION_MAP (window), G_ACTION (select_all));
 549   }
 550
 551   {
 552     GSimpleAction *copy = g_simple_action_new ("copy", NULL);
 553     g_action_map_add_action (G_ACTION_MAP (window), G_ACTION (copy));
 554
 555     const gchar *accels[2] = { "<Ctrl>C", NULL};
 556     gtk_application_set_accels_for_action (app,
 557                                            "win.copy",
 558                                            accels);
 559   }
 560
 561
 562   g_object_unref (xml);
 563
 564   g_signal_connect (window, "delete-event",
 565                     G_CALLBACK (on_delete), window);
 566 }
 567
 568
 569 GtkWidget*
 570 psppire_output_window_new (void)
 571 {
 572   return GTK_WIDGET (g_object_new (psppire_output_window_get_type (),
 573                                    /* TRANSLATORS: This will be part of a filename.  Please avoid whitespace. */
 574                                    "filename", _("Output"),
 575                                    "description", _("Output Viewer"),
 576                                    NULL));
 577 }
 578
 579 static void
 580 psppire_output_window_print (PsppireOutputWindow *window)
 581 {
 582   psppire_output_view_print (window->view, GTK_WINDOW (window));
 583 }