1 /* PSPPIRE - a graphical user interface for PSPP.
2 Copyright (C) 2006, 2007, 2010, 2011, 2012, 2013, 2015, 2016 Free Software Foundation
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/>. */
22 #include <libpspp/copyleft.h>
23 #include <libpspp/version.h>
24 #include "help-menu.h"
25 #include <libpspp/message.h>
27 #include "gl/configmake.h"
28 #include "gl/relocatable.h"
31 #define _(msgid) gettext (msgid)
32 #define N_(msgid) msgid
34 /* Try to open html documentation uri via the default
35 browser on the operating system */
37 #define HTMLOPENARGV {"open", 0, 0}
39 #define HTMLOPENARGV {"wscript", 0, 0}
41 #define HTMLOPENARGV {"xdg-open", 0, 0}
44 static const gchar *artists[] = { "Bastián Díaz", "Hugo Alejandro", NULL};
47 about_new (GtkMenuItem *mmm, GtkWindow *parent)
49 GtkWidget *about = gtk_about_dialog_new ();
51 gtk_about_dialog_set_logo_icon_name (GTK_ABOUT_DIALOG (about), "pspp");
53 gtk_window_set_icon_name (GTK_WINDOW (about), "pspp");
55 gtk_about_dialog_set_website (GTK_ABOUT_DIALOG (about), PACKAGE_URL);
57 gtk_about_dialog_set_version (GTK_ABOUT_DIALOG (about),
60 gtk_about_dialog_set_authors (GTK_ABOUT_DIALOG (about),
61 (const gchar **) authors);
63 gtk_about_dialog_set_artists (GTK_ABOUT_DIALOG (about),
66 gtk_about_dialog_set_license (GTK_ABOUT_DIALOG (about),
69 gtk_about_dialog_set_comments (GTK_ABOUT_DIALOG (about),
70 _("A program for the analysis of sampled data"));
72 gtk_about_dialog_set_copyright (GTK_ABOUT_DIALOG (about),
73 "Free Software Foundation");
75 gtk_about_dialog_set_translator_credits
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")
83 gtk_window_set_transient_for (GTK_WINDOW (about), parent);
85 gtk_window_set_modal (GTK_WINDOW (about), TRUE);
87 gtk_dialog_run (GTK_DIALOG (about));
89 gtk_widget_hide (about);
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*/
97 static gboolean open_windows_help (const gchar *helpuri,
100 gchar *vbsfilename = NULL;
103 vbsfilename = g_build_filename (g_get_tmp_dir (),
104 "pspp-help-open.vbs",
106 vbs = g_strdup_printf("CreateObject(\"WScript.Shell\").Run \"%s\"",
108 result = g_file_set_contents (vbsfilename,
116 gchar *argv[] = {"wscript",vbsfilename,0};
118 result = g_spawn_async (NULL, argv,
119 NULL, G_SPAWN_SEARCH_PATH,
120 NULL, NULL, NULL, err);
122 g_free (vbsfilename);
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 */
132 online_help (const char *page)
134 GError *htmlerr = NULL;
135 gchar *htmlargv[3] = HTMLOPENARGV;
136 gchar *htmlfilename = NULL;
137 gchar *htmlfullname = NULL;
138 gchar *htmluri = NULL;
142 htmlfilename = g_strdup ("index.html");
146 gchar **tokens = NULL;
147 const int maxtokens = 5;
149 /* The page will be translated to the 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++)
157 htmlfilename = g_strdup_printf ("%s.html", tokens[idx-1]);
160 /* Hint: pspp.html is a directory...*/
161 htmlfullname = g_strdup_printf ("%s/%s", relocate (DOCDIR "/pspp.html"),
163 if (g_file_test (relocate (DOCDIR "/pspp.html"), G_FILE_TEST_IS_DIR))
165 GError *urierr = NULL;
166 htmluri = g_filename_to_uri (htmlfullname,NULL, &urierr);
169 msg (ME, _("Help path conversion error: %s"), urierr->message);
170 htmluri = htmlfullname;
172 g_clear_error (&urierr);
175 htmluri = g_strdup_printf (PACKAGE_URL "manual/html_node/%s",
177 g_free (htmlfullname);
178 g_free (htmlfilename);
179 htmlargv[1] = htmluri;
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*/
188 open_windows_help (htmluri, &htmlerr))
190 g_spawn_async (NULL, htmlargv,
191 NULL, G_SPAWN_SEARCH_PATH,
192 NULL, NULL, NULL, &htmlerr))
196 msg (ME, _("Cannot open via html: %s "
198 "The PSSP manual is also available at %s"),
201 PACKAGE_URL "documentation.html");
205 g_clear_error (&htmlerr);
209 reference_manual (GtkMenuItem *menu, gpointer data)
215 create_help_menu (GtkWindow *toplevel)
217 GtkWidget *menuitem = gtk_menu_item_new_with_mnemonic (_("_Help"));
218 GtkWidget *menu = gtk_menu_new ();
220 GtkWidget *help_about = gtk_menu_item_new_with_mnemonic (_("_About"));
221 GtkWidget *help_ref = gtk_menu_item_new_with_mnemonic (_("_Reference Manual"));
223 GtkAccelGroup *accel_group = gtk_accel_group_new ();
225 gtk_window_add_accel_group (toplevel, accel_group);
227 gtk_widget_add_accelerator (help_ref,
228 "activate", accel_group,
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);
235 g_signal_connect (help_about, "activate", G_CALLBACK (about_new), toplevel);
236 g_signal_connect (help_ref, "activate", G_CALLBACK (reference_manual), NULL);
238 g_object_set (menuitem, "submenu", menu, NULL);
240 gtk_widget_show_all (menuitem);