799 lines
		
	
	
		
			22 KiB
		
	
	
	
		
			C
		
	
	
	
	
	
			
		
		
	
	
			799 lines
		
	
	
		
			22 KiB
		
	
	
	
		
			C
		
	
	
	
	
	
| /* GTK - The GIMP Toolkit
 | |
|  * Copyright (C) 1995-1997 Peter Mattis, Spencer Kimball and Josh MacDonald
 | |
|  *
 | |
|  * This library is free software; you can redistribute it and/or
 | |
|  * modify it under the terms of the GNU Lesser General Public
 | |
|  * License as published by the Free Software Foundation; either
 | |
|  * version 2 of the License, or (at your option) any later version.
 | |
|  *
 | |
|  * This library 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
 | |
|  * Lesser General Public License for more details.
 | |
|  *
 | |
|  * You should have received a copy of the GNU Lesser General Public
 | |
|  * License along with this library; if not, write to the
 | |
|  * Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 | |
|  * Boston, MA 02111-1307, USA.
 | |
|  */
 | |
| 
 | |
| /*
 | |
|  * Modified by the GTK+ Team and others 1997-2000.  See the AUTHORS
 | |
|  * file for a list of people on the GTK+ Team.  See the ChangeLog
 | |
|  * files for a list of changes.  These files are distributed with
 | |
|  * GTK+ at ftp://ftp.gtk.org/pub/gtk/. 
 | |
|  */
 | |
| 
 | |
| #include "config.h"
 | |
| #include "gtkbox.h"
 | |
| #include "gtkprivate.h"
 | |
| #include "gtkintl.h"
 | |
| #include "gtkalias.h"
 | |
| 
 | |
| enum {
 | |
|   PROP_0,
 | |
|   PROP_SPACING,
 | |
|   PROP_HOMOGENEOUS
 | |
| };
 | |
| 
 | |
| enum {
 | |
|   CHILD_PROP_0,
 | |
|   CHILD_PROP_EXPAND,
 | |
|   CHILD_PROP_FILL,
 | |
|   CHILD_PROP_PADDING,
 | |
|   CHILD_PROP_PACK_TYPE,
 | |
|   CHILD_PROP_POSITION
 | |
| };
 | |
| 
 | |
| static void gtk_box_set_property (GObject         *object,
 | |
| 				  guint            prop_id,
 | |
| 				  const GValue    *value,
 | |
| 				  GParamSpec      *pspec);
 | |
| static void gtk_box_get_property (GObject         *object,
 | |
| 				  guint            prop_id,
 | |
| 				  GValue          *value,
 | |
| 				  GParamSpec      *pspec);
 | |
| static void gtk_box_add        (GtkContainer   *container,
 | |
| 			        GtkWidget      *widget);
 | |
| static void gtk_box_remove     (GtkContainer   *container,
 | |
| 			        GtkWidget      *widget);
 | |
| static void gtk_box_forall     (GtkContainer   *container,
 | |
| 				gboolean	include_internals,
 | |
| 			        GtkCallback     callback,
 | |
| 			        gpointer        callback_data);
 | |
| static void gtk_box_set_child_property (GtkContainer    *container,
 | |
| 					GtkWidget       *child,
 | |
| 					guint            property_id,
 | |
| 					const GValue    *value,
 | |
| 					GParamSpec      *pspec);
 | |
| static void gtk_box_get_child_property (GtkContainer    *container,
 | |
| 					GtkWidget       *child,
 | |
| 					guint            property_id,
 | |
| 					GValue          *value,
 | |
| 					GParamSpec      *pspec);
 | |
| static GType gtk_box_child_type (GtkContainer   *container);
 | |
|      
 | |
| 
 | |
| G_DEFINE_ABSTRACT_TYPE (GtkBox, gtk_box, GTK_TYPE_CONTAINER)
 | |
| 
 | |
| static void
 | |
| gtk_box_class_init (GtkBoxClass *class)
 | |
| {
 | |
|   GObjectClass *gobject_class = G_OBJECT_CLASS (class);
 | |
|   GtkContainerClass *container_class = GTK_CONTAINER_CLASS (class);
 | |
| 
 | |
|   gobject_class->set_property = gtk_box_set_property;
 | |
|   gobject_class->get_property = gtk_box_get_property;
 | |
|    
 | |
|   container_class->add = gtk_box_add;
 | |
|   container_class->remove = gtk_box_remove;
 | |
|   container_class->forall = gtk_box_forall;
 | |
|   container_class->child_type = gtk_box_child_type;
 | |
|   container_class->set_child_property = gtk_box_set_child_property;
 | |
|   container_class->get_child_property = gtk_box_get_child_property;
 | |
| 
 | |
|   g_object_class_install_property (gobject_class,
 | |
|                                    PROP_SPACING,
 | |
|                                    g_param_spec_int ("spacing",
 | |
|                                                      P_("Spacing"),
 | |
|                                                      P_("The amount of space between children"),
 | |
|                                                      0,
 | |
|                                                      G_MAXINT,
 | |
|                                                      0,
 | |
|                                                      GTK_PARAM_READWRITE));
 | |
|   
 | |
|   g_object_class_install_property (gobject_class,
 | |
|                                    PROP_HOMOGENEOUS,
 | |
|                                    g_param_spec_boolean ("homogeneous",
 | |
| 							 P_("Homogeneous"),
 | |
| 							 P_("Whether the children should all be the same size"),
 | |
| 							 FALSE,
 | |
| 							 GTK_PARAM_READWRITE));
 | |
| 
 | |
|   gtk_container_class_install_child_property (container_class,
 | |
| 					      CHILD_PROP_EXPAND,
 | |
| 					      g_param_spec_boolean ("expand", 
 | |
| 								    P_("Expand"), 
 | |
| 								    P_("Whether the child should receive extra space when the parent grows"),
 | |
| 								    TRUE,
 | |
| 								    GTK_PARAM_READWRITE));
 | |
|   gtk_container_class_install_child_property (container_class,
 | |
| 					      CHILD_PROP_FILL,
 | |
| 					      g_param_spec_boolean ("fill", 
 | |
| 								    P_("Fill"), 
 | |
| 								    P_("Whether extra space given to the child should be allocated to the child or used as padding"),
 | |
| 								    TRUE,
 | |
| 								    GTK_PARAM_READWRITE));
 | |
|   gtk_container_class_install_child_property (container_class,
 | |
| 					      CHILD_PROP_PADDING,
 | |
| 					      g_param_spec_uint ("padding", 
 | |
| 								 P_("Padding"), 
 | |
| 								 P_("Extra space to put between the child and its neighbors, in pixels"),
 | |
| 								 0, G_MAXINT, 0,
 | |
| 								 GTK_PARAM_READWRITE));
 | |
|   gtk_container_class_install_child_property (container_class,
 | |
| 					      CHILD_PROP_PACK_TYPE,
 | |
| 					      g_param_spec_enum ("pack-type", 
 | |
| 								 P_("Pack type"), 
 | |
| 								 P_("A GtkPackType indicating whether the child is packed with reference to the start or end of the parent"),
 | |
| 								 GTK_TYPE_PACK_TYPE, GTK_PACK_START,
 | |
| 								 GTK_PARAM_READWRITE));
 | |
|   gtk_container_class_install_child_property (container_class,
 | |
| 					      CHILD_PROP_POSITION,
 | |
| 					      g_param_spec_int ("position", 
 | |
| 								P_("Position"), 
 | |
| 								P_("The index of the child in the parent"),
 | |
| 								-1, G_MAXINT, 0,
 | |
| 								GTK_PARAM_READWRITE));
 | |
| }
 | |
| 
 | |
| static void
 | |
| gtk_box_init (GtkBox *box)
 | |
| {
 | |
|   GTK_WIDGET_SET_FLAGS (box, GTK_NO_WINDOW);
 | |
|   gtk_widget_set_redraw_on_allocate (GTK_WIDGET (box), FALSE);
 | |
|   
 | |
|   box->children = NULL;
 | |
|   box->spacing = 0;
 | |
|   box->homogeneous = FALSE;
 | |
| }
 | |
| 
 | |
| static void 
 | |
| gtk_box_set_property (GObject         *object,
 | |
| 		      guint            prop_id,
 | |
| 		      const GValue    *value,
 | |
| 		      GParamSpec      *pspec)
 | |
| {
 | |
|   GtkBox *box;
 | |
| 
 | |
|   box = GTK_BOX (object);
 | |
| 
 | |
|   switch (prop_id)
 | |
|     {
 | |
|     case PROP_SPACING:
 | |
|       gtk_box_set_spacing (box, g_value_get_int (value));
 | |
|       break;
 | |
|     case PROP_HOMOGENEOUS:
 | |
|       gtk_box_set_homogeneous (box, g_value_get_boolean (value));
 | |
|       break;
 | |
|     default:
 | |
|       G_OBJECT_WARN_INVALID_PROPERTY_ID (object, prop_id, pspec);
 | |
|       break;
 | |
|     }
 | |
| }
 | |
| 
 | |
| static void gtk_box_get_property (GObject         *object,
 | |
| 				  guint            prop_id,
 | |
| 				  GValue          *value,
 | |
| 				  GParamSpec      *pspec)
 | |
| {
 | |
|   GtkBox *box;
 | |
| 
 | |
|   box = GTK_BOX (object);
 | |
| 
 | |
|   switch (prop_id)
 | |
|     {
 | |
|     case PROP_SPACING:
 | |
|       g_value_set_int (value, box->spacing);
 | |
|       break;
 | |
|     case PROP_HOMOGENEOUS:
 | |
|       g_value_set_boolean (value, box->homogeneous);
 | |
|       break;
 | |
|     default:
 | |
|       G_OBJECT_WARN_INVALID_PROPERTY_ID (object, prop_id, pspec);
 | |
|       break;
 | |
|     }
 | |
| }
 | |
| 
 | |
| static GType
 | |
| gtk_box_child_type (GtkContainer   *container)
 | |
| {
 | |
|   return GTK_TYPE_WIDGET;
 | |
| }
 | |
| 
 | |
| static void
 | |
| gtk_box_set_child_property (GtkContainer    *container,
 | |
| 			    GtkWidget       *child,
 | |
| 			    guint            property_id,
 | |
| 			    const GValue    *value,
 | |
| 			    GParamSpec      *pspec)
 | |
| {
 | |
|   gboolean expand = 0;
 | |
|   gboolean fill = 0;
 | |
|   guint padding = 0;
 | |
|   GtkPackType pack_type = 0;
 | |
| 
 | |
|   if (property_id != CHILD_PROP_POSITION)
 | |
|     gtk_box_query_child_packing (GTK_BOX (container),
 | |
| 				 child,
 | |
| 				 &expand,
 | |
| 				 &fill,
 | |
| 				 &padding,
 | |
| 				 &pack_type);
 | |
|   switch (property_id)
 | |
|     {
 | |
|     case CHILD_PROP_EXPAND:
 | |
|       gtk_box_set_child_packing (GTK_BOX (container),
 | |
| 				 child,
 | |
| 				 g_value_get_boolean (value),
 | |
| 				 fill,
 | |
| 				 padding,
 | |
| 				 pack_type);
 | |
|       break;
 | |
|     case CHILD_PROP_FILL:
 | |
|       gtk_box_set_child_packing (GTK_BOX (container),
 | |
| 				 child,
 | |
| 				 expand,
 | |
| 				 g_value_get_boolean (value),
 | |
| 				 padding,
 | |
| 				 pack_type);
 | |
|       break;
 | |
|     case CHILD_PROP_PADDING:
 | |
|       gtk_box_set_child_packing (GTK_BOX (container),
 | |
| 				 child,
 | |
| 				 expand,
 | |
| 				 fill,
 | |
| 				 g_value_get_uint (value),
 | |
| 				 pack_type);
 | |
|       break;
 | |
|     case CHILD_PROP_PACK_TYPE:
 | |
|       gtk_box_set_child_packing (GTK_BOX (container),
 | |
| 				 child,
 | |
| 				 expand,
 | |
| 				 fill,
 | |
| 				 padding,
 | |
| 				 g_value_get_enum (value));
 | |
|       break;
 | |
|     case CHILD_PROP_POSITION:
 | |
|       gtk_box_reorder_child (GTK_BOX (container),
 | |
| 			     child,
 | |
| 			     g_value_get_int (value));
 | |
|       break;
 | |
|     default:
 | |
|       GTK_CONTAINER_WARN_INVALID_CHILD_PROPERTY_ID (container, property_id, pspec);
 | |
|       break;
 | |
|     }
 | |
| }
 | |
| 
 | |
| static void
 | |
| gtk_box_get_child_property (GtkContainer *container,
 | |
| 			    GtkWidget    *child,
 | |
| 			    guint         property_id,
 | |
| 			    GValue       *value,
 | |
| 			    GParamSpec   *pspec)
 | |
| {
 | |
|   gboolean expand = 0;
 | |
|   gboolean fill = 0;
 | |
|   guint padding = 0;
 | |
|   GtkPackType pack_type = 0;
 | |
|   GList *list;
 | |
| 
 | |
|   if (property_id != CHILD_PROP_POSITION)
 | |
|     gtk_box_query_child_packing (GTK_BOX (container),
 | |
| 				 child,
 | |
| 				 &expand,
 | |
| 				 &fill,
 | |
| 				 &padding,
 | |
| 				 &pack_type);
 | |
|   switch (property_id)
 | |
|     {
 | |
|       guint i;
 | |
|     case CHILD_PROP_EXPAND:
 | |
|       g_value_set_boolean (value, expand);
 | |
|       break;
 | |
|     case CHILD_PROP_FILL:
 | |
|       g_value_set_boolean (value, fill);
 | |
|       break;
 | |
|     case CHILD_PROP_PADDING:
 | |
|       g_value_set_uint (value, padding);
 | |
|       break;
 | |
|     case CHILD_PROP_PACK_TYPE:
 | |
|       g_value_set_enum (value, pack_type);
 | |
|       break;
 | |
|     case CHILD_PROP_POSITION:
 | |
|       i = 0;
 | |
|       for (list = GTK_BOX (container)->children; list; list = list->next)
 | |
| 	{
 | |
| 	  GtkBoxChild *child_entry;
 | |
| 
 | |
| 	  child_entry = list->data;
 | |
| 	  if (child_entry->widget == child)
 | |
| 	    break;
 | |
| 	  i++;
 | |
| 	}
 | |
|       g_value_set_int (value, list ? i : -1);
 | |
|       break;
 | |
|     default:
 | |
|       GTK_CONTAINER_WARN_INVALID_CHILD_PROPERTY_ID (container, property_id, pspec);
 | |
|       break;
 | |
|     }
 | |
| }
 | |
| 
 | |
| static void
 | |
| gtk_box_pack (GtkBox      *box,
 | |
|               GtkWidget   *child,
 | |
|               gboolean     expand,
 | |
|               gboolean     fill,
 | |
|               guint        padding,
 | |
|               GtkPackType  pack_type)
 | |
| {
 | |
|   GtkBoxChild *child_info;
 | |
| 
 | |
|   g_return_if_fail (GTK_IS_BOX (box));
 | |
|   g_return_if_fail (GTK_IS_WIDGET (child));
 | |
|   g_return_if_fail (child->parent == NULL);
 | |
| 
 | |
|   child_info = g_new (GtkBoxChild, 1);
 | |
|   child_info->widget = child;
 | |
|   child_info->padding = padding;
 | |
|   child_info->expand = expand ? TRUE : FALSE;
 | |
|   child_info->fill = fill ? TRUE : FALSE;
 | |
|   child_info->pack = pack_type;
 | |
|   child_info->is_secondary = FALSE;
 | |
| 
 | |
|   box->children = g_list_append (box->children, child_info);
 | |
| 
 | |
|   gtk_widget_freeze_child_notify (child);
 | |
| 
 | |
|   gtk_widget_set_parent (child, GTK_WIDGET (box));
 | |
|   
 | |
|   gtk_widget_child_notify (child, "expand");
 | |
|   gtk_widget_child_notify (child, "fill");
 | |
|   gtk_widget_child_notify (child, "padding");
 | |
|   gtk_widget_child_notify (child, "pack-type");
 | |
|   gtk_widget_child_notify (child, "position");
 | |
|   gtk_widget_thaw_child_notify (child);
 | |
| }
 | |
| 
 | |
| /**
 | |
|  * gtk_box_pack_start:
 | |
|  * @box: a #GtkBox
 | |
|  * @child: the #GtkWidget to be added to @box
 | |
|  * @expand: %TRUE if the new child is to be given extra space allocated to
 | |
|  * @box.  The extra space will be divided evenly between all children of
 | |
|  * @box that use this option
 | |
|  * @fill: %TRUE if space given to @child by the @expand option is
 | |
|  *   actually allocated to @child, rather than just padding it.  This
 | |
|  *   parameter has no effect if @expand is set to %FALSE.  A child is
 | |
|  *   always allocated the full height of a #GtkHBox and the full width 
 | |
|  *   of a #GtkVBox. This option affects the other dimension
 | |
|  * @padding: extra space in pixels to put between this child and its
 | |
|  *   neighbors, over and above the global amount specified by
 | |
|  *   #GtkBox:spacing property.  If @child is a widget at one of the 
 | |
|  *   reference ends of @box, then @padding pixels are also put between 
 | |
|  *   @child and the reference edge of @box
 | |
|  *
 | |
|  * Adds @child to @box, packed with reference to the start of @box.
 | |
|  * The @child is packed after any other child packed with reference 
 | |
|  * to the start of @box.
 | |
|  */
 | |
| void
 | |
| gtk_box_pack_start (GtkBox    *box,
 | |
| 		    GtkWidget *child,
 | |
| 		    gboolean   expand,
 | |
| 		    gboolean   fill,
 | |
| 		    guint      padding)
 | |
| {
 | |
|   gtk_box_pack (box, child, expand, fill, padding, GTK_PACK_START);
 | |
| }
 | |
| 
 | |
| /**
 | |
|  * gtk_box_pack_end:
 | |
|  * @box: a #GtkBox
 | |
|  * @child: the #GtkWidget to be added to @box
 | |
|  * @expand: %TRUE if the new child is to be given extra space allocated 
 | |
|  *   to @box. The extra space will be divided evenly between all children 
 | |
|  *   of @box that use this option
 | |
|  * @fill: %TRUE if space given to @child by the @expand option is
 | |
|  *   actually allocated to @child, rather than just padding it.  This
 | |
|  *   parameter has no effect if @expand is set to %FALSE.  A child is
 | |
|  *   always allocated the full height of a #GtkHBox and the full width 
 | |
|  *   of a #GtkVBox.  This option affects the other dimension
 | |
|  * @padding: extra space in pixels to put between this child and its
 | |
|  *   neighbors, over and above the global amount specified by
 | |
|  *   #GtkBox:spacing property.  If @child is a widget at one of the 
 | |
|  *   reference ends of @box, then @padding pixels are also put between 
 | |
|  *   @child and the reference edge of @box
 | |
|  *
 | |
|  * Adds @child to @box, packed with reference to the end of @box.  
 | |
|  * The @child is packed after (away from end of) any other child 
 | |
|  * packed with reference to the end of @box.
 | |
|  */
 | |
| void
 | |
| gtk_box_pack_end (GtkBox    *box,
 | |
| 		  GtkWidget *child,
 | |
| 		  gboolean   expand,
 | |
| 		  gboolean   fill,
 | |
| 		  guint      padding)
 | |
| {
 | |
|   gtk_box_pack (box, child, expand, fill, padding, GTK_PACK_END);
 | |
| }
 | |
| 
 | |
| /**
 | |
|  * gtk_box_pack_start_defaults:
 | |
|  * @box: a #GtkBox
 | |
|  * @widget: the #GtkWidget to be added to @box
 | |
|  *
 | |
|  * Adds @widget to @box, packed with reference to the start of @box.
 | |
|  * The child is packed after any other child packed with reference 
 | |
|  * to the start of @box. 
 | |
|  * 
 | |
|  * Parameters for how to pack the child @widget, #GtkBox:expand, 
 | |
|  * #GtkBox:fill and #GtkBox:padding, are given their default
 | |
|  * values, %TRUE, %TRUE, and 0, respectively.
 | |
|  *
 | |
|  * Deprecated: 2.14: Use gtk_box_pack_start()
 | |
|  */
 | |
| void
 | |
| gtk_box_pack_start_defaults (GtkBox    *box,
 | |
| 			     GtkWidget *child)
 | |
| {
 | |
|   gtk_box_pack_start (box, child, TRUE, TRUE, 0);
 | |
| }
 | |
| 
 | |
| /**
 | |
|  * gtk_box_pack_end_defaults:
 | |
|  * @box: a #GtkBox
 | |
|  * @widget: the #GtkWidget to be added to @box
 | |
|  *
 | |
|  * Adds @widget to @box, packed with reference to the end of @box.
 | |
|  * The child is packed after any other child packed with reference 
 | |
|  * to the start of @box. 
 | |
|  * 
 | |
|  * Parameters for how to pack the child @widget, #GtkBox:expand, 
 | |
|  * #GtkBox:fill and #GtkBox:padding, are given their default
 | |
|  * values, %TRUE, %TRUE, and 0, respectively.
 | |
|  *
 | |
|  * Deprecated: 2.14: Use gtk_box_pack_end()
 | |
|  */
 | |
| void
 | |
| gtk_box_pack_end_defaults (GtkBox    *box,
 | |
| 			   GtkWidget *child)
 | |
| {
 | |
|   gtk_box_pack_end (box, child, TRUE, TRUE, 0);
 | |
| }
 | |
| 
 | |
| /**
 | |
|  * gtk_box_set_homogeneous:
 | |
|  * @box: a #GtkBox
 | |
|  * @homogeneous: a boolean value, %TRUE to create equal allotments,
 | |
|  *   %FALSE for variable allotments
 | |
|  * 
 | |
|  * Sets the #GtkBox:homogeneous property of @box, controlling 
 | |
|  * whether or not all children of @box are given equal space 
 | |
|  * in the box.
 | |
|  */
 | |
| void
 | |
| gtk_box_set_homogeneous (GtkBox  *box,
 | |
| 			 gboolean homogeneous)
 | |
| {
 | |
|   g_return_if_fail (GTK_IS_BOX (box));
 | |
| 
 | |
|   if ((homogeneous ? TRUE : FALSE) != box->homogeneous)
 | |
|     {
 | |
|       box->homogeneous = homogeneous ? TRUE : FALSE;
 | |
|       g_object_notify (G_OBJECT (box), "homogeneous");
 | |
|       gtk_widget_queue_resize (GTK_WIDGET (box));
 | |
|     }
 | |
| }
 | |
| 
 | |
| /**
 | |
|  * gtk_box_get_homogeneous:
 | |
|  * @box: a #GtkBox
 | |
|  *
 | |
|  * Returns whether the box is homogeneous (all children are the
 | |
|  * same size). See gtk_box_set_homogeneous().
 | |
|  *
 | |
|  * Return value: %TRUE if the box is homogeneous.
 | |
|  **/
 | |
| gboolean
 | |
| gtk_box_get_homogeneous (GtkBox *box)
 | |
| {
 | |
|   g_return_val_if_fail (GTK_IS_BOX (box), FALSE);
 | |
| 
 | |
|   return box->homogeneous;
 | |
| }
 | |
| 
 | |
| /**
 | |
|  * gtk_box_set_spacing:
 | |
|  * @box: a #GtkBox
 | |
|  * @spacing: the number of pixels to put between children
 | |
|  *
 | |
|  * Sets the #GtkBox:spacing property of @box, which is the 
 | |
|  * number of pixels to place between children of @box.
 | |
|  */
 | |
| void
 | |
| gtk_box_set_spacing (GtkBox *box,
 | |
| 		     gint    spacing)
 | |
| {
 | |
|   g_return_if_fail (GTK_IS_BOX (box));
 | |
| 
 | |
|   if (spacing != box->spacing)
 | |
|     {
 | |
|       box->spacing = spacing;
 | |
|       g_object_notify (G_OBJECT (box), "spacing");
 | |
|       gtk_widget_queue_resize (GTK_WIDGET (box));
 | |
|     }
 | |
| }
 | |
| 
 | |
| /**
 | |
|  * gtk_box_get_spacing:
 | |
|  * @box: a #GtkBox
 | |
|  * 
 | |
|  * Gets the value set by gtk_box_set_spacing().
 | |
|  * 
 | |
|  * Return value: spacing between children
 | |
|  **/
 | |
| gint
 | |
| gtk_box_get_spacing (GtkBox *box)
 | |
| {
 | |
|   g_return_val_if_fail (GTK_IS_BOX (box), 0);
 | |
| 
 | |
|   return box->spacing;
 | |
| }
 | |
| 
 | |
| /**
 | |
|  * gtk_box_reorder_child:
 | |
|  * @box: a #GtkBox
 | |
|  * @child: the #GtkWidget to move
 | |
|  * @position: the new position for @child in the list of children 
 | |
|  *   of @box, starting from 0. If negative, indicates the end of 
 | |
|  *   the list
 | |
|  *
 | |
|  * Moves @child to a new @position in the list of @box children.  
 | |
|  * The list is the <structfield>children</structfield> field of
 | |
|  * #GtkBox-struct, and contains both widgets packed #GTK_PACK_START 
 | |
|  * as well as widgets packed #GTK_PACK_END, in the order that these 
 | |
|  * widgets were added to @box.
 | |
|  * 
 | |
|  * A widget's position in the @box children list determines where 
 | |
|  * the widget is packed into @box.  A child widget at some position 
 | |
|  * in the list will be packed just after all other widgets of the 
 | |
|  * same packing type that appear earlier in the list.
 | |
|  */ 
 | |
| void
 | |
| gtk_box_reorder_child (GtkBox    *box,
 | |
| 		       GtkWidget *child,
 | |
| 		       gint       position)
 | |
| {
 | |
|   GList *old_link;
 | |
|   GList *new_link;
 | |
|   GtkBoxChild *child_info = NULL;
 | |
|   gint old_position;
 | |
| 
 | |
|   g_return_if_fail (GTK_IS_BOX (box));
 | |
|   g_return_if_fail (GTK_IS_WIDGET (child));
 | |
| 
 | |
|   old_link = box->children;
 | |
|   old_position = 0;
 | |
|   while (old_link)
 | |
|     {
 | |
|       child_info = old_link->data;
 | |
|       if (child_info->widget == child)
 | |
| 	break;
 | |
| 
 | |
|       old_link = old_link->next;
 | |
|       old_position++;
 | |
|     }
 | |
| 
 | |
|   g_return_if_fail (old_link != NULL);
 | |
| 
 | |
|   if (position == old_position)
 | |
|     return;
 | |
| 
 | |
|   box->children = g_list_delete_link (box->children, old_link);
 | |
| 
 | |
|   if (position < 0)
 | |
|     new_link = NULL;
 | |
|   else
 | |
|     new_link = g_list_nth (box->children, position);
 | |
| 
 | |
|   box->children = g_list_insert_before (box->children, new_link, child_info);
 | |
| 
 | |
|   gtk_widget_child_notify (child, "position");
 | |
|   if (GTK_WIDGET_VISIBLE (child) && GTK_WIDGET_VISIBLE (box))
 | |
|     gtk_widget_queue_resize (child);
 | |
| }
 | |
| 
 | |
| /**
 | |
|  * gtk_box_query_child_packing:
 | |
|  * @box: a #GtkBox
 | |
|  * @child: the #GtkWidget of the child to query
 | |
|  * @expand: pointer to return location for #GtkBox:expand child property 
 | |
|  * @fill: pointer to return location for #GtkBox:fill child property 
 | |
|  * @padding: pointer to return location for #GtkBox:padding child property 
 | |
|  * @pack_type: pointer to return location for #GtkBox:pack-type child property 
 | |
|  * 
 | |
|  * Obtains information about how @child is packed into @box.
 | |
|  */
 | |
| void
 | |
| gtk_box_query_child_packing (GtkBox      *box,
 | |
| 			     GtkWidget   *child,
 | |
| 			     gboolean    *expand,
 | |
| 			     gboolean    *fill,
 | |
| 			     guint       *padding,
 | |
| 			     GtkPackType *pack_type)
 | |
| {
 | |
|   GList *list;
 | |
|   GtkBoxChild *child_info = NULL;
 | |
| 
 | |
|   g_return_if_fail (GTK_IS_BOX (box));
 | |
|   g_return_if_fail (GTK_IS_WIDGET (child));
 | |
| 
 | |
|   list = box->children;
 | |
|   while (list)
 | |
|     {
 | |
|       child_info = list->data;
 | |
|       if (child_info->widget == child)
 | |
| 	break;
 | |
| 
 | |
|       list = list->next;
 | |
|     }
 | |
| 
 | |
|   if (list)
 | |
|     {
 | |
|       if (expand)
 | |
| 	*expand = child_info->expand;
 | |
|       if (fill)
 | |
| 	*fill = child_info->fill;
 | |
|       if (padding)
 | |
| 	*padding = child_info->padding;
 | |
|       if (pack_type)
 | |
| 	*pack_type = child_info->pack;
 | |
|     }
 | |
| }
 | |
| 
 | |
| /**
 | |
|  * gtk_box_set_child_packing:
 | |
|  * @box: a #GtkBox
 | |
|  * @child: the #GtkWidget of the child to set
 | |
|  * @expand: the new value of the #GtkBox:expand child property 
 | |
|  * @fill: the new value of the #GtkBox:fill child property
 | |
|  * @padding: the new value of the #GtkBox:padding child property
 | |
|  * @pack_type: the new value of the #GtkBox:pack-type child property
 | |
|  *
 | |
|  * Sets the way @child is packed into @box.
 | |
|  */
 | |
| void
 | |
| gtk_box_set_child_packing (GtkBox      *box,
 | |
| 			   GtkWidget   *child,
 | |
| 			   gboolean     expand,
 | |
| 			   gboolean     fill,
 | |
| 			   guint        padding,
 | |
| 			   GtkPackType  pack_type)
 | |
| {
 | |
|   GList *list;
 | |
|   GtkBoxChild *child_info = NULL;
 | |
| 
 | |
|   g_return_if_fail (GTK_IS_BOX (box));
 | |
|   g_return_if_fail (GTK_IS_WIDGET (child));
 | |
| 
 | |
|   list = box->children;
 | |
|   while (list)
 | |
|     {
 | |
|       child_info = list->data;
 | |
|       if (child_info->widget == child)
 | |
| 	break;
 | |
| 
 | |
|       list = list->next;
 | |
|     }
 | |
| 
 | |
|   gtk_widget_freeze_child_notify (child);
 | |
|   if (list)
 | |
|     {
 | |
|       child_info->expand = expand != FALSE;
 | |
|       gtk_widget_child_notify (child, "expand");
 | |
|       child_info->fill = fill != FALSE;
 | |
|       gtk_widget_child_notify (child, "fill");
 | |
|       child_info->padding = padding;
 | |
|       gtk_widget_child_notify (child, "padding");
 | |
|       if (pack_type == GTK_PACK_END)
 | |
| 	child_info->pack = GTK_PACK_END;
 | |
|       else
 | |
| 	child_info->pack = GTK_PACK_START;
 | |
|       gtk_widget_child_notify (child, "pack-type");
 | |
| 
 | |
|       if (GTK_WIDGET_VISIBLE (child) && GTK_WIDGET_VISIBLE (box))
 | |
| 	gtk_widget_queue_resize (child);
 | |
|     }
 | |
|   gtk_widget_thaw_child_notify (child);
 | |
| }
 | |
| 
 | |
| static void
 | |
| gtk_box_add (GtkContainer *container,
 | |
| 	     GtkWidget    *widget)
 | |
| {
 | |
|   gtk_box_pack_start_defaults (GTK_BOX (container), widget);
 | |
| }
 | |
| 
 | |
| static void
 | |
| gtk_box_remove (GtkContainer *container,
 | |
| 		GtkWidget    *widget)
 | |
| {
 | |
|   GtkBox *box = GTK_BOX (container);
 | |
|   GtkBoxChild *child;
 | |
|   GList *children;
 | |
| 
 | |
|   children = box->children;
 | |
|   while (children)
 | |
|     {
 | |
|       child = children->data;
 | |
| 
 | |
|       if (child->widget == widget)
 | |
| 	{
 | |
| 	  gboolean was_visible;
 | |
| 
 | |
| 	  was_visible = GTK_WIDGET_VISIBLE (widget);
 | |
| 	  gtk_widget_unparent (widget);
 | |
| 
 | |
| 	  box->children = g_list_remove_link (box->children, children);
 | |
| 	  g_list_free (children);
 | |
| 	  g_free (child);
 | |
| 
 | |
| 	  /* queue resize regardless of GTK_WIDGET_VISIBLE (container),
 | |
| 	   * since that's what is needed by toplevels.
 | |
| 	   */
 | |
| 	  if (was_visible)
 | |
| 	    gtk_widget_queue_resize (GTK_WIDGET (container));
 | |
| 
 | |
| 	  break;
 | |
| 	}
 | |
| 
 | |
|       children = children->next;
 | |
|     }
 | |
| }
 | |
| 
 | |
| static void
 | |
| gtk_box_forall (GtkContainer *container,
 | |
| 		gboolean      include_internals,
 | |
| 		GtkCallback   callback,
 | |
| 		gpointer      callback_data)
 | |
| {
 | |
|   GtkBox *box = GTK_BOX (container);
 | |
|   GtkBoxChild *child;
 | |
|   GList *children;
 | |
| 
 | |
|   children = box->children;
 | |
|   while (children)
 | |
|     {
 | |
|       child = children->data;
 | |
|       children = children->next;
 | |
| 
 | |
|       if (child->pack == GTK_PACK_START)
 | |
| 	(* callback) (child->widget, callback_data);
 | |
|     }
 | |
| 
 | |
|   children = g_list_last (box->children);
 | |
|   while (children)
 | |
|     {
 | |
|       child = children->data;
 | |
|       children = children->prev;
 | |
| 
 | |
|       if (child->pack == GTK_PACK_END)
 | |
| 	(* callback) (child->widget, callback_data);
 | |
|     }
 | |
| }
 | |
| 
 | |
| #define __GTK_BOX_C__
 | |
| #include "gtkaliasdef.c"
 | 
