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 HTMLOPENAPP "open"
  38 #elif  _WIN32
  39 #define HTMLOPENAPP "wscript"
  40 #else
  41 #define HTMLOPENAPP "xdg-open"
  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 helpapp[] = HTMLOPENAPP;
 136   gchar *htmlargv[3] = {helpapp, 0, 0};
 137   gchar *htmlfilename = NULL;
 138   gchar *htmlfullname = NULL;
 139   gchar *htmluri = NULL;
 140
 141   if (page == NULL)
 142     {
 143       htmlfilename = g_strdup ("index.html");
 144     }
 145   else
 146     {
 147       gchar **tokens = NULL;
 148       const int maxtokens = 5;
 149       int idx ;
 150       /* The page will be translated to the htmlfilename
 151          page                   htmlfilename
 152          GRAPH#SCATTERPLOT      SCATTERPLOT.html
 153          QUICK-CLUSTER          QUICK-CLUSTER.html
 154          which is valid for the multiple page html doc*/
 155       tokens = g_strsplit (page, "#", maxtokens);
 156       for (idx = 0; idx < maxtokens && tokens[idx]; idx++)
 157         ;
 158       htmlfilename = g_strdup_printf ("%s.html", tokens[idx-1]);
 159       g_strfreev (tokens);
 160     }
 161   /* Hint: pspp.html is a directory...*/
 162   htmlfullname = g_strdup_printf ("%s/%s", relocate (DOCDIR "/pspp.html"),
 163                                   htmlfilename);
 164   if (g_file_test (relocate (DOCDIR "/pspp.html"), G_FILE_TEST_IS_DIR))
 165     {
 166       GError *urierr = NULL;
 167       htmluri =  g_filename_to_uri (htmlfullname,NULL, &urierr);
 168       if (!htmluri)
 169         {
 170           msg (ME, _("Help path conversion error: %s"), urierr->message);
 171           htmluri = htmlfullname;
 172         }
 173       g_clear_error (&urierr);
 174     }
 175   else
 176     htmluri = g_strdup_printf (PACKAGE_URL "manual/html_node/%s",
 177                                htmlfilename);
 178   g_free (htmlfullname);
 179   g_free (htmlfilename);
 180   htmlargv[1] = htmluri;
 181
 182   /* The following **SHOULD** work but it does not on 28.5.2016
 183      g_app_info_launch_default_for_uri (htmluri, NULL, &err);
 184      osx: wine is started to launch the uri...
 185      windows: not so bad, but the first access does not work*/
 186
 187   if (! (
 188 #ifdef _WIN32
 189          open_windows_help (htmluri, &htmlerr))
 190 #else
 191          g_spawn_async (NULL, htmlargv,
 192                         NULL, G_SPAWN_SEARCH_PATH,
 193                         NULL, NULL,   NULL,   &htmlerr))
 194 #endif
 195 )
 196     {
 197       msg (ME, _("Cannot open via html: %s "
 198                  "with uri: %s "
 199                  "The PSSP manual is also available at %s"),
 200                   htmlerr->message,
 201                   htmluri,
 202                   PACKAGE_URL "documentation.html");
 203     }
 204
 205   g_free (htmluri);
 206   g_clear_error (&htmlerr);
 207 }
 208
 209 static void
 210 reference_manual (GtkMenuItem *menu, gpointer data)
 211 {
 212   online_help (NULL);
 213 }
 214
 215 GtkWidget *
 216 create_help_menu (GtkWindow *toplevel)
 217 {
 218   GtkWidget *menuitem = gtk_menu_item_new_with_mnemonic (_("_Help"));
 219   GtkWidget *menu = gtk_menu_new ();
 220
 221   GtkWidget *help_about = gtk_menu_item_new_with_mnemonic (_("_About"));
 222   GtkWidget *help_ref = gtk_menu_item_new_with_mnemonic (_("_Reference Manual"));
 223
 224   GtkAccelGroup *accel_group = gtk_accel_group_new ();
 225
 226   gtk_window_add_accel_group (toplevel, accel_group);
 227
 228   gtk_widget_add_accelerator (help_ref,
 229                               "activate", accel_group,
 230                               GDK_KEY_F1, 0,
 231                               GTK_ACCEL_VISIBLE);
 232
 233   gtk_menu_attach (GTK_MENU (menu), help_ref, 0, 1, 0, 1);
 234   gtk_menu_attach (GTK_MENU (menu), help_about, 0, 1, 1, 2);
 235
 236   g_signal_connect (help_about, "activate", G_CALLBACK (about_new), toplevel);
 237   g_signal_connect (help_ref, "activate", G_CALLBACK (reference_manual), NULL);
 238
 239   g_object_set (menuitem, "submenu", menu, NULL);
 240
 241   gtk_widget_show_all (menuitem);
 242
 243   g_object_unref (accel_group);
 244
 245   return menuitem;
 246 }