Blame gtk/gtkobject.c

Packit Service fb6fa5
/* GTK - The GIMP Toolkit
Packit Service fb6fa5
 * Copyright (C) 1995-1997 Peter Mattis, Spencer Kimball and Josh MacDonald
Packit Service fb6fa5
 *
Packit Service fb6fa5
 * This library is free software; you can redistribute it and/or
Packit Service fb6fa5
 * modify it under the terms of the GNU Lesser General Public
Packit Service fb6fa5
 * License as published by the Free Software Foundation; either
Packit Service fb6fa5
 * version 2 of the License, or (at your option) any later version.
Packit Service fb6fa5
 *
Packit Service fb6fa5
 * This library is distributed in the hope that it will be useful,
Packit Service fb6fa5
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
Packit Service fb6fa5
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
Packit Service fb6fa5
 * Lesser General Public License for more details.
Packit Service fb6fa5
 *
Packit Service fb6fa5
 * You should have received a copy of the GNU Lesser General Public
Packit Service fb6fa5
 * License along with this library; if not, write to the
Packit Service fb6fa5
 * Free Software Foundation, Inc., 59 Temple Place - Suite 330,
Packit Service fb6fa5
 * Boston, MA 02111-1307, USA.
Packit Service fb6fa5
 */
Packit Service fb6fa5
Packit Service fb6fa5
/*
Packit Service fb6fa5
 * Modified by the GTK+ Team and others 1997-2000.  See the AUTHORS
Packit Service fb6fa5
 * file for a list of people on the GTK+ Team.  See the ChangeLog
Packit Service fb6fa5
 * files for a list of changes.  These files are distributed with
Packit Service fb6fa5
 * GTK+ at ftp://ftp.gtk.org/pub/gtk/. 
Packit Service fb6fa5
 */
Packit Service fb6fa5
Packit Service fb6fa5
#include "config.h"
Packit Service fb6fa5
Packit Service fb6fa5
#include <stdarg.h>
Packit Service fb6fa5
#include <string.h>
Packit Service fb6fa5
#include <stdio.h>
Packit Service fb6fa5
Packit Service fb6fa5
#undef GTK_DISABLE_DEPRECATED
Packit Service fb6fa5
Packit Service fb6fa5
#include "gtkobject.h"
Packit Service fb6fa5
#include "gtkintl.h"
Packit Service fb6fa5
#include "gtkmarshalers.h"
Packit Service fb6fa5
#include "gtkprivate.h"
Packit Service fb6fa5
Packit Service fb6fa5
#include "gtkalias.h"
Packit Service fb6fa5
Packit Service fb6fa5
Packit Service fb6fa5
enum {
Packit Service fb6fa5
  DESTROY,
Packit Service fb6fa5
  LAST_SIGNAL
Packit Service fb6fa5
};
Packit Service fb6fa5
enum {
Packit Service fb6fa5
  PROP_0,
Packit Service fb6fa5
  PROP_USER_DATA
Packit Service fb6fa5
};
Packit Service fb6fa5
Packit Service fb6fa5
Packit Service fb6fa5
static void       gtk_object_base_class_init     (GtkObjectClass *class);
Packit Service fb6fa5
static void       gtk_object_base_class_finalize (GtkObjectClass *class);
Packit Service fb6fa5
static void       gtk_object_class_init          (GtkObjectClass *klass);
Packit Service fb6fa5
static void       gtk_object_init                (GtkObject      *object,
Packit Service fb6fa5
						  GtkObjectClass *klass);
Packit Service fb6fa5
static void	  gtk_object_set_property	 (GObject	 *object,
Packit Service fb6fa5
						  guint           property_id,
Packit Service fb6fa5
						  const GValue   *value,
Packit Service fb6fa5
						  GParamSpec     *pspec);
Packit Service fb6fa5
static void	  gtk_object_get_property	 (GObject	 *object,
Packit Service fb6fa5
						  guint           property_id,
Packit Service fb6fa5
						  GValue         *value,
Packit Service fb6fa5
						  GParamSpec     *pspec);
Packit Service fb6fa5
static void       gtk_object_dispose            (GObject        *object);
Packit Service fb6fa5
static void       gtk_object_real_destroy        (GtkObject      *object);
Packit Service fb6fa5
static void       gtk_object_finalize            (GObject        *object);
Packit Service fb6fa5
static void       gtk_object_notify_weaks        (GtkObject      *object);
Packit Service fb6fa5
Packit Service fb6fa5
static gpointer    parent_class = NULL;
Packit Service fb6fa5
static guint       object_signals[LAST_SIGNAL] = { 0 };
Packit Service fb6fa5
static GQuark      quark_weakrefs = 0;
Packit Service fb6fa5
Packit Service fb6fa5
Packit Service fb6fa5
/****************************************************
Packit Service fb6fa5
 * GtkObject type, class and instance initialization
Packit Service fb6fa5
 *
Packit Service fb6fa5
 ****************************************************/
Packit Service fb6fa5
Packit Service fb6fa5
GType
Packit Service fb6fa5
gtk_object_get_type (void)
Packit Service fb6fa5
{
Packit Service fb6fa5
  static GType object_type = 0;
Packit Service fb6fa5
Packit Service fb6fa5
  if (!object_type)
Packit Service fb6fa5
    {
Packit Service fb6fa5
      const GTypeInfo object_info =
Packit Service fb6fa5
      {
Packit Service fb6fa5
	sizeof (GtkObjectClass),
Packit Service fb6fa5
	(GBaseInitFunc) gtk_object_base_class_init,
Packit Service fb6fa5
	(GBaseFinalizeFunc) gtk_object_base_class_finalize,
Packit Service fb6fa5
	(GClassInitFunc) gtk_object_class_init,
Packit Service fb6fa5
	NULL,		/* class_finalize */
Packit Service fb6fa5
	NULL,		/* class_data */
Packit Service fb6fa5
	sizeof (GtkObject),
Packit Service fb6fa5
	16,		/* n_preallocs */
Packit Service fb6fa5
	(GInstanceInitFunc) gtk_object_init,
Packit Service fb6fa5
	NULL,		/* value_table */
Packit Service fb6fa5
      };
Packit Service fb6fa5
      
Packit Service fb6fa5
      object_type = g_type_register_static (G_TYPE_INITIALLY_UNOWNED, I_("GtkObject"), 
Packit Service fb6fa5
					    &object_info, G_TYPE_FLAG_ABSTRACT);
Packit Service fb6fa5
    }
Packit Service fb6fa5
Packit Service fb6fa5
  return object_type;
Packit Service fb6fa5
}
Packit Service fb6fa5
Packit Service fb6fa5
static void
Packit Service fb6fa5
gtk_object_base_class_init (GtkObjectClass *class)
Packit Service fb6fa5
{
Packit Service fb6fa5
  /* reset instance specifc methods that don't get inherited */
Packit Service fb6fa5
  class->get_arg = NULL;
Packit Service fb6fa5
  class->set_arg = NULL;
Packit Service fb6fa5
}
Packit Service fb6fa5
Packit Service fb6fa5
static void
Packit Service fb6fa5
gtk_object_base_class_finalize (GtkObjectClass *class)
Packit Service fb6fa5
{
Packit Service fb6fa5
}
Packit Service fb6fa5
Packit Service fb6fa5
static inline gboolean
Packit Service fb6fa5
gtk_arg_set_from_value (GtkArg       *arg,
Packit Service fb6fa5
			const GValue *value,
Packit Service fb6fa5
			gboolean      copy_string)
Packit Service fb6fa5
{
Packit Service fb6fa5
  switch (G_TYPE_FUNDAMENTAL (arg->type))
Packit Service fb6fa5
    {
Packit Service fb6fa5
    case G_TYPE_CHAR:           GTK_VALUE_CHAR (*arg) = g_value_get_char (value);       break;
Packit Service fb6fa5
    case G_TYPE_UCHAR:          GTK_VALUE_UCHAR (*arg) = g_value_get_uchar (value);     break;
Packit Service fb6fa5
    case G_TYPE_BOOLEAN:        GTK_VALUE_BOOL (*arg) = g_value_get_boolean (value);    break;
Packit Service fb6fa5
    case G_TYPE_INT:            GTK_VALUE_INT (*arg) = g_value_get_int (value);         break;
Packit Service fb6fa5
    case G_TYPE_UINT:           GTK_VALUE_UINT (*arg) = g_value_get_uint (value);       break;
Packit Service fb6fa5
    case G_TYPE_LONG:           GTK_VALUE_LONG (*arg) = g_value_get_long (value);       break;
Packit Service fb6fa5
    case G_TYPE_ULONG:          GTK_VALUE_ULONG (*arg) = g_value_get_ulong (value);     break;
Packit Service fb6fa5
    case G_TYPE_ENUM:           GTK_VALUE_ENUM (*arg) = g_value_get_enum (value);       break;
Packit Service fb6fa5
    case G_TYPE_FLAGS:          GTK_VALUE_FLAGS (*arg) = g_value_get_flags (value);     break;
Packit Service fb6fa5
    case G_TYPE_FLOAT:          GTK_VALUE_FLOAT (*arg) = g_value_get_float (value);     break;
Packit Service fb6fa5
    case G_TYPE_DOUBLE:         GTK_VALUE_DOUBLE (*arg) = g_value_get_double (value);   break;
Packit Service fb6fa5
    case G_TYPE_BOXED:          GTK_VALUE_BOXED (*arg) = g_value_get_boxed (value);     break;
Packit Service fb6fa5
    case G_TYPE_POINTER:        GTK_VALUE_POINTER (*arg) = g_value_get_pointer (value); break;
Packit Service fb6fa5
    case G_TYPE_OBJECT:         GTK_VALUE_POINTER (*arg) = g_value_get_object (value);  break;
Packit Service fb6fa5
    case G_TYPE_STRING:         if (copy_string)
Packit Service fb6fa5
      GTK_VALUE_STRING (*arg) = g_value_dup_string (value);
Packit Service fb6fa5
    else
Packit Service fb6fa5
      GTK_VALUE_STRING (*arg) = (char *) g_value_get_string (value);
Packit Service fb6fa5
    break;
Packit Service fb6fa5
    default:
Packit Service fb6fa5
      return FALSE;
Packit Service fb6fa5
    }
Packit Service fb6fa5
  return TRUE;
Packit Service fb6fa5
}
Packit Service fb6fa5
Packit Service fb6fa5
static inline gboolean
Packit Service fb6fa5
gtk_arg_to_value (GtkArg *arg,
Packit Service fb6fa5
		  GValue *value)
Packit Service fb6fa5
{
Packit Service fb6fa5
  switch (G_TYPE_FUNDAMENTAL (arg->type))
Packit Service fb6fa5
    {
Packit Service fb6fa5
    case G_TYPE_CHAR:           g_value_set_char (value, GTK_VALUE_CHAR (*arg));        break;
Packit Service fb6fa5
    case G_TYPE_UCHAR:          g_value_set_uchar (value, GTK_VALUE_UCHAR (*arg));      break;
Packit Service fb6fa5
    case G_TYPE_BOOLEAN:        g_value_set_boolean (value, GTK_VALUE_BOOL (*arg));     break;
Packit Service fb6fa5
    case G_TYPE_INT:            g_value_set_int (value, GTK_VALUE_INT (*arg));          break;
Packit Service fb6fa5
    case G_TYPE_UINT:           g_value_set_uint (value, GTK_VALUE_UINT (*arg));        break;
Packit Service fb6fa5
    case G_TYPE_LONG:           g_value_set_long (value, GTK_VALUE_LONG (*arg));        break;
Packit Service fb6fa5
    case G_TYPE_ULONG:          g_value_set_ulong (value, GTK_VALUE_ULONG (*arg));      break;
Packit Service fb6fa5
    case G_TYPE_ENUM:           g_value_set_enum (value, GTK_VALUE_ENUM (*arg));        break;
Packit Service fb6fa5
    case G_TYPE_FLAGS:          g_value_set_flags (value, GTK_VALUE_FLAGS (*arg));      break;
Packit Service fb6fa5
    case G_TYPE_FLOAT:          g_value_set_float (value, GTK_VALUE_FLOAT (*arg));      break;
Packit Service fb6fa5
    case G_TYPE_DOUBLE:         g_value_set_double (value, GTK_VALUE_DOUBLE (*arg));    break;
Packit Service fb6fa5
    case G_TYPE_STRING:         g_value_set_string (value, GTK_VALUE_STRING (*arg));    break;
Packit Service fb6fa5
    case G_TYPE_BOXED:          g_value_set_boxed (value, GTK_VALUE_BOXED (*arg));      break;
Packit Service fb6fa5
    case G_TYPE_POINTER:        g_value_set_pointer (value, GTK_VALUE_POINTER (*arg));  break;
Packit Service fb6fa5
    case G_TYPE_OBJECT:         g_value_set_object (value, GTK_VALUE_POINTER (*arg));   break;
Packit Service fb6fa5
    default:
Packit Service fb6fa5
      return FALSE;
Packit Service fb6fa5
    }
Packit Service fb6fa5
  return TRUE;
Packit Service fb6fa5
}
Packit Service fb6fa5
Packit Service fb6fa5
static void
Packit Service fb6fa5
gtk_arg_proxy_set_property (GObject      *object,
Packit Service fb6fa5
			    guint         property_id,
Packit Service fb6fa5
			    const GValue *value,
Packit Service fb6fa5
			    GParamSpec   *pspec)
Packit Service fb6fa5
{
Packit Service fb6fa5
  GtkObjectClass *class = g_type_class_peek (pspec->owner_type);
Packit Service fb6fa5
  GtkArg arg;
Packit Service fb6fa5
Packit Service fb6fa5
  g_return_if_fail (class->set_arg != NULL);
Packit Service fb6fa5
Packit Service fb6fa5
  memset (&arg, 0, sizeof (arg));
Packit Service fb6fa5
  arg.type = G_VALUE_TYPE (value);
Packit Service fb6fa5
  gtk_arg_set_from_value (&arg, value, FALSE);
Packit Service fb6fa5
  arg.name = pspec->name;
Packit Service fb6fa5
  class->set_arg (GTK_OBJECT (object), &arg, property_id);
Packit Service fb6fa5
}
Packit Service fb6fa5
Packit Service fb6fa5
static void
Packit Service fb6fa5
gtk_arg_proxy_get_property (GObject     *object,
Packit Service fb6fa5
			    guint        property_id,
Packit Service fb6fa5
			    GValue      *value,
Packit Service fb6fa5
			    GParamSpec  *pspec)
Packit Service fb6fa5
{
Packit Service fb6fa5
  GtkObjectClass *class = g_type_class_peek (pspec->owner_type);
Packit Service fb6fa5
  GtkArg arg;
Packit Service fb6fa5
Packit Service fb6fa5
  g_return_if_fail (class->get_arg != NULL);
Packit Service fb6fa5
Packit Service fb6fa5
  memset (&arg, 0, sizeof (arg));
Packit Service fb6fa5
  arg.type = G_VALUE_TYPE (value);
Packit Service fb6fa5
  arg.name = pspec->name;
Packit Service fb6fa5
  class->get_arg (GTK_OBJECT (object), &arg, property_id);
Packit Service fb6fa5
  gtk_arg_to_value (&arg, value);
Packit Service fb6fa5
}
Packit Service fb6fa5
Packit Service fb6fa5
void
Packit Service fb6fa5
gtk_object_add_arg_type (const gchar *arg_name,
Packit Service fb6fa5
			 GType        arg_type,
Packit Service fb6fa5
			 guint        arg_flags,
Packit Service fb6fa5
			 guint        arg_id)
Packit Service fb6fa5
{
Packit Service fb6fa5
  GObjectClass *oclass;
Packit Service fb6fa5
  GParamSpec *pspec;
Packit Service fb6fa5
  gchar *type_name, *pname;
Packit Service fb6fa5
  GType type;
Packit Service fb6fa5
  
Packit Service fb6fa5
  g_return_if_fail (arg_name != NULL);
Packit Service fb6fa5
  g_return_if_fail (arg_type > G_TYPE_NONE);
Packit Service fb6fa5
  g_return_if_fail (arg_id > 0);
Packit Service fb6fa5
  g_return_if_fail (arg_flags & G_PARAM_READWRITE);
Packit Service fb6fa5
  if (arg_flags & G_PARAM_CONSTRUCT)
Packit Service fb6fa5
    g_return_if_fail ((arg_flags & G_PARAM_CONSTRUCT_ONLY) == 0);
Packit Service fb6fa5
  if (arg_flags & (G_PARAM_CONSTRUCT | G_PARAM_CONSTRUCT_ONLY))
Packit Service fb6fa5
    g_return_if_fail (arg_flags & G_PARAM_WRITABLE);
Packit Service fb6fa5
  g_return_if_fail ((arg_flags & ~(G_PARAM_READWRITE | G_PARAM_CONSTRUCT | G_PARAM_CONSTRUCT_ONLY | G_PARAM_STATIC_NAME)) == 0);
Packit Service fb6fa5
Packit Service fb6fa5
  pname = strchr (arg_name, ':');
Packit Service fb6fa5
  g_return_if_fail (pname && pname[1] == ':');
Packit Service fb6fa5
Packit Service fb6fa5
  type_name = g_strndup (arg_name, pname - arg_name);
Packit Service fb6fa5
  pname += 2;
Packit Service fb6fa5
  type = g_type_from_name (type_name);
Packit Service fb6fa5
  g_free (type_name);
Packit Service fb6fa5
  g_return_if_fail (G_TYPE_IS_OBJECT (type));
Packit Service fb6fa5
Packit Service fb6fa5
  oclass = gtk_type_class (type);
Packit Service fb6fa5
  if (arg_flags & G_PARAM_READABLE)
Packit Service fb6fa5
    {
Packit Service fb6fa5
      if (oclass->get_property && oclass->get_property != gtk_arg_proxy_get_property)
Packit Service fb6fa5
	{
Packit Service fb6fa5
	  g_warning (G_STRLOC ": GtkArg compatibility code can't be mixed with customized %s.get_property() implementation",
Packit Service fb6fa5
		     g_type_name (type));
Packit Service fb6fa5
	  return;
Packit Service fb6fa5
	}
Packit Service fb6fa5
      oclass->get_property = gtk_arg_proxy_get_property;
Packit Service fb6fa5
    }
Packit Service fb6fa5
  if (arg_flags & G_PARAM_WRITABLE)
Packit Service fb6fa5
    {
Packit Service fb6fa5
      if (oclass->set_property && oclass->set_property != gtk_arg_proxy_set_property)
Packit Service fb6fa5
	{
Packit Service fb6fa5
	  g_warning (G_STRLOC ": GtkArg compatibility code can't be mixed with customized %s.set_property() implementation",
Packit Service fb6fa5
		     g_type_name (type));
Packit Service fb6fa5
	  return;
Packit Service fb6fa5
	}
Packit Service fb6fa5
      oclass->set_property = gtk_arg_proxy_set_property;
Packit Service fb6fa5
    }
Packit Service fb6fa5
  switch (G_TYPE_FUNDAMENTAL (arg_type))
Packit Service fb6fa5
    {
Packit Service fb6fa5
    case G_TYPE_ENUM:
Packit Service fb6fa5
      pspec = g_param_spec_enum (pname, NULL, NULL, arg_type, 0, arg_flags);
Packit Service fb6fa5
      break;
Packit Service fb6fa5
    case G_TYPE_FLAGS:
Packit Service fb6fa5
      pspec = g_param_spec_flags (pname, NULL, NULL, arg_type, 0, arg_flags);
Packit Service fb6fa5
      break;
Packit Service fb6fa5
    case G_TYPE_CHAR:
Packit Service fb6fa5
      pspec = g_param_spec_char (pname, NULL, NULL, -128, 127, 0, arg_flags);
Packit Service fb6fa5
      break;
Packit Service fb6fa5
    case G_TYPE_UCHAR:
Packit Service fb6fa5
      pspec = g_param_spec_uchar (pname, NULL, NULL, 0, 255, 0, arg_flags);
Packit Service fb6fa5
      break;
Packit Service fb6fa5
    case G_TYPE_BOOLEAN:
Packit Service fb6fa5
      pspec = g_param_spec_boolean (pname, NULL, NULL, FALSE, arg_flags);
Packit Service fb6fa5
      break;
Packit Service fb6fa5
    case G_TYPE_INT:
Packit Service fb6fa5
      pspec = g_param_spec_int (pname, NULL, NULL, G_MININT, G_MAXINT, 0, arg_flags);
Packit Service fb6fa5
      break;
Packit Service fb6fa5
    case G_TYPE_UINT:
Packit Service fb6fa5
      pspec = g_param_spec_uint (pname, NULL, NULL, 0, G_MAXUINT, 0, arg_flags);
Packit Service fb6fa5
      break;
Packit Service fb6fa5
    case G_TYPE_FLOAT:
Packit Service fb6fa5
      pspec = g_param_spec_float (pname, NULL, NULL, -G_MAXFLOAT, G_MAXFLOAT, 0, arg_flags);
Packit Service fb6fa5
      break;
Packit Service fb6fa5
    case G_TYPE_DOUBLE:
Packit Service fb6fa5
      pspec = g_param_spec_double (pname, NULL, NULL, -G_MAXDOUBLE, G_MAXDOUBLE, 0, arg_flags);
Packit Service fb6fa5
      break;
Packit Service fb6fa5
    case G_TYPE_STRING:
Packit Service fb6fa5
      pspec = g_param_spec_string (pname, NULL, NULL, NULL, arg_flags);
Packit Service fb6fa5
      break;
Packit Service fb6fa5
    case G_TYPE_POINTER:
Packit Service fb6fa5
      pspec = g_param_spec_pointer (pname, NULL, NULL, arg_flags);
Packit Service fb6fa5
      break;
Packit Service fb6fa5
    case G_TYPE_OBJECT:
Packit Service fb6fa5
      pspec = g_param_spec_object (pname, NULL, NULL, arg_type, arg_flags);
Packit Service fb6fa5
      break;
Packit Service fb6fa5
    case G_TYPE_BOXED:
Packit Service fb6fa5
      if (!G_TYPE_IS_FUNDAMENTAL (arg_type))
Packit Service fb6fa5
	{
Packit Service fb6fa5
	  pspec = g_param_spec_boxed (pname, NULL, NULL, arg_type, arg_flags);
Packit Service fb6fa5
	  break;
Packit Service fb6fa5
	}
Packit Service fb6fa5
    default:
Packit Service fb6fa5
      g_warning (G_STRLOC ": Property type `%s' is not supported by the GtkArg compatibility code",
Packit Service fb6fa5
		 g_type_name (arg_type));
Packit Service fb6fa5
      return;
Packit Service fb6fa5
    }
Packit Service fb6fa5
  g_object_class_install_property (oclass, arg_id, pspec);
Packit Service fb6fa5
}
Packit Service fb6fa5
Packit Service fb6fa5
static guint (*gobject_floating_flag_handler) (GtkObject*,gint) = NULL;
Packit Service fb6fa5
Packit Service fb6fa5
static guint
Packit Service fb6fa5
gtk_object_floating_flag_handler (GtkObject *object,
Packit Service fb6fa5
                                  gint       job)
Packit Service fb6fa5
{
Packit Service fb6fa5
  /* FIXME: remove this whole thing once GTK+ breaks ABI */
Packit Service fb6fa5
  if (!GTK_IS_OBJECT (object))
Packit Service fb6fa5
    return gobject_floating_flag_handler (object, job);
Packit Service fb6fa5
  switch (job)
Packit Service fb6fa5
    {
Packit Service fb6fa5
      guint32 oldvalue;
Packit Service fb6fa5
    case +1:    /* force floating if possible */
Packit Service fb6fa5
      do
Packit Service fb6fa5
        oldvalue = g_atomic_int_get (&object->flags);
Packit Service fb6fa5
      while (!g_atomic_int_compare_and_exchange ((gint *)&object->flags, oldvalue, oldvalue | GTK_FLOATING));
Packit Service fb6fa5
      return oldvalue & GTK_FLOATING;
Packit Service fb6fa5
    case -1:    /* sink if possible */
Packit Service fb6fa5
      do
Packit Service fb6fa5
        oldvalue = g_atomic_int_get (&object->flags);
Packit Service fb6fa5
      while (!g_atomic_int_compare_and_exchange ((gint *)&object->flags, oldvalue, oldvalue & ~(guint32) GTK_FLOATING));
Packit Service fb6fa5
      return oldvalue & GTK_FLOATING;
Packit Service fb6fa5
    default:    /* check floating */
Packit Service fb6fa5
      return 0 != (g_atomic_int_get (&object->flags) & GTK_FLOATING);
Packit Service fb6fa5
    }
Packit Service fb6fa5
}
Packit Service fb6fa5
Packit Service fb6fa5
static void
Packit Service fb6fa5
gtk_object_class_init (GtkObjectClass *class)
Packit Service fb6fa5
{
Packit Service fb6fa5
  GObjectClass *gobject_class = G_OBJECT_CLASS (class);
Packit Service fb6fa5
  gboolean is_glib_2_10_1;
Packit Service fb6fa5
Packit Service fb6fa5
  parent_class = g_type_class_ref (G_TYPE_OBJECT);
Packit Service fb6fa5
Packit Service fb6fa5
  is_glib_2_10_1 = g_object_compat_control (3, &gobject_floating_flag_handler);
Packit Service fb6fa5
  if (!is_glib_2_10_1)
Packit Service fb6fa5
    g_error ("this version of Gtk+ requires GLib-2.10.1");
Packit Service fb6fa5
  g_object_compat_control (2, gtk_object_floating_flag_handler);
Packit Service fb6fa5
Packit Service fb6fa5
  gobject_class->set_property = gtk_object_set_property;
Packit Service fb6fa5
  gobject_class->get_property = gtk_object_get_property;
Packit Service fb6fa5
  gobject_class->dispose = gtk_object_dispose;
Packit Service fb6fa5
  gobject_class->finalize = gtk_object_finalize;
Packit Service fb6fa5
Packit Service fb6fa5
  class->destroy = gtk_object_real_destroy;
Packit Service fb6fa5
Packit Service fb6fa5
  g_object_class_install_property (gobject_class,
Packit Service fb6fa5
				   PROP_USER_DATA,
Packit Service fb6fa5
				   g_param_spec_pointer ("user-data", 
Packit Service fb6fa5
							 P_("User Data"),
Packit Service fb6fa5
							 P_("Anonymous User Data Pointer"),
Packit Service fb6fa5
							 GTK_PARAM_READWRITE));
Packit Service fb6fa5
  object_signals[DESTROY] =
Packit Service fb6fa5
    g_signal_new (I_("destroy"),
Packit Service fb6fa5
		  G_TYPE_FROM_CLASS (gobject_class),
Packit Service fb6fa5
		  G_SIGNAL_RUN_CLEANUP | G_SIGNAL_NO_RECURSE | G_SIGNAL_NO_HOOKS,
Packit Service fb6fa5
		  G_STRUCT_OFFSET (GtkObjectClass, destroy),
Packit Service fb6fa5
		  NULL, NULL,
Packit Service fb6fa5
		  _gtk_marshal_VOID__VOID,
Packit Service fb6fa5
		  G_TYPE_NONE, 0);
Packit Service fb6fa5
}
Packit Service fb6fa5
Packit Service fb6fa5
static void
Packit Service fb6fa5
gtk_object_init (GtkObject      *object,
Packit Service fb6fa5
		 GtkObjectClass *klass)
Packit Service fb6fa5
{
Packit Service fb6fa5
  gboolean was_floating;
Packit Service fb6fa5
  /* sink the GInitiallyUnowned floating flag */
Packit Service fb6fa5
  was_floating = gobject_floating_flag_handler (object, -1);
Packit Service fb6fa5
  /* set GTK_FLOATING via gtk_object_floating_flag_handler */
Packit Service fb6fa5
  if (was_floating)
Packit Service fb6fa5
    g_object_force_floating (G_OBJECT (object));
Packit Service fb6fa5
}
Packit Service fb6fa5
Packit Service fb6fa5
/********************************************
Packit Service fb6fa5
 * Functions to end a GtkObject's life time
Packit Service fb6fa5
 *
Packit Service fb6fa5
 ********************************************/
Packit Service fb6fa5
void
Packit Service fb6fa5
gtk_object_destroy (GtkObject *object)
Packit Service fb6fa5
{
Packit Service fb6fa5
  g_return_if_fail (object != NULL);
Packit Service fb6fa5
  g_return_if_fail (GTK_IS_OBJECT (object));
Packit Service fb6fa5
  
Packit Service fb6fa5
  if (!(GTK_OBJECT_FLAGS (object) & GTK_IN_DESTRUCTION))
Packit Service fb6fa5
    g_object_run_dispose (G_OBJECT (object));
Packit Service fb6fa5
}
Packit Service fb6fa5
Packit Service fb6fa5
static void
Packit Service fb6fa5
gtk_object_dispose (GObject *gobject)
Packit Service fb6fa5
{
Packit Service fb6fa5
  GtkObject *object = GTK_OBJECT (gobject);
Packit Service fb6fa5
Packit Service fb6fa5
  /* guard against reinvocations during
Packit Service fb6fa5
   * destruction with the GTK_IN_DESTRUCTION flag.
Packit Service fb6fa5
   */
Packit Service fb6fa5
  if (!(GTK_OBJECT_FLAGS (object) & GTK_IN_DESTRUCTION))
Packit Service fb6fa5
    {
Packit Service fb6fa5
      GTK_OBJECT_SET_FLAGS (object, GTK_IN_DESTRUCTION);
Packit Service fb6fa5
      
Packit Service fb6fa5
      g_signal_emit (object, object_signals[DESTROY], 0);
Packit Service fb6fa5
      
Packit Service fb6fa5
      GTK_OBJECT_UNSET_FLAGS (object, GTK_IN_DESTRUCTION);
Packit Service fb6fa5
    }
Packit Service fb6fa5
Packit Service fb6fa5
  G_OBJECT_CLASS (parent_class)->dispose (gobject);
Packit Service fb6fa5
}
Packit Service fb6fa5
Packit Service fb6fa5
static void
Packit Service fb6fa5
gtk_object_real_destroy (GtkObject *object)
Packit Service fb6fa5
{
Packit Service fb6fa5
  g_signal_handlers_destroy (object);
Packit Service fb6fa5
}
Packit Service fb6fa5
Packit Service fb6fa5
static void
Packit Service fb6fa5
gtk_object_finalize (GObject *gobject)
Packit Service fb6fa5
{
Packit Service fb6fa5
  GtkObject *object = GTK_OBJECT (gobject);
Packit Service fb6fa5
Packit Service fb6fa5
  if (g_object_is_floating (object))
Packit Service fb6fa5
    {
Packit Service fb6fa5
      g_warning ("A floating object was finalized. This means that someone\n"
Packit Service fb6fa5
		 "called g_object_unref() on an object that had only a floating\n"
Packit Service fb6fa5
		 "reference; the initial floating reference is not owned by anyone\n"
Packit Service fb6fa5
		 "and must be removed with g_object_ref_sink().");
Packit Service fb6fa5
    }
Packit Service fb6fa5
  
Packit Service fb6fa5
  gtk_object_notify_weaks (object);
Packit Service fb6fa5
  
Packit Service fb6fa5
  G_OBJECT_CLASS (parent_class)->finalize (gobject);
Packit Service fb6fa5
}
Packit Service fb6fa5
Packit Service fb6fa5
/*****************************************
Packit Service fb6fa5
 * GtkObject argument handlers
Packit Service fb6fa5
 *
Packit Service fb6fa5
 *****************************************/
Packit Service fb6fa5
Packit Service fb6fa5
static void
Packit Service fb6fa5
gtk_object_set_property (GObject      *object,
Packit Service fb6fa5
			 guint         property_id,
Packit Service fb6fa5
			 const GValue *value,
Packit Service fb6fa5
			 GParamSpec   *pspec)
Packit Service fb6fa5
{
Packit Service fb6fa5
  switch (property_id)
Packit Service fb6fa5
    {
Packit Service fb6fa5
    case PROP_USER_DATA:
Packit Service fb6fa5
      g_object_set_data (G_OBJECT (object), I_("user_data"), g_value_get_pointer (value));
Packit Service fb6fa5
      break;
Packit Service fb6fa5
    default:
Packit Service fb6fa5
      G_OBJECT_WARN_INVALID_PROPERTY_ID (object, property_id, pspec);
Packit Service fb6fa5
      break;
Packit Service fb6fa5
    }
Packit Service fb6fa5
}
Packit Service fb6fa5
Packit Service fb6fa5
static void
Packit Service fb6fa5
gtk_object_get_property (GObject     *object,
Packit Service fb6fa5
			 guint        property_id,
Packit Service fb6fa5
			 GValue      *value,
Packit Service fb6fa5
			 GParamSpec  *pspec)
Packit Service fb6fa5
{
Packit Service fb6fa5
  switch (property_id)
Packit Service fb6fa5
    {
Packit Service fb6fa5
    case PROP_USER_DATA:
Packit Service fb6fa5
      g_value_set_pointer (value, g_object_get_data (G_OBJECT (object), "user_data"));
Packit Service fb6fa5
      break;
Packit Service fb6fa5
    default:
Packit Service fb6fa5
      G_OBJECT_WARN_INVALID_PROPERTY_ID (object, property_id, pspec);
Packit Service fb6fa5
      break;
Packit Service fb6fa5
    }
Packit Service fb6fa5
}
Packit Service fb6fa5
Packit Service fb6fa5
void
Packit Service fb6fa5
gtk_object_sink (GtkObject *object)
Packit Service fb6fa5
{
Packit Service fb6fa5
  g_return_if_fail (GTK_IS_OBJECT (object));
Packit Service fb6fa5
  g_object_ref_sink (object);
Packit Service fb6fa5
  g_object_unref (object);
Packit Service fb6fa5
}
Packit Service fb6fa5
Packit Service fb6fa5
/*****************************************
Packit Service fb6fa5
 * Weak references.
Packit Service fb6fa5
 *
Packit Service fb6fa5
 * Weak refs are very similar to the old "destroy" signal.  They allow
Packit Service fb6fa5
 * one to register a callback that is called when the weakly
Packit Service fb6fa5
 * referenced object is finalized.
Packit Service fb6fa5
 *  
Packit Service fb6fa5
 * They are not implemented as a signal because they really are
Packit Service fb6fa5
 * special and need to be used with great care.  Unlike signals, which
Packit Service fb6fa5
 * should be able to execute any code whatsoever.
Packit Service fb6fa5
 * 
Packit Service fb6fa5
 * A weakref callback is not allowed to retain a reference to the
Packit Service fb6fa5
 * object.  Object data keys may be retrieved in a weak reference
Packit Service fb6fa5
 * callback.
Packit Service fb6fa5
 * 
Packit Service fb6fa5
 * A weakref callback is called at most once.
Packit Service fb6fa5
 *
Packit Service fb6fa5
 *****************************************/
Packit Service fb6fa5
Packit Service fb6fa5
typedef struct _GtkWeakRef	GtkWeakRef;
Packit Service fb6fa5
Packit Service fb6fa5
struct _GtkWeakRef
Packit Service fb6fa5
{
Packit Service fb6fa5
  GtkWeakRef	 *next;
Packit Service fb6fa5
  GDestroyNotify  notify;
Packit Service fb6fa5
  gpointer        data;
Packit Service fb6fa5
};
Packit Service fb6fa5
Packit Service fb6fa5
void
Packit Service fb6fa5
gtk_object_weakref (GtkObject      *object,
Packit Service fb6fa5
		    GDestroyNotify  notify,
Packit Service fb6fa5
		    gpointer        data)
Packit Service fb6fa5
{
Packit Service fb6fa5
  GtkWeakRef *weak;
Packit Service fb6fa5
Packit Service fb6fa5
  g_return_if_fail (notify != NULL);
Packit Service fb6fa5
  g_return_if_fail (GTK_IS_OBJECT (object));
Packit Service fb6fa5
Packit Service fb6fa5
  if (!quark_weakrefs)
Packit Service fb6fa5
    quark_weakrefs = g_quark_from_static_string ("gtk-weakrefs");
Packit Service fb6fa5
Packit Service fb6fa5
  weak = g_new (GtkWeakRef, 1);
Packit Service fb6fa5
  weak->next = g_object_get_qdata (G_OBJECT (object), quark_weakrefs);
Packit Service fb6fa5
  weak->notify = notify;
Packit Service fb6fa5
  weak->data = data;
Packit Service fb6fa5
  g_object_set_qdata (G_OBJECT (object), quark_weakrefs, weak);
Packit Service fb6fa5
}
Packit Service fb6fa5
Packit Service fb6fa5
void
Packit Service fb6fa5
gtk_object_weakunref (GtkObject      *object,
Packit Service fb6fa5
		      GDestroyNotify  notify,
Packit Service fb6fa5
		      gpointer        data)
Packit Service fb6fa5
{
Packit Service fb6fa5
  GtkWeakRef *weaks, *w, **wp;
Packit Service fb6fa5
Packit Service fb6fa5
  g_return_if_fail (GTK_IS_OBJECT (object));
Packit Service fb6fa5
Packit Service fb6fa5
  if (!quark_weakrefs)
Packit Service fb6fa5
    return;
Packit Service fb6fa5
Packit Service fb6fa5
  weaks = g_object_get_qdata (G_OBJECT (object), quark_weakrefs);
Packit Service fb6fa5
  for (wp = &weaks; *wp; wp = &(*wp)->next)
Packit Service fb6fa5
    {
Packit Service fb6fa5
      w = *wp;
Packit Service fb6fa5
      if (w->notify == notify && w->data == data)
Packit Service fb6fa5
	{
Packit Service fb6fa5
	  if (w == weaks)
Packit Service fb6fa5
	    g_object_set_qdata (G_OBJECT (object), quark_weakrefs, w->next);
Packit Service fb6fa5
	  else
Packit Service fb6fa5
	    *wp = w->next;
Packit Service fb6fa5
	  g_free (w);
Packit Service fb6fa5
	  return;
Packit Service fb6fa5
	}
Packit Service fb6fa5
    }
Packit Service fb6fa5
}
Packit Service fb6fa5
Packit Service fb6fa5
static void
Packit Service fb6fa5
gtk_object_notify_weaks (GtkObject *object)
Packit Service fb6fa5
{
Packit Service fb6fa5
  if (quark_weakrefs)
Packit Service fb6fa5
    {
Packit Service fb6fa5
      GtkWeakRef *w1, *w2;
Packit Service fb6fa5
      
Packit Service fb6fa5
      w1 = g_object_get_qdata (G_OBJECT (object), quark_weakrefs);
Packit Service fb6fa5
      
Packit Service fb6fa5
      while (w1)
Packit Service fb6fa5
	{
Packit Service fb6fa5
	  w1->notify (w1->data);
Packit Service fb6fa5
	  w2 = w1->next;
Packit Service fb6fa5
	  g_free (w1);
Packit Service fb6fa5
	  w1 = w2;
Packit Service fb6fa5
	}
Packit Service fb6fa5
    }
Packit Service fb6fa5
}
Packit Service fb6fa5
Packit Service fb6fa5
GtkObject*
Packit Service fb6fa5
gtk_object_new (GType        object_type,
Packit Service fb6fa5
		const gchar *first_property_name,
Packit Service fb6fa5
		...)
Packit Service fb6fa5
{
Packit Service fb6fa5
  GtkObject *object;
Packit Service fb6fa5
  va_list var_args;
Packit Service fb6fa5
Packit Service fb6fa5
  g_return_val_if_fail (G_TYPE_IS_OBJECT (object_type), NULL);
Packit Service fb6fa5
Packit Service fb6fa5
  va_start (var_args, first_property_name);
Packit Service fb6fa5
  object = (GtkObject *)g_object_new_valist (object_type, first_property_name, var_args);
Packit Service fb6fa5
  va_end (var_args);
Packit Service fb6fa5
Packit Service fb6fa5
  return object;
Packit Service fb6fa5
}
Packit Service fb6fa5
Packit Service fb6fa5
void
Packit Service fb6fa5
gtk_object_get (GtkObject   *object,
Packit Service fb6fa5
		const gchar *first_property_name,
Packit Service fb6fa5
		...)
Packit Service fb6fa5
{
Packit Service fb6fa5
  va_list var_args;
Packit Service fb6fa5
  
Packit Service fb6fa5
  g_return_if_fail (GTK_IS_OBJECT (object));
Packit Service fb6fa5
  
Packit Service fb6fa5
  va_start (var_args, first_property_name);
Packit Service fb6fa5
  g_object_get_valist (G_OBJECT (object), first_property_name, var_args);
Packit Service fb6fa5
  va_end (var_args);
Packit Service fb6fa5
}
Packit Service fb6fa5
Packit Service fb6fa5
void
Packit Service fb6fa5
gtk_object_set (GtkObject   *object,
Packit Service fb6fa5
		const gchar *first_property_name,
Packit Service fb6fa5
		...)
Packit Service fb6fa5
{
Packit Service fb6fa5
  va_list var_args;
Packit Service fb6fa5
  
Packit Service fb6fa5
  g_return_if_fail (GTK_IS_OBJECT (object));
Packit Service fb6fa5
  
Packit Service fb6fa5
  va_start (var_args, first_property_name);
Packit Service fb6fa5
  g_object_set_valist (G_OBJECT (object), first_property_name, var_args);
Packit Service fb6fa5
  va_end (var_args);
Packit Service fb6fa5
}
Packit Service fb6fa5
Packit Service fb6fa5
/*****************************************
Packit Service fb6fa5
 * GtkObject object_data mechanism
Packit Service fb6fa5
 *
Packit Service fb6fa5
 *****************************************/
Packit Service fb6fa5
Packit Service fb6fa5
void
Packit Service fb6fa5
gtk_object_set_data_by_id (GtkObject        *object,
Packit Service fb6fa5
			   GQuark	     data_id,
Packit Service fb6fa5
			   gpointer          data)
Packit Service fb6fa5
{
Packit Service fb6fa5
  g_return_if_fail (GTK_IS_OBJECT (object));
Packit Service fb6fa5
  
Packit Service fb6fa5
  g_datalist_id_set_data (&G_OBJECT (object)->qdata, data_id, data);
Packit Service fb6fa5
}
Packit Service fb6fa5
Packit Service fb6fa5
void
Packit Service fb6fa5
gtk_object_set_data (GtkObject        *object,
Packit Service fb6fa5
		     const gchar      *key,
Packit Service fb6fa5
		     gpointer          data)
Packit Service fb6fa5
{
Packit Service fb6fa5
  g_return_if_fail (GTK_IS_OBJECT (object));
Packit Service fb6fa5
  g_return_if_fail (key != NULL);
Packit Service fb6fa5
  
Packit Service fb6fa5
  g_datalist_set_data (&G_OBJECT (object)->qdata, key, data);
Packit Service fb6fa5
}
Packit Service fb6fa5
Packit Service fb6fa5
void
Packit Service fb6fa5
gtk_object_set_data_by_id_full (GtkObject      *object,
Packit Service fb6fa5
				GQuark		data_id,
Packit Service fb6fa5
				gpointer        data,
Packit Service fb6fa5
				GDestroyNotify  destroy)
Packit Service fb6fa5
{
Packit Service fb6fa5
  g_return_if_fail (GTK_IS_OBJECT (object));
Packit Service fb6fa5
Packit Service fb6fa5
  g_datalist_id_set_data_full (&G_OBJECT (object)->qdata, data_id, data, destroy);
Packit Service fb6fa5
}
Packit Service fb6fa5
Packit Service fb6fa5
void
Packit Service fb6fa5
gtk_object_set_data_full (GtkObject      *object,
Packit Service fb6fa5
			  const gchar    *key,
Packit Service fb6fa5
			  gpointer        data,
Packit Service fb6fa5
			  GDestroyNotify  destroy)
Packit Service fb6fa5
{
Packit Service fb6fa5
  g_return_if_fail (GTK_IS_OBJECT (object));
Packit Service fb6fa5
  g_return_if_fail (key != NULL);
Packit Service fb6fa5
Packit Service fb6fa5
  g_datalist_set_data_full (&G_OBJECT (object)->qdata, key, data, destroy);
Packit Service fb6fa5
}
Packit Service fb6fa5
Packit Service fb6fa5
gpointer
Packit Service fb6fa5
gtk_object_get_data_by_id (GtkObject   *object,
Packit Service fb6fa5
			   GQuark       data_id)
Packit Service fb6fa5
{
Packit Service fb6fa5
  g_return_val_if_fail (GTK_IS_OBJECT (object), NULL);
Packit Service fb6fa5
Packit Service fb6fa5
  return g_datalist_id_get_data (&G_OBJECT (object)->qdata, data_id);
Packit Service fb6fa5
}
Packit Service fb6fa5
Packit Service fb6fa5
gpointer
Packit Service fb6fa5
gtk_object_get_data (GtkObject   *object,
Packit Service fb6fa5
		     const gchar *key)
Packit Service fb6fa5
{
Packit Service fb6fa5
  g_return_val_if_fail (GTK_IS_OBJECT (object), NULL);
Packit Service fb6fa5
  g_return_val_if_fail (key != NULL, NULL);
Packit Service fb6fa5
Packit Service fb6fa5
  return g_datalist_get_data (&G_OBJECT (object)->qdata, key);
Packit Service fb6fa5
}
Packit Service fb6fa5
Packit Service fb6fa5
void
Packit Service fb6fa5
gtk_object_remove_data_by_id (GtkObject   *object,
Packit Service fb6fa5
			      GQuark       data_id)
Packit Service fb6fa5
{
Packit Service fb6fa5
  g_return_if_fail (GTK_IS_OBJECT (object));
Packit Service fb6fa5
Packit Service fb6fa5
  g_datalist_id_remove_data (&G_OBJECT (object)->qdata, data_id);
Packit Service fb6fa5
}
Packit Service fb6fa5
Packit Service fb6fa5
void
Packit Service fb6fa5
gtk_object_remove_data (GtkObject   *object,
Packit Service fb6fa5
			const gchar *key)
Packit Service fb6fa5
{
Packit Service fb6fa5
  g_return_if_fail (GTK_IS_OBJECT (object));
Packit Service fb6fa5
  g_return_if_fail (key != NULL);
Packit Service fb6fa5
Packit Service fb6fa5
  g_datalist_remove_data (&G_OBJECT (object)->qdata, key);
Packit Service fb6fa5
}
Packit Service fb6fa5
Packit Service fb6fa5
void
Packit Service fb6fa5
gtk_object_remove_no_notify_by_id (GtkObject      *object,
Packit Service fb6fa5
				   GQuark          key_id)
Packit Service fb6fa5
{
Packit Service fb6fa5
  g_return_if_fail (GTK_IS_OBJECT (object));
Packit Service fb6fa5
Packit Service fb6fa5
  g_datalist_id_remove_no_notify (&G_OBJECT (object)->qdata, key_id);
Packit Service fb6fa5
}
Packit Service fb6fa5
Packit Service fb6fa5
void
Packit Service fb6fa5
gtk_object_remove_no_notify (GtkObject       *object,
Packit Service fb6fa5
			     const gchar     *key)
Packit Service fb6fa5
{
Packit Service fb6fa5
  g_return_if_fail (GTK_IS_OBJECT (object));
Packit Service fb6fa5
  g_return_if_fail (key != NULL);
Packit Service fb6fa5
Packit Service fb6fa5
  g_datalist_remove_no_notify (&G_OBJECT (object)->qdata, key);
Packit Service fb6fa5
}
Packit Service fb6fa5
Packit Service fb6fa5
void
Packit Service fb6fa5
gtk_object_set_user_data (GtkObject *object,
Packit Service fb6fa5
			  gpointer   data)
Packit Service fb6fa5
{
Packit Service fb6fa5
  g_return_if_fail (GTK_IS_OBJECT (object));
Packit Service fb6fa5
Packit Service fb6fa5
  g_object_set_data (G_OBJECT (object), "user_data", data);
Packit Service fb6fa5
}
Packit Service fb6fa5
Packit Service fb6fa5
gpointer
Packit Service fb6fa5
gtk_object_get_user_data (GtkObject *object)
Packit Service fb6fa5
{
Packit Service fb6fa5
  g_return_val_if_fail (GTK_IS_OBJECT (object), NULL);
Packit Service fb6fa5
Packit Service fb6fa5
  return g_object_get_data (G_OBJECT (object), "user_data");
Packit Service fb6fa5
}
Packit Service fb6fa5
Packit Service fb6fa5
GtkObject*
Packit Service fb6fa5
gtk_object_ref (GtkObject *object)
Packit Service fb6fa5
{
Packit Service fb6fa5
  g_return_val_if_fail (GTK_IS_OBJECT (object), NULL);
Packit Service fb6fa5
Packit Service fb6fa5
  return (GtkObject*) g_object_ref ((GObject*) object);
Packit Service fb6fa5
}
Packit Service fb6fa5
Packit Service fb6fa5
void
Packit Service fb6fa5
gtk_object_unref (GtkObject *object)
Packit Service fb6fa5
{
Packit Service fb6fa5
  g_return_if_fail (GTK_IS_OBJECT (object));
Packit Service fb6fa5
Packit Service fb6fa5
  g_object_unref ((GObject*) object);
Packit Service fb6fa5
}
Packit Service fb6fa5
Packit Service fb6fa5
#define __GTK_OBJECT_C__
Packit Service fb6fa5
#include "gtkaliasdef.c"