callisto-debian/gimp
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

plug-ins: script-fu lost all support for images, layers etc.

Browse Source 
due to the recent change to actual objects instead of IDs,
so add object support to script_fu_marshal_procedure_call().
This commit is contained in:
Michael Natterer
2019-09-04 10:28:50 +02:00
parent 5e00decc13
commit 3fd3344f80
1 changed files with 102 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

102
plug-ins/script-fu/scheme-wrapper.c
View File

@ -708,6 +708,108 @@ script_fu_marshal_procedure_call (scheme *sc,
sc->vptr->string_value (sc->vptr->pair_car (a)));
#if DEBUG_MARSHALL
g_printerr (" string arg is '%s'\n", args[i].data.d_string);
#endif
}
}
else if (GIMP_VALUE_HOLDS_DISPLAY (&value))
{
if (! sc->vptr->is_number (sc->vptr->pair_car (a)))
success = FALSE;
if (success)
{
GimpDisplay *display =
gimp_display_get_by_id (sc->vptr->ivalue (sc->vptr->pair_car (a)));
g_value_set_object (&value, display);
#if DEBUG_MARSHALL
g_printerr (" display arg is '%d'\n",
gimp_display_get_id (display));
#endif
}
}
else if (GIMP_VALUE_HOLDS_IMAGE (&value))
{
if (! sc->vptr->is_number (sc->vptr->pair_car (a)))
success = FALSE;
if (success)
{
GimpImage *image =
gimp_image_get_by_id (sc->vptr->ivalue (sc->vptr->pair_car (a)));
g_value_set_object (&value, image);
#if DEBUG_MARSHALL
g_printerr (" image arg is '%d'\n",
gimp_image_get_id (image));
#endif
}
}
else if (GIMP_VALUE_HOLDS_LAYER (&value))
{
if (! sc->vptr->is_number (sc->vptr->pair_car (a)))
success = FALSE;
if (success)
{
GimpLayer *layer =
gimp_layer_get_by_id (sc->vptr->ivalue (sc->vptr->pair_car (a)));
g_value_set_object (&value, layer);
#if DEBUG_MARSHALL
g_printerr (" layer arg is '%d'\n",
gimp_item_get_id (GIMP_ITEM (layer)));
#endif
}
}
else if (GIMP_VALUE_HOLDS_CHANNEL (&value))
{
if (! sc->vptr->is_number (sc->vptr->pair_car (a)))
success = FALSE;
if (success)
{
GimpChannel *channel =
gimp_channel_get_by_id (sc->vptr->ivalue (sc->vptr->pair_car (a)));
g_value_set_object (&value, channel);
#if DEBUG_MARSHALL
g_printerr (" channel arg is '%d'\n",
gimp_item_get_id (GIMP_ITEM (channel)));
#endif
}
}
else if (GIMP_VALUE_HOLDS_DRAWABLE (&value))
{
if (! sc->vptr->is_number (sc->vptr->pair_car (a)))
success = FALSE;
if (success)
{
GimpDrawable *drawable =
gimp_drawable_get_by_id (sc->vptr->ivalue (sc->vptr->pair_car (a)));
g_value_set_object (&value, drawable);
#if DEBUG_MARSHALL
g_printerr (" drawable arg is '%d'\n",
gimp_item_get_id (GIMP_ITEM (drawable)));
#endif
}
}
else if (GIMP_VALUE_HOLDS_VECTORS (&value))
{
if (! sc->vptr->is_number (sc->vptr->pair_car (a)))
success = FALSE;
if (success)
{
GimpVectors *vectors =
gimp_vectors_get_by_id (sc->vptr->ivalue (sc->vptr->pair_car (a)));
g_value_set_object (&value, vectors);
#if DEBUG_MARSHALL
g_printerr (" vectors arg is '%d'\n",
gimp_item_get_id (GIMP_ITEM (vectors)));
#endif
}
}