Add "x" prefix to calls to plain malloc(), calloc(), strdup(), realloc().
[pspp-builds.git] / src / ui / gui / helper.c
index b1fdb27193df933ab583420693bd6b6b5f8481ec..c70f8f7c215b15cb31b636c1e10b3bd53be416c6 100644 (file)
@@ -1,5 +1,5 @@
 /* PSPPIRE - a graphical user interface for PSPP.
-   Copyright (C) 2007  Free Software Foundation
+   Copyright (C) 2007, 2009  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
@@ -120,7 +120,7 @@ builder_new_real (const gchar *name)
 
 
 GObject *
-get_object_assert (GtkBuilder *builder, const gchar *name)
+get_object_assert (GtkBuilder *builder, const gchar *name, GType type)
 {
   GObject *o = NULL;
   g_assert (name);
@@ -130,35 +130,53 @@ get_object_assert (GtkBuilder *builder, const gchar *name)
   if ( !o )
     g_critical ("Object \"%s\" could not be found\n", name);
 
+  if ( ! g_type_is_a (G_OBJECT_TYPE (o), type))
+   {
+     g_critical ("Object \"%s\" was expected to have type %s, but in fact has type %s", 
+       name, g_type_name (type), G_OBJECT_TYPE_NAME (o));
+   }
+
   return o;
 }
 
+
+GtkAction *
+get_action_assert (GtkBuilder *builder, const gchar *name)
+{
+  return GTK_ACTION (get_object_assert (builder, name, GTK_TYPE_ACTION));
+}
+
 GtkWidget *
-get_widget_assert (gpointer x, const gchar *name)
+get_widget_assert (GtkBuilder *builder, const gchar *name)
 {
-  GObject *obj = G_OBJECT (x);
-  GtkWidget *w = NULL;
-  g_assert (name);
+  return GTK_WIDGET (get_object_assert (builder, name, GTK_TYPE_WIDGET));
+}
+
+/* This function must be used whenever a filename generated by glib,
+   (eg, from gtk_file_chooser_get_filename) and passed to the C library,
+   (eg through a pspp syntax string).
+*/
+gchar *
+convert_glib_filename_to_system_filename (const gchar *fname, GError **err)
+{
+  gchar *output_name;
 
-  if (GTK_IS_BUILDER (obj))
-    w = GTK_WIDGET (gtk_builder_get_object (GTK_BUILDER (obj), name));
+#ifdef G_OS_WIN32
+  const gchar *target_encoding;
+  gchar *utf8_name = NULL;
 
-  if (GLADE_IS_XML (obj))
-    w = glade_xml_get_widget (GLADE_XML (obj), name);
+  g_get_charset (&target_encoding);
 
-  if ( !w )
-    g_critical ("Widget \"%s\" could not be found\n", name);
+  output_name = g_convert (fname, -1, target_encoding,
+                       "UTF-8", NULL, NULL, err);
+#else
+  output_name = xstrdup (fname);
+#endif
 
-  return w;
+  return output_name;
 }
 
-/* Converts a string in the pspp locale to utf-8.
-   The return value must be freed when no longer required*/
-gchar *
-pspp_locale_to_utf8 (const gchar *text, gssize len, GError **err)
-{
-  return recode_string (CONV_PSPP_TO_UTF8, text, len);
-}
+
 
 #define _(msgid) gettext (msgid)
 #define N_(msgid) msgid
@@ -179,8 +197,8 @@ give_help (void)
   gtk_widget_destroy (dialog);
 }
 
-static void
-connect_help_builder (GtkBuilder *xml)
+void
+connect_help (GtkBuilder *xml)
 {
   GSList *helps = gtk_builder_get_objects (xml);
 
@@ -201,7 +219,7 @@ connect_help_builder (GtkBuilder *xml)
 
          if ( 0 == strcmp ("help_button", s))
            {
-           g_signal_connect (GTK_WIDGET (o), "clicked", give_help, 0);
+           g_signal_connect (o, "clicked", give_help, 0);
            }
        }
     }
@@ -209,44 +227,19 @@ connect_help_builder (GtkBuilder *xml)
   g_slist_free (helps);
 }
 
-static void
-connect_help_glade (GladeXML *xml)
-{
-  GList *helps = glade_xml_get_widget_prefix (xml, "help_button_");
-
-  GList *i;
-  for ( i = g_list_first (helps); i ; i = g_list_next (i))
-    g_signal_connect (GTK_WIDGET (i->data), "clicked", give_help, 0);
-
-  g_list_free (helps);
-}
-
-
-void
-connect_help (gpointer xml)
-{
-  if (GTK_IS_BUILDER (xml))
-    connect_help_builder (GTK_BUILDER (xml));
-
-  else if (GLADE_IS_XML (xml))
-    connect_help_glade (GLADE_XML (xml));
-
-  else
-    {
-      g_error ("XML of type %s", G_OBJECT_TYPE_NAME (xml));
-    }
-}
-
-
 
 void
 reference_manual (GtkMenuItem *menu, gpointer data)
 {
   GError *err = NULL;
-  if ( ! g_spawn_command_line_async ("yelp info:pspp", &err) )
+  gchar *cmd = g_strdup_printf ("yelp file://%s", relocate (DOCDIR "/pspp.xml"));
+
+  if ( ! g_spawn_command_line_async (cmd, &err) )
     {
       msg (ME, _("Cannot open reference manual: %s"), err->message);
     }
+
+  g_free (cmd);
   g_clear_error (&err);
 }