1 /* PSPPIRE - a graphical user interface for PSPP.
2 Copyright (C) 2007, 2009, 2010 Free Software Foundation
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.
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.
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/>. */
18 /* This file is a rubbish bin where stuff gets put when it doesn't seem to
23 #include <glib-object.h>
27 #include <data/format.h>
28 #include <data/data-in.h>
29 #include <data/data-out.h>
30 #include <data/dictionary.h>
31 #include <data/casereader-provider.h>
32 #include <libpspp/message.h>
33 #include "psppire-syntax-window.h"
34 #include <gtk/gtkbuilder.h>
35 #include <libpspp/i18n.h>
40 #include <data/settings.h>
42 #include "psppire-data-store.h"
44 #include "gl/configmake.h"
49 /* Formats a value according to FORMAT
50 The returned string must be freed when no longer required */
52 value_to_text (union value v, const PsppireDict *dict, struct fmt_spec format)
56 s = data_out (&v, dict_get_encoding (dict->dict), &format);
63 /* Converts TEXT to a value.
65 VAL will be initialised and filled by this function.
66 It is the caller's responsibility to destroy VAL when no longer needed.
67 VAR and DICT must be the variable and dictionary with which VAL
70 On success, VAL is returned, NULL otherwise.
73 text_to_value (const gchar *text,
74 const PsppireDict *dict,
75 const struct variable *var,
78 const struct fmt_spec *format = var_get_print_format (var);
79 int width = var_get_width (var);
81 if ( format->type != FMT_A)
83 if ( ! text ) return NULL;
86 const gchar *s = text;
94 if ( !*s) return NULL;
98 value_init (val, width);
100 data_in (ss_cstr (text), UTF8, format->type, 0, 0, 0,
110 builder_new_real (const gchar *name)
112 GtkBuilder *builder = gtk_builder_new ();
115 if ( ! gtk_builder_add_from_file (builder, name, &err))
117 g_critical ("Couldnt open user interface file %s: %s", name, err->message);
118 g_clear_error (&err);
126 get_object_assert (GtkBuilder *builder, const gchar *name, GType type)
131 o = gtk_builder_get_object (builder, name);
134 g_critical ("Object \"%s\" could not be found\n", name);
135 else if ( ! g_type_is_a (G_OBJECT_TYPE (o), type))
137 g_critical ("Object \"%s\" was expected to have type %s, but in fact has type %s",
138 name, g_type_name (type), G_OBJECT_TYPE_NAME (o));
146 get_action_assert (GtkBuilder *builder, const gchar *name)
148 return GTK_ACTION (get_object_assert (builder, name, GTK_TYPE_ACTION));
152 get_widget_assert (GtkBuilder *builder, const gchar *name)
154 return GTK_WIDGET (get_object_assert (builder, name, GTK_TYPE_WIDGET));
157 /* This function must be used whenever a filename generated by glib,
158 (eg, from gtk_file_chooser_get_filename) and passed to the C library,
159 (eg through a pspp syntax string).
162 convert_glib_filename_to_system_filename (const gchar *fname, GError **err)
167 const gchar *target_encoding;
168 gchar *utf8_name = NULL;
170 g_get_charset (&target_encoding);
172 output_name = g_convert (fname, -1, target_encoding,
173 "UTF-8", NULL, NULL, err);
175 output_name = xstrdup (fname);
183 #define _(msgid) gettext (msgid)
184 #define N_(msgid) msgid
192 dialog = gtk_message_dialog_new (NULL,
196 _("Sorry. The help system hasn't yet "
197 "been implemented."));
198 gtk_dialog_run (GTK_DIALOG (dialog));
199 gtk_widget_destroy (dialog);
203 connect_help (GtkBuilder *xml)
205 GSList *helps = gtk_builder_get_objects (xml);
208 for ( i = helps; i ; i = g_slist_next (i))
210 GObject *o = i->data;
211 if ( GTK_IS_WIDGET (o) )
215 g_object_get (o, "name", &name, NULL);
218 strncpy (s, name, 11);
222 if ( 0 == strcmp ("help_button", s))
224 g_signal_connect (o, "clicked", give_help, 0);
229 g_slist_free (helps);
234 reference_manual (GtkMenuItem *menu, gpointer data)
237 gchar *cmd = g_strdup_printf ("yelp file://%s", relocate (DOCDIR "/pspp.xml"));
239 if ( ! g_spawn_command_line_async (cmd, &err) )
241 msg (ME, _("Cannot open reference manual: %s. The PSPP user manual is "
243 "http://www.gnu.org/software/pspp/documentation.html"),
248 g_clear_error (&err);
252 /* Create a deep copy of SRC */
254 clone_list_store (const GtkListStore *src)
256 GtkTreeIter src_iter;
259 const gint n_cols = gtk_tree_model_get_n_columns (GTK_TREE_MODEL (src));
260 GType *types = g_malloc (sizeof (*types) * n_cols);
265 for (i = 0 ; i < n_cols; ++i )
266 types[i] = gtk_tree_model_get_column_type (GTK_TREE_MODEL (src), i);
268 dest = gtk_list_store_newv (n_cols, types);
270 for (ok = gtk_tree_model_get_iter_first (GTK_TREE_MODEL (src),
273 ok = gtk_tree_model_iter_next (GTK_TREE_MODEL (src), &src_iter))
275 GtkTreeIter dest_iter;
276 gtk_list_store_append (dest, &dest_iter);
278 for (i = 0 ; i < n_cols; ++i )
282 gtk_tree_model_get_value (GTK_TREE_MODEL (src), &src_iter, i, &val);
283 gtk_list_store_set_value (dest, &dest_iter, i, &val);
285 g_value_unset (&val);
297 paste_syntax_in_new_window (const gchar *syntax)
299 GtkWidget *se = psppire_syntax_window_new ();
301 gtk_text_buffer_insert_at_cursor (PSPPIRE_SYNTAX_WINDOW (se)->buffer, syntax, -1);
303 gtk_widget_show (se);
307 /* gtk_box_pack_start_defaults is deprecated.
308 Therefore we roll our own until a better solution is found */
310 psppire_box_pack_start_defaults (GtkBox *box, GtkWidget *widget)
312 gtk_box_pack_start (box, widget, TRUE, TRUE, 0);