pintos-os.org Git - pspp/blob - src/ui/gui/help-menu.c

   1 /* PSPPIRE - a graphical user interface for PSPP.
   2    Copyright (C) 2006, 2007, 2010, 2011, 2012, 2013, 2015, 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
  18 #include <config.h>
  19
  20 #include <gtk/gtk.h>
  21
  22 #include <libpspp/copyleft.h>
  23 #include <libpspp/version.h>
  24 #include "help-menu.h"
  25 #include <libpspp/message.h>
  26
  27 #include "gl/configmake.h"
  28 #include "gl/relocatable.h"
  29
  30 #include <gettext.h>
  31 #define _(msgid) gettext (msgid)
  32 #define N_(msgid) msgid
  33
  34 /* Try to open html documentation uri via the default
  35    browser on the operating system */
  36 #ifdef __APPLE__
  37 #define HTMLOPENARGV {"open", 0, 0}
  38 #elif  _WIN32
  39 #define HTMLOPENARGV {"wscript", 0, 0}
  40 #else
  41 #define HTMLOPENARGV {"xdg-open", 0, 0}
  42 #endif
  43
  44 static const gchar *artists[] = { "Bastián Díaz", "Hugo Alejandro", NULL};
  45
  46 static void
  47 about_new (GtkMenuItem *mmm, GtkWindow *parent)
  48 {
  49   GtkWidget *about =  gtk_about_dialog_new ();
  50
  51   gtk_about_dialog_set_logo_icon_name (GTK_ABOUT_DIALOG (about), "pspp");
  52
  53   gtk_window_set_icon_name (GTK_WINDOW (about), "pspp");
  54
  55   gtk_about_dialog_set_website (GTK_ABOUT_DIALOG (about), PACKAGE_URL);
  56
  57   gtk_about_dialog_set_version (GTK_ABOUT_DIALOG (about),
  58                                 announced_version);
  59
  60   gtk_about_dialog_set_authors (GTK_ABOUT_DIALOG (about),
  61                                 (const gchar **) authors);
  62
  63   gtk_about_dialog_set_artists (GTK_ABOUT_DIALOG (about),
  64                                 artists);
  65
  66   gtk_about_dialog_set_license (GTK_ABOUT_DIALOG (about),
  67                                 copyleft);
  68
  69   gtk_about_dialog_set_comments (GTK_ABOUT_DIALOG (about),
  70                                  _("A program for the analysis of sampled data"));
  71
  72   gtk_about_dialog_set_copyright (GTK_ABOUT_DIALOG (about),
  73                                   "Free Software Foundation");
  74
  75   gtk_about_dialog_set_translator_credits
  76     (
  77      GTK_ABOUT_DIALOG (about),
  78      /* TRANSLATORS: Do not translate this string.  Instead, put the names of the people
  79         who have helped in the translation. */
  80      _("translator-credits")
  81 );
  82
  83   gtk_window_set_transient_for (GTK_WINDOW (about), parent);
  84
  85   gtk_window_set_modal (GTK_WINDOW (about), TRUE);
  86
  87   gtk_dialog_run (GTK_DIALOG (about));
  88
  89   gtk_widget_hide (about);
  90 }
  91
  92
  93 /* Opening the htmluri in windows via cmd /start uri opens
  94    the windows command shell for a moment. The alternative is
  95    to start a script via wscript. This will not be visible*/
  96 #ifdef _WIN32
  97 static gboolean open_windows_help (const gchar *helpuri,
  98                                    GError **err)
  99 {
 100   gchar *vbsfilename = NULL;
 101   gchar *vbs = NULL;
 102   gboolean result;
 103   vbsfilename = g_build_filename (g_get_tmp_dir (),
 104                                   "pspp-help-open.vbs",
 105                                   NULL);
 106   vbs = g_strdup_printf("CreateObject(\"WScript.Shell\").Run \"%s\"",
 107                         helpuri);
 108   result = g_file_set_contents (vbsfilename,
 109                                 vbs,
 110                                 strlen(vbs),
 111                                 err);
 112   g_free (vbs);
 113   if (!result)
 114     goto error;
 115
 116   gchar *argv[] = {"wscript",vbsfilename,0};
 117
 118   result = g_spawn_async (NULL, argv,
 119                           NULL, G_SPAWN_SEARCH_PATH,
 120                           NULL, NULL, NULL, err);
 121  error:
 122   g_free (vbsfilename);
 123   return result;
 124 }
 125 #endif
 126
 127 /* Open the manual at PAGE with the following priorities
 128    First: local yelp help system
 129    Second: browser with local html doc dir in path pspp.html/<helppage>.html
 130    Third:  browers with Internet html help at gnu.org */
 131 void
 132 online_help (const char *page)
 133 {
 134   GError *htmlerr = NULL;
 135   gchar *htmlargv[3] = HTMLOPENARGV;
 136   gchar *htmlfilename = NULL;
 137   gchar *htmlfullname = NULL;
 138   gchar *htmluri = NULL;
 139
 140   if (page == NULL)
 141     {
 142       htmlfilename = g_strdup ("index.html");
 143     }
 144   else
 145     {
 146       gchar **tokens = NULL;
 147       const int maxtokens = 5;
 148       int idx ;
 149       /* The page will be translated to the htmlfilename
 150          page                   htmlfilename
 151          GRAPH#SCATTERPLOT      SCATTERPLOT.html
 152          QUICK-CLUSTER          QUICK-CLUSTER.html
 153          which is valid for the multiple page html doc*/
 154       tokens = g_strsplit (page, "#", maxtokens);
 155       for (idx = 0; idx < maxtokens && tokens[idx]; idx++)
 156         ;
 157       htmlfilename = g_strdup_printf ("%s.html", tokens[idx-1]);
 158       g_strfreev (tokens);
 159     }
 160   /* Hint: pspp.html is a directory...*/
 161   htmlfullname = g_strdup_printf ("%s/%s", relocate (DOCDIR "/pspp.html"),
 162                                   htmlfilename);
 163   if (g_file_test (relocate (DOCDIR "/pspp.html"), G_FILE_TEST_IS_DIR))
 164     {
 165       GError *urierr = NULL;
 166       htmluri =  g_filename_to_uri (htmlfullname,NULL, &urierr);
 167       if (!htmluri)
 168         {
 169           msg (ME, _("Help path conversion error: %s"), urierr->message);
 170           htmluri = htmlfullname;
 171         }
 172       g_clear_error (&urierr);
 173     }
 174   else
 175     htmluri = g_strdup_printf (PACKAGE_URL "manual/html_node/%s",
 176                                htmlfilename);
 177   g_free (htmlfullname);
 178   g_free (htmlfilename);
 179   htmlargv[1] = htmluri;
 180
 181   /* The following **SHOULD** work but it does not on 28.5.2016
 182      g_app_info_launch_default_for_uri (htmluri, NULL, &err);
 183      osx: wine is started to launch the uri...
 184      windows: not so bad, but the first access does not work*/
 185
 186   if (! (
 187 #ifdef _WIN32
 188          open_windows_help (htmluri, &htmlerr))
 189 #else
 190          g_spawn_async (NULL, htmlargv,
 191                         NULL, G_SPAWN_SEARCH_PATH,
 192                         NULL, NULL,   NULL,   &htmlerr))
 193 #endif
 194 )
 195     {
 196       msg (ME, _("Cannot open via html: %s "
 197                  "with uri: %s "
 198                  "The PSSP manual is also available at %s"),
 199                   htmlerr->message,
 200                   htmluri,
 201                   PACKAGE_URL "documentation.html");
 202     }
 203
 204   g_free (htmluri);
 205   g_clear_error (&htmlerr);
 206 }
 207
 208 static void
 209 reference_manual (GtkMenuItem *menu, gpointer data)
 210 {
 211   online_help (NULL);
 212 }
 213
 214 GtkWidget *
 215 create_help_menu (GtkWindow *toplevel)
 216 {
 217   GtkWidget *menuitem = gtk_menu_item_new_with_mnemonic (_("_Help"));
 218   GtkWidget *menu = gtk_menu_new ();
 219
 220   GtkWidget *help_about = gtk_menu_item_new_with_mnemonic (_("_About"));
 221   GtkWidget *help_ref = gtk_menu_item_new_with_mnemonic (_("_Reference Manual"));
 222
 223   GtkAccelGroup *accel_group = gtk_accel_group_new ();
 224
 225   gtk_window_add_accel_group (toplevel, accel_group);
 226
 227   gtk_widget_add_accelerator (help_ref,
 228                               "activate", accel_group,
 229                               GDK_KEY_F1, 0,
 230                               GTK_ACCEL_VISIBLE);
 231
 232   gtk_menu_attach (GTK_MENU (menu), help_ref, 0, 1, 0, 1);
 233   gtk_menu_attach (GTK_MENU (menu), help_about, 0, 1, 1, 2);
 234
 235   g_signal_connect (help_about, "activate", G_CALLBACK (about_new), toplevel);
 236   g_signal_connect (help_ref, "activate", G_CALLBACK (reference_manual), NULL);
 237
 238   g_object_set (menuitem, "submenu", menu, NULL);
 239
 240   gtk_widget_show_all (menuitem);
 241
 242   return menuitem;
 243 }