gimp/app/pdb/context_cmds.c

/* The GIMP -- an image manipulation program
 * Copyright (C) 1995-2003 Spencer Kimball and Peter Mattis
 *
 * 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 2 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, write to the Free Software
 * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
 */

/* NOTE: This file is autogenerated by pdbgen.pl. */

#include "config.h"


#include <glib-object.h>

#include "libgimpcolor/gimpcolor.h"

#include "pdb-types.h"
#include "procedural_db.h"

#include "core/gimp.h"
#include "core/gimpcontainer.h"
#include "core/gimpcontext.h"
#include "core/gimpdatafactory.h"
#include "plug-in/plug-in-context.h"
#include "plug-in/plug-in.h"

static ProcRecord context_push_proc;
static ProcRecord context_pop_proc;
static ProcRecord context_get_paint_method_proc;
static ProcRecord context_set_paint_method_proc;
static ProcRecord context_get_foreground_proc;
static ProcRecord context_set_foreground_proc;
static ProcRecord context_get_background_proc;
static ProcRecord context_set_background_proc;
static ProcRecord context_set_default_colors_proc;
static ProcRecord context_swap_colors_proc;
static ProcRecord context_get_opacity_proc;
static ProcRecord context_set_opacity_proc;
static ProcRecord context_get_paint_mode_proc;
static ProcRecord context_set_paint_mode_proc;
static ProcRecord context_get_brush_proc;
static ProcRecord context_set_brush_proc;
static ProcRecord context_get_pattern_proc;
static ProcRecord context_set_pattern_proc;
static ProcRecord context_get_gradient_proc;
static ProcRecord context_set_gradient_proc;
static ProcRecord context_get_palette_proc;
static ProcRecord context_set_palette_proc;
static ProcRecord context_get_font_proc;
static ProcRecord context_set_font_proc;

void
register_context_procs (Gimp *gimp)
{
  procedural_db_register (gimp, &context_push_proc);
  procedural_db_register (gimp, &context_pop_proc);
  procedural_db_register (gimp, &context_get_paint_method_proc);
  procedural_db_register (gimp, &context_set_paint_method_proc);
  procedural_db_register (gimp, &context_get_foreground_proc);
  procedural_db_register (gimp, &context_set_foreground_proc);
  procedural_db_register (gimp, &context_get_background_proc);
  procedural_db_register (gimp, &context_set_background_proc);
  procedural_db_register (gimp, &context_set_default_colors_proc);
  procedural_db_register (gimp, &context_swap_colors_proc);
  procedural_db_register (gimp, &context_get_opacity_proc);
  procedural_db_register (gimp, &context_set_opacity_proc);
  procedural_db_register (gimp, &context_get_paint_mode_proc);
  procedural_db_register (gimp, &context_set_paint_mode_proc);
  procedural_db_register (gimp, &context_get_brush_proc);
  procedural_db_register (gimp, &context_set_brush_proc);
  procedural_db_register (gimp, &context_get_pattern_proc);
  procedural_db_register (gimp, &context_set_pattern_proc);
  procedural_db_register (gimp, &context_get_gradient_proc);
  procedural_db_register (gimp, &context_set_gradient_proc);
  procedural_db_register (gimp, &context_get_palette_proc);
  procedural_db_register (gimp, &context_set_palette_proc);
  procedural_db_register (gimp, &context_get_font_proc);
  procedural_db_register (gimp, &context_set_font_proc);
}

static Argument *
context_push_invoker (Gimp         *gimp,
                      GimpContext  *context,
                      GimpProgress *progress,
                      Argument     *args)
{
  gboolean success = TRUE;
  if (gimp->current_plug_in && gimp->current_plug_in->open)
    {
      success = plug_in_context_push (gimp->current_plug_in);
    }
  else
    {
      success = FALSE;
    }
  return procedural_db_return_args (&context_push_proc, success);
}

static ProcRecord context_push_proc =
{
  "gimp-context-push",
  "gimp-context-push",
  "Pushes a context to the top of the plug-in's context stack.",
  "This procedure creates a new context by copying the current context. This copy becomes the new current context for the calling plug-in until it is popped again using gimp-context-pop.",
  "Michael Natterer <mitch@gimp.org> & Sven Neumann <sven@gimp.org>",
  "Michael Natterer & Sven Neumann",
  "2004",
  NULL,
  GIMP_INTERNAL,
  0,
  NULL,
  0,
  NULL,
  { { context_push_invoker } }
};

static Argument *
context_pop_invoker (Gimp         *gimp,
                     GimpContext  *context,
                     GimpProgress *progress,
                     Argument     *args)
{
  gboolean success = TRUE;
  if (gimp->current_plug_in && gimp->current_plug_in->open)
    {
      success = plug_in_context_pop (gimp->current_plug_in);
    }
  else
    {
      success = FALSE;
    }
  return procedural_db_return_args (&context_pop_proc, success);
}

static ProcRecord context_pop_proc =
{
  "gimp-context-pop",
  "gimp-context-pop",
  "Pops the topmost context from the plug-in's context stack.",
  "This procedure removes the topmost context from the plug-in's context stack. The context that was active before the corresponding call to gimp-context-push becomes the new current context of the plug-in.",
  "Michael Natterer <mitch@gimp.org> & Sven Neumann <sven@gimp.org>",
  "Michael Natterer & Sven Neumann",
  "2004",
  NULL,
  GIMP_INTERNAL,
  0,
  NULL,
  0,
  NULL,
  { { context_pop_invoker } }
};

static Argument *
context_get_paint_method_invoker (Gimp         *gimp,
                                  GimpContext  *context,
                                  GimpProgress *progress,
                                  Argument     *args)
{
  gboolean success = TRUE;
  Argument *return_args;
  GimpPaintInfo *paint_info;

  success = (paint_info = gimp_context_get_paint_info (context)) != NULL;

  return_args = procedural_db_return_args (&context_get_paint_method_proc, success);

  if (success)
    return_args[1].value.pdb_pointer = g_strdup (gimp_object_get_name (GIMP_OBJECT (paint_info)));

  return return_args;
}

static ProcArg context_get_paint_method_outargs[] =
{
  {
    GIMP_PDB_STRING,
    "name",
    "The name of the active paint method"
  }
};

static ProcRecord context_get_paint_method_proc =
{
  "gimp-context-get-paint-method",
  "gimp-context-get-paint-method",
  "Retrieve the currently active paint method.",
  "This procedure returns the name of the currently active paint method.",
  "Michael Natterer <mitch@gimp.org>",
  "Michael Natterer",
  "2005",
  NULL,
  GIMP_INTERNAL,
  0,
  NULL,
  1,
  context_get_paint_method_outargs,
  { { context_get_paint_method_invoker } }
};

static Argument *
context_set_paint_method_invoker (Gimp         *gimp,
                                  GimpContext  *context,
                                  GimpProgress *progress,
                                  Argument     *args)
{
  gboolean success = TRUE;
  gchar *name;
  GimpPaintInfo *paint_info;

  name = (gchar *) args[0].value.pdb_pointer;
  if (name == NULL || !g_utf8_validate (name, -1, NULL))
    success = FALSE;

  if (success)
    {
      paint_info = (GimpPaintInfo *)
        gimp_container_get_child_by_name (gimp->paint_info_list, name);

      if (paint_info)
        gimp_context_set_paint_info (context, paint_info);
      else
        success = FALSE;
    }

  return procedural_db_return_args (&context_set_paint_method_proc, success);
}

static ProcArg context_set_paint_method_inargs[] =
{
  {
    GIMP_PDB_STRING,
    "name",
    "The name of the paint method"
  }
};

static ProcRecord context_set_paint_method_proc =
{
  "gimp-context-set-paint-method",
  "gimp-context-set-paint-method",
  "Set the specified paint method as the active paint method.",
  "This procedure allows the active paint method to be set by specifying its name. The name is simply a string which corresponds to one of the names of the available paint methods. If there is no matching method found, this procedure will return an error. Otherwise, the specified method becomes active and will be used in all subsequent paint operations.",
  "Michael Natterer <mitch@gimp.org>",
  "Michael Natterer",
  "2005",
  NULL,
  GIMP_INTERNAL,
  1,
  context_set_paint_method_inargs,
  0,
  NULL,
  { { context_set_paint_method_invoker } }
};

static Argument *
context_get_foreground_invoker (Gimp         *gimp,
                                GimpContext  *context,
                                GimpProgress *progress,
                                Argument     *args)
{
  Argument *return_args;
  GimpRGB color;

  gimp_context_get_foreground (context, &color);

  return_args = procedural_db_return_args (&context_get_foreground_proc, TRUE);
  return_args[1].value.pdb_color = color;

  return return_args;
}

static ProcArg context_get_foreground_outargs[] =
{
  {
    GIMP_PDB_COLOR,
    "foreground",
    "The foreground color"
  }
};

static ProcRecord context_get_foreground_proc =
{
  "gimp-context-get-foreground",
  "gimp-context-get-foreground",
  "Get the current GIMP foreground color.",
  "This procedure returns the current GIMP foreground color. The foreground color is used in a variety of tools such as paint tools, blending, and bucket fill.",
  "Michael Natterer <mitch@gimp.org> & Sven Neumann <sven@gimp.org>",
  "Michael Natterer & Sven Neumann",
  "2004",
  NULL,
  GIMP_INTERNAL,
  0,
  NULL,
  1,
  context_get_foreground_outargs,
  { { context_get_foreground_invoker } }
};

static Argument *
context_set_foreground_invoker (Gimp         *gimp,
                                GimpContext  *context,
                                GimpProgress *progress,
                                Argument     *args)
{
  GimpRGB color;

  color = args[0].value.pdb_color;

  gimp_rgb_set_alpha (&color, 1.0);
  gimp_context_set_foreground (context, &color);

  return procedural_db_return_args (&context_set_foreground_proc, TRUE);
}

static ProcArg context_set_foreground_inargs[] =
{
  {
    GIMP_PDB_COLOR,
    "foreground",
    "The foreground color"
  }
};

static ProcRecord context_set_foreground_proc =
{
  "gimp-context-set-foreground",
  "gimp-context-set-foreground",
  "Set the current GIMP foreground color.",
  "This procedure sets the current GIMP foreground color. After this is set, operations which use foreground such as paint tools, blending, and bucket fill will use the new value.",
  "Michael Natterer <mitch@gimp.org> & Sven Neumann <sven@gimp.org>",
  "Michael Natterer & Sven Neumann",
  "2004",
  NULL,
  GIMP_INTERNAL,
  1,
  context_set_foreground_inargs,
  0,
  NULL,
  { { context_set_foreground_invoker } }
};

static Argument *
context_get_background_invoker (Gimp         *gimp,
                                GimpContext  *context,
                                GimpProgress *progress,
                                Argument     *args)
{
  Argument *return_args;
  GimpRGB color;

  gimp_context_get_background (context, &color);

  return_args = procedural_db_return_args (&context_get_background_proc, TRUE);
  return_args[1].value.pdb_color = color;

  return return_args;
}

static ProcArg context_get_background_outargs[] =
{
  {
    GIMP_PDB_COLOR,
    "background",
    "The background color"
  }
};

static ProcRecord context_get_background_proc =
{
  "gimp-context-get-background",
  "gimp-context-get-background",
  "Get the current GIMP background color.",
  "This procedure returns the current GIMP background color. The background color is used in a variety of tools such as blending, erasing (with non-alpha images), and image filling.",
  "Michael Natterer <mitch@gimp.org> & Sven Neumann <sven@gimp.org>",
  "Michael Natterer & Sven Neumann",
  "2004",
  NULL,
  GIMP_INTERNAL,
  0,
  NULL,
  1,
  context_get_background_outargs,
  { { context_get_background_invoker } }
};

static Argument *
context_set_background_invoker (Gimp         *gimp,
                                GimpContext  *context,
                                GimpProgress *progress,
                                Argument     *args)
{
  GimpRGB color;

  color = args[0].value.pdb_color;

  gimp_rgb_set_alpha (&color, 1.0);
  gimp_context_set_background (context, &color);

  return procedural_db_return_args (&context_set_background_proc, TRUE);
}

static ProcArg context_set_background_inargs[] =
{
  {
    GIMP_PDB_COLOR,
    "background",
    "The background color"
  }
};

static ProcRecord context_set_background_proc =
{
  "gimp-context-set-background",
  "gimp-context-set-background",
  "Set the current GIMP background color.",
  "This procedure sets the current GIMP background color. After this is set, operations which use background such as blending, filling images, clearing, and erasing (in non-alpha images) will use the new value.",
  "Michael Natterer <mitch@gimp.org> & Sven Neumann <sven@gimp.org>",
  "Michael Natterer & Sven Neumann",
  "2004",
  NULL,
  GIMP_INTERNAL,
  1,
  context_set_background_inargs,
  0,
  NULL,
  { { context_set_background_invoker } }
};

static Argument *
context_set_default_colors_invoker (Gimp         *gimp,
                                    GimpContext  *context,
                                    GimpProgress *progress,
                                    Argument     *args)
{
  gimp_context_set_default_colors (context);
  return procedural_db_return_args (&context_set_default_colors_proc, TRUE);
}

static ProcRecord context_set_default_colors_proc =
{
  "gimp-context-set-default-colors",
  "gimp-context-set-default-colors",
  "Set the current GIMP foreground and background colors to black and white.",
  "This procedure sets the current GIMP foreground and background colors to their initial default values, black and white.",
  "Michael Natterer <mitch@gimp.org> & Sven Neumann <sven@gimp.org>",
  "Michael Natterer & Sven Neumann",
  "2004",
  NULL,
  GIMP_INTERNAL,
  0,
  NULL,
  0,
  NULL,
  { { context_set_default_colors_invoker } }
};

static Argument *
context_swap_colors_invoker (Gimp         *gimp,
                             GimpContext  *context,
                             GimpProgress *progress,
                             Argument     *args)
{
  gimp_context_swap_colors (context);
  return procedural_db_return_args (&context_swap_colors_proc, TRUE);
}

static ProcRecord context_swap_colors_proc =
{
  "gimp-context-swap-colors",
  "gimp-context-swap-colors",
  "Swap the current GIMP foreground and background colors.",
  "This procedure swaps the current GIMP foreground and background colors, so that the new foreground color becomes the old background color and vice versa.",
  "Michael Natterer <mitch@gimp.org> & Sven Neumann <sven@gimp.org>",
  "Michael Natterer & Sven Neumann",
  "2004",
  NULL,
  GIMP_INTERNAL,
  0,
  NULL,
  0,
  NULL,
  { { context_swap_colors_invoker } }
};

static Argument *
context_get_opacity_invoker (Gimp         *gimp,
                             GimpContext  *context,
                             GimpProgress *progress,
                             Argument     *args)
{
  Argument *return_args;

  return_args = procedural_db_return_args (&context_get_opacity_proc, TRUE);
  return_args[1].value.pdb_float = gimp_context_get_opacity (context) * 100.0;

  return return_args;
}

static ProcArg context_get_opacity_outargs[] =
{
  {
    GIMP_PDB_FLOAT,
    "opacity",
    "The opacity: 0 <= opacity <= 100"
  }
};

static ProcRecord context_get_opacity_proc =
{
  "gimp-context-get-opacity",
  "gimp-context-get-opacity",
  "Get the opacity.",
  "This procedure returns the opacity setting. The return value is a floating point number between 0 and 100.",
  "Michael Natterer <mitch@gimp.org> & Sven Neumann <sven@gimp.org>",
  "Michael Natterer & Sven Neumann",
  "2004",
  NULL,
  GIMP_INTERNAL,
  0,
  NULL,
  1,
  context_get_opacity_outargs,
  { { context_get_opacity_invoker } }
};

static Argument *
context_set_opacity_invoker (Gimp         *gimp,
                             GimpContext  *context,
                             GimpProgress *progress,
                             Argument     *args)
{
  gboolean success = TRUE;
  gdouble opacity;

  opacity = args[0].value.pdb_float;
  if (opacity < 0.0 || opacity > 100.0)
    success = FALSE;

  if (success)
    gimp_context_set_opacity (context, opacity / 100.0);

  return procedural_db_return_args (&context_set_opacity_proc, success);
}

static ProcArg context_set_opacity_inargs[] =
{
  {
    GIMP_PDB_FLOAT,
    "opacity",
    "The opacity: 0 <= opacity <= 100"
  }
};

static ProcRecord context_set_opacity_proc =
{
  "gimp-context-set-opacity",
  "gimp-context-set-opacity",
  "Set the opacity.",
  "This procedure modifies the opacity setting. The value should be a floating point number between 0 and 100.",
  "Michael Natterer <mitch@gimp.org> & Sven Neumann <sven@gimp.org>",
  "Michael Natterer & Sven Neumann",
  "2004",
  NULL,
  GIMP_INTERNAL,
  1,
  context_set_opacity_inargs,
  0,
  NULL,
  { { context_set_opacity_invoker } }
};

static Argument *
context_get_paint_mode_invoker (Gimp         *gimp,
                                GimpContext  *context,
                                GimpProgress *progress,
                                Argument     *args)
{
  Argument *return_args;

  return_args = procedural_db_return_args (&context_get_paint_mode_proc, TRUE);
  return_args[1].value.pdb_int = gimp_context_get_paint_mode (context);

  return return_args;
}

static ProcArg context_get_paint_mode_outargs[] =
{
  {
    GIMP_PDB_INT32,
    "paint-mode",
    "The paint mode: { GIMP_NORMAL_MODE (0), GIMP_DISSOLVE_MODE (1), GIMP_BEHIND_MODE (2), GIMP_MULTIPLY_MODE (3), GIMP_SCREEN_MODE (4), GIMP_OVERLAY_MODE (5), GIMP_DIFFERENCE_MODE (6), GIMP_ADDITION_MODE (7), GIMP_SUBTRACT_MODE (8), GIMP_DARKEN_ONLY_MODE (9), GIMP_LIGHTEN_ONLY_MODE (10), GIMP_HUE_MODE (11), GIMP_SATURATION_MODE (12), GIMP_COLOR_MODE (13), GIMP_VALUE_MODE (14), GIMP_DIVIDE_MODE (15), GIMP_DODGE_MODE (16), GIMP_BURN_MODE (17), GIMP_HARDLIGHT_MODE (18), GIMP_SOFTLIGHT_MODE (19), GIMP_GRAIN_EXTRACT_MODE (20), GIMP_GRAIN_MERGE_MODE (21), GIMP_COLOR_ERASE_MODE (22) }"
  }
};

static ProcRecord context_get_paint_mode_proc =
{
  "gimp-context-get-paint-mode",
  "gimp-context-get-paint-mode",
  "Get the paint mode.",
  "This procedure returns the paint-mode setting. The return value is an integer which corresponds to the values listed in the argument description.",
  "Michael Natterer <mitch@gimp.org> & Sven Neumann <sven@gimp.org>",
  "Michael Natterer & Sven Neumann",
  "2004",
  NULL,
  GIMP_INTERNAL,
  0,
  NULL,
  1,
  context_get_paint_mode_outargs,
  { { context_get_paint_mode_invoker } }
};

static Argument *
context_set_paint_mode_invoker (Gimp         *gimp,
                                GimpContext  *context,
                                GimpProgress *progress,
                                Argument     *args)
{
  gboolean success = TRUE;
  gint32 paint_mode;

  paint_mode = args[0].value.pdb_int;
  if (paint_mode < GIMP_NORMAL_MODE || paint_mode > GIMP_COLOR_ERASE_MODE)
    success = FALSE;

  if (success)
    gimp_context_set_paint_mode (context, paint_mode);

  return procedural_db_return_args (&context_set_paint_mode_proc, success);
}

static ProcArg context_set_paint_mode_inargs[] =
{
  {
    GIMP_PDB_INT32,
    "paint-mode",
    "The paint mode: { GIMP_NORMAL_MODE (0), GIMP_DISSOLVE_MODE (1), GIMP_BEHIND_MODE (2), GIMP_MULTIPLY_MODE (3), GIMP_SCREEN_MODE (4), GIMP_OVERLAY_MODE (5), GIMP_DIFFERENCE_MODE (6), GIMP_ADDITION_MODE (7), GIMP_SUBTRACT_MODE (8), GIMP_DARKEN_ONLY_MODE (9), GIMP_LIGHTEN_ONLY_MODE (10), GIMP_HUE_MODE (11), GIMP_SATURATION_MODE (12), GIMP_COLOR_MODE (13), GIMP_VALUE_MODE (14), GIMP_DIVIDE_MODE (15), GIMP_DODGE_MODE (16), GIMP_BURN_MODE (17), GIMP_HARDLIGHT_MODE (18), GIMP_SOFTLIGHT_MODE (19), GIMP_GRAIN_EXTRACT_MODE (20), GIMP_GRAIN_MERGE_MODE (21), GIMP_COLOR_ERASE_MODE (22) }"
  }
};

static ProcRecord context_set_paint_mode_proc =
{
  "gimp-context-set-paint-mode",
  "gimp-context-set-paint-mode",
  "Set the paint mode.",
  "This procedure modifies the paint_mode setting.",
  "Michael Natterer <mitch@gimp.org> & Sven Neumann <sven@gimp.org>",
  "Michael Natterer & Sven Neumann",
  "2004",
  NULL,
  GIMP_INTERNAL,
  1,
  context_set_paint_mode_inargs,
  0,
  NULL,
  { { context_set_paint_mode_invoker } }
};

static Argument *
context_get_brush_invoker (Gimp         *gimp,
                           GimpContext  *context,
                           GimpProgress *progress,
                           Argument     *args)
{
  gboolean success = TRUE;
  Argument *return_args;
  GimpBrush *brush;

  success = (brush = gimp_context_get_brush (context)) != NULL;

  return_args = procedural_db_return_args (&context_get_brush_proc, success);

  if (success)
    return_args[1].value.pdb_pointer = g_strdup (gimp_object_get_name (GIMP_OBJECT (brush)));

  return return_args;
}

static ProcArg context_get_brush_outargs[] =
{
  {
    GIMP_PDB_STRING,
    "name",
    "The name of the active brush"
  }
};

static ProcRecord context_get_brush_proc =
{
  "gimp-context-get-brush",
  "gimp-context-get-brush",
  "Retrieve the currently active brush.",
  "This procedure returns the name of the currently active brush. All paint operations and stroke operations use this brush to control the application of paint to the image.",
  "Michael Natterer <mitch@gimp.org> & Sven Neumann <sven@gimp.org>",
  "Michael Natterer & Sven Neumann",
  "2004",
  NULL,
  GIMP_INTERNAL,
  0,
  NULL,
  1,
  context_get_brush_outargs,
  { { context_get_brush_invoker } }
};

static Argument *
context_set_brush_invoker (Gimp         *gimp,
                           GimpContext  *context,
                           GimpProgress *progress,
                           Argument     *args)
{
  gboolean success = TRUE;
  gchar *name;
  GimpBrush *brush;

  name = (gchar *) args[0].value.pdb_pointer;
  if (name == NULL || !g_utf8_validate (name, -1, NULL))
    success = FALSE;

  if (success)
    {
      brush = (GimpBrush *)
        gimp_container_get_child_by_name (gimp->brush_factory->container, name);

      if (brush)
        gimp_context_set_brush (context, brush);
      else
        success = FALSE;
    }

  return procedural_db_return_args (&context_set_brush_proc, success);
}

static ProcArg context_set_brush_inargs[] =
{
  {
    GIMP_PDB_STRING,
    "name",
    "The name of the brush"
  }
};

static ProcRecord context_set_brush_proc =
{
  "gimp-context-set-brush",
  "gimp-context-set-brush",
  "Set the specified brush as the active brush.",
  "This procedure allows the active brush to be set by specifying its name. The name is simply a string which corresponds to one of the names of the installed brushes. If there is no matching brush found, this procedure will return an error. Otherwise, the specified brush becomes active and will be used in all subsequent paint operations.",
  "Michael Natterer <mitch@gimp.org> & Sven Neumann <sven@gimp.org>",
  "Michael Natterer & Sven Neumann",
  "2004",
  NULL,
  GIMP_INTERNAL,
  1,
  context_set_brush_inargs,
  0,
  NULL,
  { { context_set_brush_invoker } }
};

static Argument *
context_get_pattern_invoker (Gimp         *gimp,
                             GimpContext  *context,
                             GimpProgress *progress,
                             Argument     *args)
{
  gboolean success = TRUE;
  Argument *return_args;
  GimpPattern *pattern;

  success = (pattern = gimp_context_get_pattern (context)) != NULL;

  return_args = procedural_db_return_args (&context_get_pattern_proc, success);

  if (success)
    return_args[1].value.pdb_pointer = g_strdup (gimp_object_get_name (GIMP_OBJECT (pattern)));

  return return_args;
}

static ProcArg context_get_pattern_outargs[] =
{
  {
    GIMP_PDB_STRING,
    "name",
    "The name of the active pattern"
  }
};

static ProcRecord context_get_pattern_proc =
{
  "gimp-context-get-pattern",
  "gimp-context-get-pattern",
  "Retrieve the currently active pattern.",
  "This procedure returns name of the the currently active pattern. All clone and bucket-fill operations with patterns will use this pattern to control the application of paint to the image.",
  "Michael Natterer <mitch@gimp.org> & Sven Neumann <sven@gimp.org>",
  "Michael Natterer & Sven Neumann",
  "2004",
  NULL,
  GIMP_INTERNAL,
  0,
  NULL,
  1,
  context_get_pattern_outargs,
  { { context_get_pattern_invoker } }
};

static Argument *
context_set_pattern_invoker (Gimp         *gimp,
                             GimpContext  *context,
                             GimpProgress *progress,
                             Argument     *args)
{
  gboolean success = TRUE;
  gchar *name;
  GimpPattern *pattern;

  name = (gchar *) args[0].value.pdb_pointer;
  if (name == NULL || !g_utf8_validate (name, -1, NULL))
    success = FALSE;

  if (success)
    {
      pattern = (GimpPattern *)
        gimp_container_get_child_by_name (gimp->pattern_factory->container, name);

      if (pattern)
        gimp_context_set_pattern (context, pattern);
      else
        success = FALSE;
    }

  return procedural_db_return_args (&context_set_pattern_proc, success);
}

static ProcArg context_set_pattern_inargs[] =
{
  {
    GIMP_PDB_STRING,
    "name",
    "The name of the pattern"
  }
};

static ProcRecord context_set_pattern_proc =
{
  "gimp-context-set-pattern",
  "gimp-context-set-pattern",
  "Set the specified pattern as the active pattern.",
  "This procedure allows the active pattern to be set by specifying its name. The name is simply a string which corresponds to one of the names of the installed patterns. If there is no matching pattern found, this procedure will return an error. Otherwise, the specified pattern becomes active and will be used in all subsequent paint operations.",
  "Michael Natterer <mitch@gimp.org> & Sven Neumann <sven@gimp.org>",
  "Michael Natterer & Sven Neumann",
  "2004",
  NULL,
  GIMP_INTERNAL,
  1,
  context_set_pattern_inargs,
  0,
  NULL,
  { { context_set_pattern_invoker } }
};

static Argument *
context_get_gradient_invoker (Gimp         *gimp,
                              GimpContext  *context,
                              GimpProgress *progress,
                              Argument     *args)
{
  gboolean success = TRUE;
  Argument *return_args;
  GimpGradient *gradient;

  success = (gradient = gimp_context_get_gradient (context)) != NULL;

  return_args = procedural_db_return_args (&context_get_gradient_proc, success);

  if (success)
    return_args[1].value.pdb_pointer = g_strdup (gimp_object_get_name (GIMP_OBJECT (gradient)));

  return return_args;
}

static ProcArg context_get_gradient_outargs[] =
{
  {
    GIMP_PDB_STRING,
    "name",
    "The name of the active gradient"
  }
};

static ProcRecord context_get_gradient_proc =
{
  "gimp-context-get-gradient",
  "gimp-context-get-gradient",
  "Retrieve the currently active gradient.",
  "This procedure returns the name of the currently active gradient.",
  "Michael Natterer <mitch@gimp.org> & Sven Neumann <sven@gimp.org>",
  "Michael Natterer & Sven Neumann",
  "2004",
  NULL,
  GIMP_INTERNAL,
  0,
  NULL,
  1,
  context_get_gradient_outargs,
  { { context_get_gradient_invoker } }
};

static Argument *
context_set_gradient_invoker (Gimp         *gimp,
                              GimpContext  *context,
                              GimpProgress *progress,
                              Argument     *args)
{
  gboolean success = TRUE;
  gchar *name;
  GimpGradient *gradient;

  name = (gchar *) args[0].value.pdb_pointer;
  if (name == NULL || !g_utf8_validate (name, -1, NULL))
    success = FALSE;

  if (success)
    {
      gradient = (GimpGradient *)
        gimp_container_get_child_by_name (gimp->gradient_factory->container, name);

      if (gradient)
        gimp_context_set_gradient (context, gradient);
      else
        success = FALSE;
    }

  return procedural_db_return_args (&context_set_gradient_proc, success);
}

static ProcArg context_set_gradient_inargs[] =
{
  {
    GIMP_PDB_STRING,
    "name",
    "The name of the gradient"
  }
};

static ProcRecord context_set_gradient_proc =
{
  "gimp-context-set-gradient",
  "gimp-context-set-gradient",
  "Sets the specified gradient as the active gradient.",
  "This procedure lets you set the specified gradient as the active or \"current\" one. The name is simply a string which corresponds to one of the loaded gradients. If no matching gradient is found, this procedure will return an error. Otherwise, the specified gradient will become active and will be used for subsequent custom gradient operations.",
  "Michael Natterer <mitch@gimp.org> & Sven Neumann <sven@gimp.org>",
  "Michael Natterer & Sven Neumann",
  "2004",
  NULL,
  GIMP_INTERNAL,
  1,
  context_set_gradient_inargs,
  0,
  NULL,
  { { context_set_gradient_invoker } }
};

static Argument *
context_get_palette_invoker (Gimp         *gimp,
                             GimpContext  *context,
                             GimpProgress *progress,
                             Argument     *args)
{
  gboolean success = TRUE;
  Argument *return_args;
  GimpPalette *palette;

  success = (palette = gimp_context_get_palette (context)) != NULL;

  return_args = procedural_db_return_args (&context_get_palette_proc, success);

  if (success)
    return_args[1].value.pdb_pointer = g_strdup (gimp_object_get_name (GIMP_OBJECT (palette)));

  return return_args;
}

static ProcArg context_get_palette_outargs[] =
{
  {
    GIMP_PDB_STRING,
    "name",
    "The name of the active palette"
  }
};

static ProcRecord context_get_palette_proc =
{
  "gimp-context-get-palette",
  "gimp-context-get-palette",
  "Retrieve the currently active palette.",
  "This procedure returns the name of the the currently active palette.",
  "Michael Natterer <mitch@gimp.org> & Sven Neumann <sven@gimp.org>",
  "Michael Natterer & Sven Neumann",
  "2004",
  NULL,
  GIMP_INTERNAL,
  0,
  NULL,
  1,
  context_get_palette_outargs,
  { { context_get_palette_invoker } }
};

static Argument *
context_set_palette_invoker (Gimp         *gimp,
                             GimpContext  *context,
                             GimpProgress *progress,
                             Argument     *args)
{
  gboolean success = TRUE;
  gchar *name;
  GimpPalette *palette;

  name = (gchar *) args[0].value.pdb_pointer;
  if (name == NULL || !g_utf8_validate (name, -1, NULL))
    success = FALSE;

  if (success)
    {
      palette = (GimpPalette *)
        gimp_container_get_child_by_name (gimp->palette_factory->container, name);

      if (palette)
        gimp_context_set_palette (context, palette);
      else
        success = FALSE;
    }

  return procedural_db_return_args (&context_set_palette_proc, success);
}

static ProcArg context_set_palette_inargs[] =
{
  {
    GIMP_PDB_STRING,
    "name",
    "The name of the palette"
  }
};

static ProcRecord context_set_palette_proc =
{
  "gimp-context-set-palette",
  "gimp-context-set-palette",
  "Set the specified palette as the active palette.",
  "This procedure allows the active palette to be set by specifying its name. The name is simply a string which corresponds to one of the names of the installed palettes. If no matching palette is found, this procedure will return an error. Otherwise, the specified palette becomes active and will be used in all subsequent palette operations.",
  "Michael Natterer <mitch@gimp.org> & Sven Neumann <sven@gimp.org>",
  "Michael Natterer & Sven Neumann",
  "2004",
  NULL,
  GIMP_INTERNAL,
  1,
  context_set_palette_inargs,
  0,
  NULL,
  { { context_set_palette_invoker } }
};

static Argument *
context_get_font_invoker (Gimp         *gimp,
                          GimpContext  *context,
                          GimpProgress *progress,
                          Argument     *args)
{
  gboolean success = TRUE;
  Argument *return_args;
  GimpFont *font;

  success = (font = gimp_context_get_font (context)) != NULL;

  return_args = procedural_db_return_args (&context_get_font_proc, success);

  if (success)
    return_args[1].value.pdb_pointer = g_strdup (gimp_object_get_name (GIMP_OBJECT (font)));

  return return_args;
}

static ProcArg context_get_font_outargs[] =
{
  {
    GIMP_PDB_STRING,
    "name",
    "The name of the active font"
  }
};

static ProcRecord context_get_font_proc =
{
  "gimp-context-get-font",
  "gimp-context-get-font",
  "Retrieve the currently active font.",
  "This procedure returns the name of the currently active font.",
  "Michael Natterer <mitch@gimp.org> & Sven Neumann <sven@gimp.org>",
  "Michael Natterer & Sven Neumann",
  "2004",
  NULL,
  GIMP_INTERNAL,
  0,
  NULL,
  1,
  context_get_font_outargs,
  { { context_get_font_invoker } }
};

static Argument *
context_set_font_invoker (Gimp         *gimp,
                          GimpContext  *context,
                          GimpProgress *progress,
                          Argument     *args)
{
  gboolean success = TRUE;
  gchar *name;
  GimpFont *font;

  name = (gchar *) args[0].value.pdb_pointer;
  if (name == NULL || !g_utf8_validate (name, -1, NULL))
    success = FALSE;

  if (success)
    {
      font = (GimpFont *)
        gimp_container_get_child_by_name (gimp->fonts, name);

      if (font)
        gimp_context_set_font (context, font);
      else
        success = FALSE;
    }

  return procedural_db_return_args (&context_set_font_proc, success);
}

static ProcArg context_set_font_inargs[] =
{
  {
    GIMP_PDB_STRING,
    "name",
    "The name of the font"
  }
};

static ProcRecord context_set_font_proc =
{
  "gimp-context-set-font",
  "gimp-context-set-font",
  "Set the specified font as the active font.",
  "This procedure allows the active font to be set by specifying its name. The name is simply a string which corresponds to one of the names of the installed fonts. If no matching font is found, this procedure will return an error. Otherwise, the specified font becomes active and will be used in all subsequent font operations.",
  "Michael Natterer <mitch@gimp.org> & Sven Neumann <sven@gimp.org>",
  "Michael Natterer & Sven Neumann",
  "2004",
  NULL,
  GIMP_INTERNAL,
  1,
  context_set_font_inargs,
  0,
  NULL,
  { { context_set_font_invoker } }
};