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

*** empty log message ***

Browse Source
This commit is contained in:
Marc Lehmann
1999-12-05 20:48:06 +00:00
parent 843f496ddb
commit 12976d24f4
3 changed files with 184 additions and 158 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
ChangeLog
View File

@ -1,3 +1,9 @@
Sun Dec 5 19:21:33 CET 1999 Marc Lehmann <marc@gimp.org>
* plug-ins/script-fu/script-fu-scripts.c: Install function names
with underscores instead of minus signs. Should improve the life
of almost all other languages.
1999-12-05 Garry R. Osgood <gosgood@idt.net>
Inaugural checkin: Tile accounting
* app/tile_cache.c

18
plug-ins/script-fu/script-fu-interface.c
View File

@ -132,6 +132,7 @@ typedef struct
{
GtkWidget ** args_widgets;
gchar * script_name;
gchar * pdb_name;
gchar * description;
gchar * help;
gchar * author;
@ -400,7 +401,7 @@ script_fu_add_script (LISP a)
LISP color_list;
LISP adj_list;
LISP brush_list;
gchar *menu_path = NULL;
gchar *s, *menu_path = NULL;
/* Check the length of a */
if (nlength (a) < 7)
@ -414,6 +415,15 @@ script_fu_add_script (LISP a)
script->script_name = g_strdup (val);
a = cdr (a);
/* transform the function name into a name containing "_" for each "-".
* this does not hurt anybody, yet improves the life of many... ;)
*/
script->pdb_name = g_strdup (val);
for (s = script->pdb_name; *s; s++)
if (*s == '-')
*s = '_';
/* Find the script description */
val = get_c_string (car (a));
script->description = g_strdup (val);
@ -703,7 +713,7 @@ script_fu_add_script (LISP a)
}
}
gimp_install_temp_proc (script->script_name,
gimp_install_temp_proc (script->pdb_name,
script->description,
script->help,
script->author,
@ -949,7 +959,7 @@ script_fu_script_proc (char *name,
}
static SFScript *
script_fu_find_script (gchar *script_name)
script_fu_find_script (gchar *pdb_name)
{
GList *list;
SFScript *script;
@ -958,7 +968,7 @@ script_fu_find_script (gchar *script_name)
while (list)
{
script = (SFScript *) list->data;
if (! strcmp (script->script_name, script_name))
if (! strcmp (script->pdb_name, pdb_name))
return script;
list = list->next;

18
plug-ins/script-fu/script-fu-scripts.c
View File

@ -132,6 +132,7 @@ typedef struct
{
GtkWidget ** args_widgets;
gchar * script_name;
gchar * pdb_name;
gchar * description;
gchar * help;
gchar * author;
@ -400,7 +401,7 @@ script_fu_add_script (LISP a)
LISP color_list;
LISP adj_list;
LISP brush_list;
gchar *menu_path = NULL;
gchar *s, *menu_path = NULL;
/* Check the length of a */
if (nlength (a) < 7)
@ -414,6 +415,15 @@ script_fu_add_script (LISP a)
script->script_name = g_strdup (val);
a = cdr (a);
/* transform the function name into a name containing "_" for each "-".
* this does not hurt anybody, yet improves the life of many... ;)
*/
script->pdb_name = g_strdup (val);
for (s = script->pdb_name; *s; s++)
if (*s == '-')
*s = '_';
/* Find the script description */
val = get_c_string (car (a));
script->description = g_strdup (val);
@ -703,7 +713,7 @@ script_fu_add_script (LISP a)
}
}
gimp_install_temp_proc (script->script_name,
gimp_install_temp_proc (script->pdb_name,
script->description,
script->help,
script->author,
@ -949,7 +959,7 @@ script_fu_script_proc (char *name,
}
static SFScript *
script_fu_find_script (gchar *script_name)
script_fu_find_script (gchar *pdb_name)
{
GList *list;
SFScript *script;
@ -958,7 +968,7 @@ script_fu_find_script (gchar *script_name)
while (list)
{
script = (SFScript *) list->data;
if (! strcmp (script->script_name, script_name))
if (! strcmp (script->pdb_name, pdb_name))
return script;
list = list->next;