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/executor.h"
28 #include "ui/gui/help-menu.h"
29 #include "ui/gui/psppire-data-window.h"
31 #include "gl/configmake.h"
32 #include "gl/relocatable.h"
35 #define _(msgid) gettext (msgid)
36 #define N_(msgid) msgid
38 /* Try to open html documentation uri via the default
39 browser on the operating system */
41 #define HTMLOPENAPP "open"
43 #define HTMLOPENAPP "wscript"
45 #define HTMLOPENAPP "xdg-open"
48 static const gchar *artists[] = { "Bastián Díaz", "Hugo Alejandro", NULL};
50 /* Opening the htmluri in windows via cmd /start uri opens
51 the windows command shell for a moment. The alternative is
52 to start a script via wscript. This will not be visible*/
55 open_windows_help (const gchar *helpuri, GError **err)
57 SHELLEXECUTEINFOA info;
58 memset (&info, 0, sizeof (info));
60 info.cbSize = sizeof (info);
61 info.fMask = SEE_MASK_FLAG_NO_UI;
63 info.lpFile = helpuri;
64 info.nShow = SW_SHOWNORMAL;
66 BOOL ret = ShellExecuteExA (&info);
71 /* Contrary to what the microsoft documentation indicates, ShellExecuteExA does
72 not seem to setLastError. So we have to deal with errors ourselves here. */
74 switch (GPOINTER_TO_INT (info.hInstApp))
77 msg = "File not found";
80 msg = "Path not found";
82 case SE_ERR_ACCESSDENIED:
83 msg = "Access denied";
86 msg = "Out of memory";
88 case SE_ERR_DLLNOTFOUND:
89 msg = "Dynamic-link library not found";
92 msg = "Cannot share an open file";
94 case SE_ERR_ASSOCINCOMPLETE:
95 msg = "File association information not complete";
97 case SE_ERR_DDETIMEOUT:
98 msg = "DDE operation timed out";
101 msg = "DDE operation failed";
104 msg = "DDE operation is busy";
107 msg = "File association not available";
110 msg = "Unknown error";
114 *err = g_error_new_literal (g_quark_from_static_string ("pspp-help-error"),
122 on_activate_link (GtkAboutDialog *label,
126 return open_windows_help (uri, NULL);
131 about_system_info (GtkMenuItem *mmm, GtkWindow *parent)
133 execute_const_syntax_string (psppire_default_data_window (), "SHOW SYSTEM.");
137 about_new (GtkMenuItem *mmm, GtkWindow *parent)
139 GtkWidget *about = gtk_about_dialog_new ();
142 /* The default handler for Windows doesn't appear to work. */
143 g_signal_connect (about, "activate-link", G_CALLBACK (on_activate_link), parent);
146 gtk_about_dialog_set_logo_icon_name (GTK_ABOUT_DIALOG (about), "org.gnu.pspp");
148 gtk_window_set_icon_name (GTK_WINDOW (about), "org.gnu.pspp");
150 gtk_about_dialog_set_website (GTK_ABOUT_DIALOG (about), PACKAGE_URL);
152 gtk_about_dialog_set_version (GTK_ABOUT_DIALOG (about),
155 gtk_about_dialog_set_authors (GTK_ABOUT_DIALOG (about),
156 (const gchar **) authors);
158 gtk_about_dialog_set_artists (GTK_ABOUT_DIALOG (about),
161 gtk_about_dialog_set_license (GTK_ABOUT_DIALOG (about),
164 gtk_about_dialog_set_comments (GTK_ABOUT_DIALOG (about),
165 _("A program for the analysis of sampled data"));
167 gtk_about_dialog_set_copyright (GTK_ABOUT_DIALOG (about),
168 "Free Software Foundation");
170 gtk_about_dialog_set_translator_credits
172 GTK_ABOUT_DIALOG (about),
173 /* TRANSLATORS: Do not translate this string. Instead, put the names of the people
174 who have helped in the translation. */
175 _("translator-credits")
178 gtk_window_set_transient_for (GTK_WINDOW (about), parent);
180 gtk_window_set_modal (GTK_WINDOW (about), TRUE);
182 gtk_dialog_run (GTK_DIALOG (about));
184 gtk_widget_hide (about);
189 /* Open the manual at PAGE with the following priorities
190 First: local yelp help system
191 Second: browser with local html doc dir in path pspp.html/<helppage>.html
192 Third: browers with Internet html help at gnu.org */
194 online_help (const char *page)
196 GError *htmlerr = NULL;
197 gchar *htmlfilename = NULL;
198 gchar *htmlfullname = NULL;
199 gchar *htmluri = NULL;
203 htmlfilename = g_strdup ("index.html");
207 gchar **tokens = NULL;
208 const int maxtokens = 5;
210 /* The page will be translated to the htmlfilename
212 GRAPH#SCATTERPLOT SCATTERPLOT.html
213 QUICK-CLUSTER QUICK-CLUSTER.html
214 which is valid for the multiple page html doc*/
215 tokens = g_strsplit (page, "#", maxtokens);
216 for (idx = 0; idx < maxtokens && tokens[idx]; idx++)
218 htmlfilename = g_strdup_printf ("%s.html", tokens[idx-1]);
221 /* Hint: pspp.html is a directory...*/
222 htmlfullname = g_strdup_printf ("%s/%s", relocate (DOCDIR "/pspp.html"),
224 if (g_file_test (relocate (DOCDIR "/pspp.html"), G_FILE_TEST_IS_DIR))
226 GError *urierr = NULL;
227 htmluri = g_filename_to_uri (htmlfullname,NULL, &urierr);
230 msg (ME, _("Help path conversion error: %s"), urierr->message);
231 htmluri = htmlfullname;
233 g_clear_error (&urierr);
236 htmluri = g_strdup_printf (PACKAGE_URL "manual/html_node/%s",
238 g_free (htmlfullname);
239 g_free (htmlfilename);
242 bool ok = open_windows_help (htmluri, &htmlerr);
244 gchar *htmlargv[3] = {CONST_CAST (char *, HTMLOPENAPP), htmluri, 0};
245 bool ok = g_spawn_async (NULL, htmlargv,
246 NULL, G_SPAWN_SEARCH_PATH,
247 NULL, NULL, NULL, &htmlerr);
251 msg (ME, _("Cannot open via html: %s "
253 "The PSSP manual is also available at %s"),
256 PACKAGE_URL "documentation.html");
260 g_clear_error (&htmlerr);
264 reference_manual (GtkMenuItem *menu, gpointer data)
270 create_help_menu (GtkWindow *toplevel)
272 GtkWidget *menuitem = gtk_menu_item_new_with_mnemonic (_("_Help"));
273 GtkWidget *menu = gtk_menu_new ();
275 GtkWidget *help_about = gtk_menu_item_new_with_mnemonic (_("_About"));
276 GtkWidget *help_system_info = gtk_menu_item_new_with_mnemonic (_("_System Information"));
277 GtkWidget *help_ref = gtk_menu_item_new_with_mnemonic (_("_Reference Manual"));
279 GtkAccelGroup *accel_group = gtk_accel_group_new ();
281 gtk_window_add_accel_group (toplevel, accel_group);
283 gtk_widget_add_accelerator (help_ref,
284 "activate", accel_group,
288 gtk_menu_attach (GTK_MENU (menu), help_ref, 0, 1, 0, 1);
289 gtk_menu_attach (GTK_MENU (menu), help_system_info, 0, 1, 1, 2);
290 gtk_menu_attach (GTK_MENU (menu), help_about, 0, 1, 2, 3);
292 g_signal_connect (help_about, "activate", G_CALLBACK (about_new), toplevel);
293 g_signal_connect (help_system_info, "activate", G_CALLBACK (about_system_info), toplevel);
294 g_signal_connect (help_ref, "activate", G_CALLBACK (reference_manual), NULL);
296 g_object_set (menuitem, "submenu", menu, NULL);
298 gtk_widget_show_all (menuitem);
300 g_object_unref (accel_group);