X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Fui%2Fgui%2Fhelp-menu.c;h=e63829cb06c7a143b80bca16d5bfe0d76e8031a3;hb=91240a3a96a0ffed8b1bcc4866378b4d865e6f6e;hp=aeef8c10c44ba2deb1d4762177fc3b56d964211e;hpb=0cd7c010e3e5c316ef0eb0317fb7f408d164679d;p=pspp diff --git a/src/ui/gui/help-menu.c b/src/ui/gui/help-menu.c index aeef8c10c4..e63829cb06 100644 --- a/src/ui/gui/help-menu.c +++ b/src/ui/gui/help-menu.c @@ -1,5 +1,6 @@ /* PSPPIRE - a graphical user interface for PSPP. - Copyright (C) 2006, 2007, 2010, 2011, 2012, 2013, 2015, 2016 Free Software Foundation + Copyright (C) 2006, 2007, 2010, 2011, 2012, 2013, 2015, 2016, + 2021 Free Software Foundation This program is free software: you can redistribute it and/or modify it under the terms of the GNU General Public License as published by @@ -19,10 +20,11 @@ #include -#include -#include -#include "help-menu.h" -#include +#include "libpspp/cast.h" +#include "libpspp/copyleft.h" +#include "libpspp/message.h" +#include "libpspp/version.h" +#include "ui/gui/help-menu.h" #include "gl/configmake.h" #include "gl/relocatable.h" @@ -34,20 +36,105 @@ /* Try to open html documentation uri via the default browser on the operating system */ #ifdef __APPLE__ -#define HTMLOPENARGV {"open", 0, 0} +#define HTMLOPENAPP "open" #elif _WIN32 -#define HTMLOPENARGV {"wscript", 0, 0} +#define HTMLOPENAPP "wscript" #else -#define HTMLOPENARGV {"xdg-open", 0, 0} +#define HTMLOPENAPP "xdg-open" #endif static const gchar *artists[] = { "Bastián Díaz", "Hugo Alejandro", NULL}; +/* Opening the htmluri in windows via cmd /start uri opens + the windows command shell for a moment. The alternative is + to start a script via wscript. This will not be visible*/ +#ifdef _WIN32 +static gboolean +open_windows_help (const gchar *helpuri, GError **err) +{ + SHELLEXECUTEINFOA info; + memset (&info, 0, sizeof (info)); + + info.cbSize = sizeof (info); + info.fMask = SEE_MASK_FLAG_NO_UI; + info.lpVerb = "open"; + info.lpFile = helpuri; + info.nShow = SW_SHOWNORMAL; + + BOOL ret = ShellExecuteExA (&info); + + if (ret) + return TRUE; + + /* Contrary to what the microsoft documentation indicates, ShellExecuteExA does + not seem to setLastError. So we have to deal with errors ourselves here. */ + const char *msg = 0; + switch (GPOINTER_TO_INT (info.hInstApp)) + { + case SE_ERR_FNF: + msg = "File not found"; + break; + case SE_ERR_PNF: + msg = "Path not found"; + break; + case SE_ERR_ACCESSDENIED: + msg = "Access denied"; + break; + case SE_ERR_OOM: + msg = "Out of memory"; + break; + case SE_ERR_DLLNOTFOUND: + msg = "Dynamic-link library not found"; + break; + case SE_ERR_SHARE: + msg = "Cannot share an open file"; + break; + case SE_ERR_ASSOCINCOMPLETE: + msg = "File association information not complete"; + break; + case SE_ERR_DDETIMEOUT: + msg = "DDE operation timed out"; + break; + case SE_ERR_DDEFAIL: + msg = "DDE operation failed"; + break; + case SE_ERR_DDEBUSY: + msg = "DDE operation is busy"; + break; + case SE_ERR_NOASSOC: + msg = "File association not available"; + break; + default: + msg = "Unknown error"; + break; + } + + *err = g_error_new_literal (g_quark_from_static_string ("pspp-help-error"), + 0, + msg); + + return FALSE; +} + +static gboolean +on_activate_link (GtkAboutDialog *label, + gchar *uri, + gpointer user_data) +{ + return open_windows_help (uri, NULL); +} +#endif + static void about_new (GtkMenuItem *mmm, GtkWindow *parent) { GtkWidget *about = gtk_about_dialog_new (); +#ifdef _WIN32 + /* The default handler for Windows doesn't appear to work. */ + g_signal_connect (about, "activate-link", G_CALLBACK (on_activate_link), parent); +#endif + gtk_about_dialog_set_logo_icon_name (GTK_ABOUT_DIALOG (about), "pspp"); gtk_window_set_icon_name (GTK_WINDOW (about), "pspp"); @@ -72,13 +159,13 @@ about_new (GtkMenuItem *mmm, GtkWindow *parent) gtk_about_dialog_set_copyright (GTK_ABOUT_DIALOG (about), "Free Software Foundation"); - gtk_about_dialog_set_translator_credits + gtk_about_dialog_set_translator_credits ( GTK_ABOUT_DIALOG (about), /* TRANSLATORS: Do not translate this string. Instead, put the names of the people who have helped in the translation. */ _("translator-credits") - ); +); gtk_window_set_transient_for (GTK_WINDOW (about), parent); @@ -90,39 +177,6 @@ about_new (GtkMenuItem *mmm, GtkWindow *parent) } -/* Opening the htmluri in windows via cmd /start uri opens - the windows command shell for a moment. The alternative is - to start a script via wscript. This will not be visible*/ -#ifdef _WIN32 -static gboolean open_windows_help (const gchar *helpuri, - GError **err) -{ - gchar *vbsfilename = NULL; - gchar *vbs = NULL; - gboolean result; - vbsfilename = g_build_filename (g_get_tmp_dir (), - "pspp-help-open.vbs", - NULL); - vbs = g_strdup_printf("CreateObject(\"WScript.Shell\").Run \"%s\"", - helpuri); - result = g_file_set_contents (vbsfilename, - vbs, - strlen(vbs), - err); - g_free (vbs); - if (!result) - goto error; - - gchar *argv[] = {"wscript",vbsfilename,0}; - - result = g_spawn_async (NULL, argv, - NULL, G_SPAWN_SEARCH_PATH, - NULL, NULL, NULL, err); - error: - g_free (vbsfilename); - return result; -} -#endif /* Open the manual at PAGE with the following priorities First: local yelp help system @@ -131,33 +185,28 @@ static gboolean open_windows_help (const gchar *helpuri, void online_help (const char *page) { - GError *err = NULL; GError *htmlerr = NULL; - gchar *argv[3] = { "yelp", 0, 0}; - gchar *htmlargv[3] = HTMLOPENARGV; gchar *htmlfilename = NULL; gchar *htmlfullname = NULL; gchar *htmluri = NULL; if (page == NULL) { - argv[1] = g_strdup_printf ("file://%s", relocate (DOCDIR "/pspp.xml")); htmlfilename = g_strdup ("index.html"); } else { gchar **tokens = NULL; const int maxtokens = 5; - int idx = 0; - argv[1] = g_strdup_printf ("file://%s#%s", - relocate (DOCDIR "/pspp.xml"), page); + int idx ; /* The page will be translated to the htmlfilename page htmlfilename GRAPH#SCATTERPLOT SCATTERPLOT.html QUICK-CLUSTER QUICK-CLUSTER.html which is valid for the multiple page html doc*/ tokens = g_strsplit (page, "#", maxtokens); - for(;tokens[idx] && idx < maxtokens;idx++); + for (idx = 0; idx < maxtokens && tokens[idx]; idx++) + ; htmlfilename = g_strdup_printf ("%s.html", tokens[idx-1]); g_strfreev (tokens); } @@ -180,38 +229,26 @@ online_help (const char *page) htmlfilename); g_free (htmlfullname); g_free (htmlfilename); - htmlargv[1] = htmluri; - - /* The following **SHOULD** work but it does not on 28.5.2016 - g_app_info_launch_default_for_uri (htmluri, NULL, &err); - osx: wine is started to launch the uri... - windows: not so bad, but the first access does not work*/ - if (! (g_spawn_async (NULL, argv, - NULL, G_SPAWN_SEARCH_PATH, - NULL, NULL, NULL, &err) || #ifdef _WIN32 - open_windows_help (htmluri, &htmlerr)) + bool ok = open_windows_help (htmluri, &htmlerr); #else - g_spawn_async (NULL, htmlargv, - NULL, G_SPAWN_SEARCH_PATH, - NULL, NULL, NULL, &htmlerr)) + gchar *htmlargv[3] = {CONST_CAST (char *, HTMLOPENAPP), htmluri, 0}; + bool ok = g_spawn_async (NULL, htmlargv, + NULL, G_SPAWN_SEARCH_PATH, + NULL, NULL, NULL, &htmlerr); #endif - ) + if (!ok) { - msg (ME, _("Cannot open reference manual via yelp: %s. " - "Cannot open via html: %s " + msg (ME, _("Cannot open via html: %s " "with uri: %s " "The PSSP manual is also available at %s"), - err->message, htmlerr->message, htmluri, PACKAGE_URL "documentation.html"); } - g_free (argv[1]); g_free (htmluri); - g_clear_error (&err); g_clear_error (&htmlerr); } @@ -231,7 +268,7 @@ create_help_menu (GtkWindow *toplevel) GtkWidget *help_ref = gtk_menu_item_new_with_mnemonic (_("_Reference Manual")); GtkAccelGroup *accel_group = gtk_accel_group_new (); - + gtk_window_add_accel_group (toplevel, accel_group); gtk_widget_add_accelerator (help_ref, @@ -244,10 +281,12 @@ create_help_menu (GtkWindow *toplevel) g_signal_connect (help_about, "activate", G_CALLBACK (about_new), toplevel); g_signal_connect (help_ref, "activate", G_CALLBACK (reference_manual), NULL); - + g_object_set (menuitem, "submenu", menu, NULL); gtk_widget_show_all (menuitem); - + + g_object_unref (accel_group); + return menuitem; }