src/ui/gui/builder-wrapper.c

   1 /* PSPPIRE - a graphical user interface for PSPP.
   2    Copyright (C) 2004, 2009, 2010, 2011, 2012  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
  19 #include <config.h>
  20
  21 #include "builder-wrapper.h"
  22
  23
  24 GtkBuilder *
  25 builder_new_real (const gchar *name)
  26 {
  27   GtkBuilder *builder = gtk_builder_new ();
  28
  29   GError *err = NULL;
  30   if ( ! gtk_builder_add_from_file (builder, name,  &err))
  31     {
  32       g_critical ("Couldn\'t open user interface  file %s: %s", name, err->message);
  33       g_clear_error (&err);
  34     }
  35
  36   return builder;
  37 }
  38
  39
  40 GtkBuilder *
  41 builder_new_x (const gchar *obj_name)
  42 {
  43   GtkBuilder *b;
  44   GString *str = g_string_new (PKGDATADIR);
  45   g_string_append (str, "/");
  46   g_string_append (str, obj_name);
  47
  48   b = builder_new_real (relocate (str->str));
  49
  50   g_string_free (str, TRUE);
  51
  52   return b;
  53 }
  54
  55
  56
  57 GObject *
  58 get_object_assert (GtkBuilder *builder, const gchar *name, GType type)
  59 {
  60   GObject *o = NULL;
  61   g_assert (name);
  62
  63   o = gtk_builder_get_object (builder, name);
  64
  65   if ( !o )
  66     g_critical ("Object `%s' could not be found\n", name);
  67   else if ( ! g_type_is_a (G_OBJECT_TYPE (o), type))
  68    {
  69      g_critical ("Object `%s' was expected to have type %s, but in fact has type %s",
  70         name, g_type_name (type), G_OBJECT_TYPE_NAME (o));
  71    }
  72
  73   return o;
  74 }
  75
  76
  77 GtkAction *
  78 get_action_assert (GtkBuilder *builder, const gchar *name)
  79 {
  80   return GTK_ACTION (get_object_assert (builder, name, GTK_TYPE_ACTION));
  81 }
  82
  83 GtkWidget *
  84 get_widget_assert (GtkBuilder *builder, const gchar *name)
  85 {
  86   GtkWidget *w = GTK_WIDGET (get_object_assert (builder, name, GTK_TYPE_WIDGET));
  87
  88   g_object_set (w, "name", name, NULL);
  89
  90   return w;
  91 }