1 /* PSPPIRE - a graphical user interface for PSPP.
2 Copyright (C) 2006, 2007, 2010, 2011, 2012, 2013, 2015, 2016,
3 2021 Free Software Foundation
5 This program is free software: you can redistribute it and/or modify
6 it under the terms of the GNU General Public License as published by
7 the Free Software Foundation, either version 3 of the License, or
8 (at your option) any later version.
10 This program is distributed in the hope that it will be useful,
11 but WITHOUT ANY WARRANTY; without even the implied warranty of
12 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
13 GNU General Public License for more details.
15 You should have received a copy of the GNU General Public License
16 along with this program. If not, see <http://www.gnu.org/licenses/>. */
23 #include "libpspp/cast.h"
24 #include "libpspp/copyleft.h"
25 #include "libpspp/message.h"
26 #include "libpspp/version.h"
27 #include "ui/gui/help-menu.h"
29 #include "gl/configmake.h"
30 #include "gl/relocatable.h"
33 #define _(msgid) gettext (msgid)
34 #define N_(msgid) msgid
36 /* Try to open html documentation uri via the default
37 browser on the operating system */
39 #define HTMLOPENAPP "open"
41 #define HTMLOPENAPP "wscript"
43 #define HTMLOPENAPP "xdg-open"
46 static const gchar *artists[] = { "Bastián Díaz", "Hugo Alejandro", NULL};
48 /* Opening the htmluri in windows via cmd /start uri opens
49 the windows command shell for a moment. The alternative is
50 to start a script via wscript. This will not be visible*/
53 open_windows_help (const gchar *helpuri, GError **err)
55 SHELLEXECUTEINFOA info;
56 memset (&info, 0, sizeof (info));
58 info.cbSize = sizeof (info);
59 info.fMask = SEE_MASK_FLAG_NO_UI;
61 info.lpFile = helpuri;
62 info.nShow = SW_SHOWNORMAL;
64 BOOL ret = ShellExecuteExA (&info);
69 /* Contrary to what the microsoft documentation indicates, ShellExecuteExA does
70 not seem to setLastError. So we have to deal with errors ourselves here. */
72 switch (GPOINTER_TO_INT (info.hInstApp))
75 msg = "File not found";
78 msg = "Path not found";
80 case SE_ERR_ACCESSDENIED:
81 msg = "Access denied";
84 msg = "Out of memory";
86 case SE_ERR_DLLNOTFOUND:
87 msg = "Dynamic-link library not found";
90 msg = "Cannot share an open file";
92 case SE_ERR_ASSOCINCOMPLETE:
93 msg = "File association information not complete";
95 case SE_ERR_DDETIMEOUT:
96 msg = "DDE operation timed out";
99 msg = "DDE operation failed";
102 msg = "DDE operation is busy";
105 msg = "File association not available";
108 msg = "Unknown error";
112 *err = g_error_new_literal (g_quark_from_static_string ("pspp-help-error"),
120 on_activate_link (GtkAboutDialog *label,
124 return open_windows_help (uri, NULL);
129 about_new (GtkMenuItem *mmm, GtkWindow *parent)
131 GtkWidget *about = gtk_about_dialog_new ();
134 /* The default handler for Windows doesn't appear to work. */
135 g_signal_connect (about, "activate-link", G_CALLBACK (on_activate_link), parent);
138 gtk_about_dialog_set_logo_icon_name (GTK_ABOUT_DIALOG (about), "pspp");
140 gtk_window_set_icon_name (GTK_WINDOW (about), "pspp");
142 gtk_about_dialog_set_website (GTK_ABOUT_DIALOG (about), PACKAGE_URL);
144 gtk_about_dialog_set_version (GTK_ABOUT_DIALOG (about),
147 gtk_about_dialog_set_authors (GTK_ABOUT_DIALOG (about),
148 (const gchar **) authors);
150 gtk_about_dialog_set_artists (GTK_ABOUT_DIALOG (about),
153 gtk_about_dialog_set_license (GTK_ABOUT_DIALOG (about),
156 gtk_about_dialog_set_comments (GTK_ABOUT_DIALOG (about),
157 _("A program for the analysis of sampled data"));
159 gtk_about_dialog_set_copyright (GTK_ABOUT_DIALOG (about),
160 "Free Software Foundation");
162 gtk_about_dialog_set_translator_credits
164 GTK_ABOUT_DIALOG (about),
165 /* TRANSLATORS: Do not translate this string. Instead, put the names of the people
166 who have helped in the translation. */
167 _("translator-credits")
170 gtk_window_set_transient_for (GTK_WINDOW (about), parent);
172 gtk_window_set_modal (GTK_WINDOW (about), TRUE);
174 gtk_dialog_run (GTK_DIALOG (about));
176 gtk_widget_hide (about);
181 /* Open the manual at PAGE with the following priorities
182 First: local yelp help system
183 Second: browser with local html doc dir in path pspp.html/<helppage>.html
184 Third: browers with Internet html help at gnu.org */
186 online_help (const char *page)
188 GError *htmlerr = NULL;
189 gchar *htmlfilename = NULL;
190 gchar *htmlfullname = NULL;
191 gchar *htmluri = NULL;
195 htmlfilename = g_strdup ("index.html");
199 gchar **tokens = NULL;
200 const int maxtokens = 5;
202 /* The page will be translated to the htmlfilename
204 GRAPH#SCATTERPLOT SCATTERPLOT.html
205 QUICK-CLUSTER QUICK-CLUSTER.html
206 which is valid for the multiple page html doc*/
207 tokens = g_strsplit (page, "#", maxtokens);
208 for (idx = 0; idx < maxtokens && tokens[idx]; idx++)
210 htmlfilename = g_strdup_printf ("%s.html", tokens[idx-1]);
213 /* Hint: pspp.html is a directory...*/
214 htmlfullname = g_strdup_printf ("%s/%s", relocate (DOCDIR "/pspp.html"),
216 if (g_file_test (relocate (DOCDIR "/pspp.html"), G_FILE_TEST_IS_DIR))
218 GError *urierr = NULL;
219 htmluri = g_filename_to_uri (htmlfullname,NULL, &urierr);
222 msg (ME, _("Help path conversion error: %s"), urierr->message);
223 htmluri = htmlfullname;
225 g_clear_error (&urierr);
228 htmluri = g_strdup_printf (PACKAGE_URL "manual/html_node/%s",
230 g_free (htmlfullname);
231 g_free (htmlfilename);
234 bool ok = open_windows_help (htmluri, &htmlerr);
236 gchar *htmlargv[3] = {CONST_CAST (char *, HTMLOPENAPP), htmluri, 0};
237 bool ok = g_spawn_async (NULL, htmlargv,
238 NULL, G_SPAWN_SEARCH_PATH,
239 NULL, NULL, NULL, &htmlerr);
243 msg (ME, _("Cannot open via html: %s "
245 "The PSSP manual is also available at %s"),
248 PACKAGE_URL "documentation.html");
252 g_clear_error (&htmlerr);
256 reference_manual (GtkMenuItem *menu, gpointer data)
262 create_help_menu (GtkWindow *toplevel)
264 GtkWidget *menuitem = gtk_menu_item_new_with_mnemonic (_("_Help"));
265 GtkWidget *menu = gtk_menu_new ();
267 GtkWidget *help_about = gtk_menu_item_new_with_mnemonic (_("_About"));
268 GtkWidget *help_ref = gtk_menu_item_new_with_mnemonic (_("_Reference Manual"));
270 GtkAccelGroup *accel_group = gtk_accel_group_new ();
272 gtk_window_add_accel_group (toplevel, accel_group);
274 gtk_widget_add_accelerator (help_ref,
275 "activate", accel_group,
279 gtk_menu_attach (GTK_MENU (menu), help_ref, 0, 1, 0, 1);
280 gtk_menu_attach (GTK_MENU (menu), help_about, 0, 1, 1, 2);
282 g_signal_connect (help_about, "activate", G_CALLBACK (about_new), toplevel);
283 g_signal_connect (help_ref, "activate", G_CALLBACK (reference_manual), NULL);
285 g_object_set (menuitem, "submenu", menu, NULL);
287 gtk_widget_show_all (menuitem);
289 g_object_unref (accel_group);