pintos-os.org Git - pspp/blob - src/ui/gui/helper.c

   1 /* PSPPIRE - a graphical user interface for PSPP.
   2    Copyright (C) 2007, 2009  Free Software Foundation
   3
   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.
   8
   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.
  13
  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/>. */
  16
  17
  18 /* This file is a rubbish bin where stuff gets put when it doesn't seem to
  19    belong anywhere else.
  20 */
  21 #include <config.h>
  22
  23 #include        <glib-object.h>
  24
  25 #include <glib.h>
  26 #include "helper.h"
  27 #include "message-dialog.h"
  28 #include <data/format.h>
  29 #include <data/data-in.h>
  30 #include <data/data-out.h>
  31 #include <data/dictionary.h>
  32 #include <data/casereader-provider.h>
  33 #include <libpspp/message.h>
  34 #include "psppire-syntax-window.h"
  35 #include <gtk/gtkbuilder.h>
  36 #include <libpspp/i18n.h>
  37
  38 #include <ctype.h>
  39 #include <string.h>
  40 #include <stdlib.h>
  41 #include <data/settings.h>
  42
  43 #include "psppire-data-store.h"
  44
  45 #include "xalloc.h"
  46
  47 #include <gettext.h>
  48
  49 /* Formats a value according to FORMAT
  50    The returned string must be freed when no longer required */
  51 gchar *
  52 value_to_text (union value v, struct fmt_spec format)
  53 {
  54   gchar *s = 0;
  55
  56   s = g_new (gchar, format.w + 1);
  57   data_out (&v, &format, s);
  58   s[format.w]='\0';
  59   g_strchug (s);
  60
  61   return s;
  62 }
  63
  64
  65
  66 gboolean
  67 text_to_value (const gchar *text, union value *v,
  68               struct fmt_spec format)
  69 {
  70   bool ok;
  71
  72   if ( format.type != FMT_A)
  73     {
  74       if ( ! text ) return FALSE;
  75
  76       {
  77         const gchar *s = text;
  78         while (*s)
  79           {
  80             if ( !isspace (*s))
  81               break;
  82             s++;
  83           }
  84
  85         if ( !*s) return FALSE;
  86       }
  87     }
  88
  89   msg_disable ();
  90   ok = data_in (ss_cstr (text), LEGACY_NATIVE, format.type, 0, 0, 0,
  91                 v, fmt_var_width (&format));
  92   msg_enable ();
  93
  94   return ok;
  95 }
  96
  97
  98 GtkBuilder *
  99 builder_new_real (const gchar *name)
 100 {
 101   GtkBuilder *builder = gtk_builder_new ();
 102
 103   GError *err = NULL;
 104   if ( ! gtk_builder_add_from_file (builder, name,  &err))
 105     {
 106       g_critical ("Couldnt open user interface  file %s: %s", name, err->message);
 107       g_clear_error (&err);
 108     }
 109
 110   return builder;
 111 }
 112
 113
 114 GObject *
 115 get_object_assert (GtkBuilder *builder, const gchar *name, GType type)
 116 {
 117   GObject *o = NULL;
 118   g_assert (name);
 119
 120   o = gtk_builder_get_object (builder, name);
 121
 122   if ( !o )
 123     g_critical ("Object \"%s\" could not be found\n", name);
 124
 125   if ( ! g_type_is_a (G_OBJECT_TYPE (o), type))
 126    {
 127      g_critical ("Object \"%s\" was expected to have type %s, but in fact has type %s",
 128         name, g_type_name (type), G_OBJECT_TYPE_NAME (o));
 129    }
 130
 131   return o;
 132 }
 133
 134
 135 GtkAction *
 136 get_action_assert (GtkBuilder *builder, const gchar *name)
 137 {
 138   return GTK_ACTION (get_object_assert (builder, name, GTK_TYPE_ACTION));
 139 }
 140
 141 GtkWidget *
 142 get_widget_assert (GtkBuilder *builder, const gchar *name)
 143 {
 144   return GTK_WIDGET (get_object_assert (builder, name, GTK_TYPE_WIDGET));
 145 }
 146
 147 /* This function must be used whenever a filename generated by glib,
 148    (eg, from gtk_file_chooser_get_filename) and passed to the C library,
 149    (eg through a pspp syntax string).
 150 */
 151 gchar *
 152 convert_glib_filename_to_system_filename (const gchar *fname, GError **err)
 153 {
 154   gchar *output_name;
 155
 156 #ifdef G_OS_WIN32
 157   const gchar *target_encoding;
 158   gchar *utf8_name = NULL;
 159
 160   g_get_charset (&target_encoding);
 161
 162   output_name = g_convert (fname, -1, target_encoding,
 163                         "UTF-8", NULL, NULL, err);
 164 #else
 165   output_name = xstrdup (fname);
 166 #endif
 167
 168   return output_name;
 169 }
 170
 171
 172
 173 #define _(msgid) gettext (msgid)
 174 #define N_(msgid) msgid
 175
 176
 177 static void
 178 give_help (void)
 179 {
 180   GtkWidget *dialog;
 181
 182   dialog = gtk_message_dialog_new (NULL,
 183                                    GTK_DIALOG_MODAL,
 184                                    GTK_MESSAGE_INFO,
 185                                    GTK_BUTTONS_CLOSE,
 186                                    _("Sorry. The help system hasn't yet "
 187                                      "been implemented."));
 188   gtk_dialog_run (GTK_DIALOG (dialog));
 189   gtk_widget_destroy (dialog);
 190 }
 191
 192 void
 193 connect_help (GtkBuilder *xml)
 194 {
 195   GSList *helps = gtk_builder_get_objects (xml);
 196
 197   GSList *i;
 198   for ( i = helps; i ; i = g_slist_next (i))
 199     {
 200       GObject *o = i->data;
 201       if ( GTK_IS_WIDGET (o) )
 202         {
 203           gchar *name = NULL;
 204           gchar s[12] = {0};
 205           g_object_get (o, "name", &name, NULL);
 206
 207           if ( name)
 208             strncpy (s, name, 11);
 209           s[11] = '\0';
 210
 211
 212           if ( 0 == strcmp ("help_button", s))
 213             {
 214             g_signal_connect (o, "clicked", give_help, 0);
 215             }
 216         }
 217     }
 218
 219   g_slist_free (helps);
 220 }
 221
 222
 223 void
 224 reference_manual (GtkMenuItem *menu, gpointer data)
 225 {
 226   GError *err = NULL;
 227   gchar *cmd = g_strdup_printf ("yelp file://%s", relocate (DOCDIR "/pspp.xml"));
 228
 229   if ( ! g_spawn_command_line_async (cmd, &err) )
 230     {
 231       msg (ME, _("Cannot open reference manual: %s"), err->message);
 232     }
 233
 234   g_free (cmd);
 235   g_clear_error (&err);
 236 }
 237
 238
 239 /* Create a deep copy of SRC */
 240 GtkListStore *
 241 clone_list_store (const GtkListStore *src)
 242 {
 243   GtkTreeIter src_iter;
 244   gboolean ok;
 245   gint i;
 246   const gint n_cols =  gtk_tree_model_get_n_columns (GTK_TREE_MODEL (src));
 247   GType *types = g_malloc (sizeof (*types) *  n_cols);
 248
 249   int row = 0;
 250   GtkListStore *dest;
 251
 252   for (i = 0 ; i < n_cols; ++i )
 253     types[i] = gtk_tree_model_get_column_type (GTK_TREE_MODEL (src), i);
 254
 255   dest = gtk_list_store_newv (n_cols, types);
 256
 257   for (ok = gtk_tree_model_get_iter_first (GTK_TREE_MODEL (src),
 258                                            &src_iter);
 259        ok;
 260        ok = gtk_tree_model_iter_next (GTK_TREE_MODEL (src), &src_iter))
 261     {
 262       GtkTreeIter dest_iter;
 263       gtk_list_store_append  (dest, &dest_iter);
 264
 265       for (i = 0 ; i < n_cols; ++i )
 266         {
 267           GValue val = {0};
 268
 269           gtk_tree_model_get_value (GTK_TREE_MODEL (src), &src_iter, i, &val);
 270           gtk_list_store_set_value (dest, &dest_iter, i, &val);
 271
 272           g_value_unset (&val);
 273         }
 274       row++;
 275     }
 276
 277   g_free (types);
 278
 279   return dest;
 280 }
 281
 282
 283 void
 284 paste_syntax_in_new_window (const gchar *syntax)
 285 {
 286   GtkWidget *se = psppire_syntax_window_new ();
 287
 288   gtk_text_buffer_insert_at_cursor (PSPPIRE_SYNTAX_WINDOW (se)->buffer, syntax, -1);
 289
 290   gtk_widget_show (se);
 291 }