X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Fui%2Fgui%2Fhelper.c;h=9a1172a4db3329fd93f8bbcb75ac0d5a78839764;hb=173d1687aea88e0e5e1b1d8615ed68ebefb15d08;hp=ae645a61477bb867a3c70f557cf92ff759ab62d3;hpb=bc02bc027697df3207f827de722c26d8cc87e824;p=pspp diff --git a/src/ui/gui/helper.c b/src/ui/gui/helper.c index ae645a6147..9a1172a4db 100644 --- a/src/ui/gui/helper.c +++ b/src/ui/gui/helper.c @@ -1,42 +1,87 @@ +/* PSPPIRE - a graphical user interface for PSPP. + Copyright (C) 2007, 2009, 2010 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 + the Free Software Foundation, either version 3 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program. If not, see . */ + + +/* This file is a rubbish bin where stuff gets put when it doesn't seem to + belong anywhere else. +*/ #include +#include + +#include #include "helper.h" +#include #include #include +#include +#include #include - +#include "psppire-syntax-window.h" +#include #include #include #include +#include #include +#include "psppire-data-store.h" +#include "psppire.h" + +#include "gl/configmake.h" +#include "xalloc.h" + +#include + /* Formats a value according to FORMAT The returned string must be freed when no longer required */ gchar * -value_to_text (union value v, struct fmt_spec format) +value_to_text (union value v, const PsppireDict *dict, struct fmt_spec format) { gchar *s = 0; - s = g_new (gchar, format.w + 1); - data_out (&v, &format, s); - s[format.w]='\0'; + s = data_out (&v, dict_get_encoding (dict->dict), &format); g_strchug (s); return s; } +/* Converts TEXT to a value. + + VAL will be initialised and filled by this function. + It is the caller's responsibility to destroy VAL when no longer needed. + VAR and DICT must be the variable and dictionary with which VAL + is associated. -gboolean -text_to_value (const gchar *text, union value *v, - struct fmt_spec format) + On success, VAL is returned, NULL otherwise. +*/ +union value * +text_to_value (const gchar *text, + const PsppireDict *dict, + const struct variable *var, + union value *val) { - bool ok; + const struct fmt_spec *format = var_get_print_format (var); + int width = var_get_width (var); - if ( format.type != FMT_A) + if ( format->type != FMT_A) { - if ( ! text ) return FALSE; + if ( ! text ) return NULL; { const gchar *s = text; @@ -47,38 +92,228 @@ text_to_value (const gchar *text, union value *v, s++; } - if ( !*s) return FALSE; + if ( !*s) return NULL; } } + value_init (val, width); msg_disable (); - ok = data_in (ss_cstr (text), format.type, 0, 0, - v, fmt_var_width (&format)); + data_in (ss_cstr (text), UTF8, format->type, 0, 0, 0, + dict->dict, + val, width); msg_enable (); - return ok; + return val; } -GtkWidget * -get_widget_assert (GladeXML *xml, const gchar *name) +GtkBuilder * +builder_new_real (const gchar *name) { - GtkWidget *w; - g_assert (xml); + GtkBuilder *builder = gtk_builder_new (); + + GError *err = NULL; + if ( ! gtk_builder_add_from_file (builder, name, &err)) + { + g_critical ("Couldnt open user interface file %s: %s", name, err->message); + g_clear_error (&err); + } + + return builder; +} + + +GObject * +get_object_assert (GtkBuilder *builder, const gchar *name, GType type) +{ + GObject *o = NULL; g_assert (name); - w = glade_xml_get_widget (xml, name); + o = gtk_builder_get_object (builder, name); + + if ( !o ) + g_critical ("Object `%s' could not be found\n", name); + else 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 (GtkBuilder *builder, const gchar *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; + +#ifdef G_OS_WIN32 + const gchar *target_encoding; + gchar *utf8_name = NULL; + + g_get_charset (&target_encoding); + + output_name = g_convert (fname, -1, target_encoding, + "UTF-8", NULL, NULL, err); +#else + output_name = xstrdup (fname); +#endif + + return output_name; +} + + + +#define _(msgid) gettext (msgid) +#define N_(msgid) msgid + - if ( !w ) - g_warning ("Widget \"%s\" could not be found\n", name); +static void +give_help (void) +{ + GtkWidget *dialog; - return w; + dialog = gtk_message_dialog_new (NULL, + GTK_DIALOG_MODAL, + GTK_MESSAGE_INFO, + GTK_BUTTONS_CLOSE, + _("Sorry. The help system hasn't yet " + "been implemented.")); + gtk_dialog_run (GTK_DIALOG (dialog)); + gtk_widget_destroy (dialog); } -/* Converts a string in the pspp locale to utf-8 */ -char * -pspp_locale_to_utf8 (const gchar *text, gssize len, GError **err) +void +connect_help (GtkBuilder *xml) { - return recode_string (CONV_PSPP_TO_UTF8, text, len); + GSList *helps = gtk_builder_get_objects (xml); + + GSList *i; + for ( i = helps; i ; i = g_slist_next (i)) + { + GObject *o = i->data; + if ( GTK_IS_WIDGET (o) ) + { + gchar *name = NULL; + gchar s[12] = {0}; + g_object_get (o, "name", &name, NULL); + + if ( name) + strncpy (s, name, 11); + s[11] = '\0'; + + + if ( 0 == strcmp ("help_button", s)) + { + g_signal_connect (o, "clicked", give_help, 0); + } + } + } + + g_slist_free (helps); } + +/* Create a deep copy of SRC */ +GtkListStore * +clone_list_store (const GtkListStore *src) +{ + GtkTreeIter src_iter; + gboolean ok; + gint i; + const gint n_cols = gtk_tree_model_get_n_columns (GTK_TREE_MODEL (src)); + GType *types = g_malloc (sizeof (*types) * n_cols); + + int row = 0; + GtkListStore *dest; + + for (i = 0 ; i < n_cols; ++i ) + types[i] = gtk_tree_model_get_column_type (GTK_TREE_MODEL (src), i); + + dest = gtk_list_store_newv (n_cols, types); + + for (ok = gtk_tree_model_get_iter_first (GTK_TREE_MODEL (src), + &src_iter); + ok; + ok = gtk_tree_model_iter_next (GTK_TREE_MODEL (src), &src_iter)) + { + GtkTreeIter dest_iter; + gtk_list_store_append (dest, &dest_iter); + + for (i = 0 ; i < n_cols; ++i ) + { + GValue val = {0}; + + gtk_tree_model_get_value (GTK_TREE_MODEL (src), &src_iter, i, &val); + gtk_list_store_set_value (dest, &dest_iter, i, &val); + + g_value_unset (&val); + } + row++; + } + + g_free (types); + + return dest; +} + + + + +static gboolean +on_delete (GtkWindow *window, GdkEvent *e, GtkWindow **addr) +{ + *addr = NULL; + + return FALSE; +} + +void +paste_syntax_to_window (const gchar *syntax) +{ + static GtkWidget *the_syntax_pasteboard = NULL; + + GtkTextBuffer *buffer = NULL; + + if ( NULL == the_syntax_pasteboard) + { + the_syntax_pasteboard = psppire_syntax_window_new (); + g_signal_connect (the_syntax_pasteboard, "delete-event", G_CALLBACK (on_delete), + &the_syntax_pasteboard); + } + + buffer = GTK_TEXT_BUFFER (PSPPIRE_SYNTAX_WINDOW (the_syntax_pasteboard)->buffer); + + gtk_text_buffer_begin_user_action (buffer); + gtk_text_buffer_insert_at_cursor (buffer, syntax, -1); + gtk_text_buffer_insert_at_cursor (buffer, "\n", 1); + gtk_text_buffer_end_user_action (buffer); + + gtk_widget_show (the_syntax_pasteboard); +} + + +/* gtk_box_pack_start_defaults is deprecated. + Therefore we roll our own until a better solution is found */ +void +psppire_box_pack_start_defaults (GtkBox *box, GtkWidget *widget) +{ + gtk_box_pack_start (box, widget, TRUE, TRUE, 0); +}