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

Bug 558454 – Plugin Map Color Range disapears from GIMP

Browse Source 
2008-11-19  Sven Neumann  <sven@gimp.org>

	Bug 558454 – Plugin Map Color Range disapears from GIMP

	* plug-ins/script-fu/scripts/Makefile.am

	* plug-ins/script-fu/scripts/plug-in-compat.init: new file
	providing compatibility with plug-ins from older GIMP
	versions. Contains a reimplementation of plug-in-color-map based
	on ideas and code from Eric Lamarque.

	* plug-ins/script-fu/scheme-wrapper.c (tinyscheme_init): load 
the
	plug-in-compat.init file.


svn path=/trunk/; revision=27683
This commit is contained in:
Sven Neumann
2008-11-19 08:17:28 +00:00
committed by Sven Neumann
parent d440e9c2c2
commit d43a0fbf19
4 changed files with 71 additions and 19 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -68,6 +68,8 @@ static pointer script_fu_quit_call (scheme *sc,
static pointer script_fu_nil_call (scheme *sc,
pointer a);
static gboolean ts_load_file (const gchar *dirname,
const gchar *basename);
typedef struct
{
@ -239,30 +241,17 @@ tinyscheme_init (const gchar *path,
for (list = dir_list; list; list = g_list_next (list))
{
gchar *filename = g_build_filename (list->data,
"script-fu.init", NULL);
FILE *fin = g_fopen (filename, "rb");
g_free (filename);
if (fin)
if (ts_load_file (list->data, "script-fu.init"))
{
scheme_load_file (&sc, fin);
fclose (fin);
/* To improve compatibility with older Script-Fu scripts,
* load script-fu-compat.init from the same directory.
*/
filename = g_build_filename (list->data,
"script-fu-compat.init", NULL);
fin = g_fopen (filename, "rb");
g_free (filename);
ts_load_file (list->data, "script-fu-compat.init");
if (fin)
{
scheme_load_file (&sc, fin);
fclose (fin);
}
/* To improve compatibility with older GIMP version,
* load plug-in-compat.init from the same directory.
*/
ts_load_file (list->data, "plug-in-compat.init");
break;
}
@ -578,6 +567,30 @@ ts_init_procedures (scheme *sc,
g_free (proc_list);
}
static gboolean
ts_load_file (const gchar *dirname,
const gchar *basename)
{
gchar *filename;
FILE *fin;
filename = g_build_filename (dirname, basename, NULL);
fin = g_fopen (filename, "rb");
g_free (filename);
if (fin)
{
scheme_load_file (&sc, fin);
fclose (fin);
return TRUE;
}
return FALSE;
}
static void
convert_string (gchar *str)
{