Hello,
The attached patch should fix different bugs in different plugins in
Gimp V 1.1.13. The things the patch addresses:
- In the gif-plugin the Cancel-Button only deletes the button and
does not abort the dialog.
- In different plugins written in Perl the auto import tag was
missing.
- In the blowinout and the windify plugins different plugins were
called with 1 for RUN_NONINTERACTIVE.
- In the guidegrid plugin an update of the image was missing. I
inserted a call to gimp_drawable_update.
- In the logulator plugin the scripts were registered under
/Xtns/... .
- Scripts in the logulator plugin which only had the arguments
text_string, font_size_pixels, and font did not get defaults for
this arguments.
- In different Perl-plugins the plugins sparkle, nova, and grid were
called with a wrong amount of arguments.
Regards,
Frank
diff -ru orig/gimp-1.1.13/plug-ins/common/gif.c gimp-1.1.13/plug-ins/common/gif.c
--- orig/gimp-1.1.13/plug-ins/common/gif.c Sat Nov 27 06:44:25 1999
+++ gimp-1.1.13/plug-ins/common/gif.c Sat Nov 27 05:10:30 1999
@@ -1301,9 +1301,9 @@
button = gtk_button_new_with_label (_("Cancel"));
GTK_WIDGET_SET_FLAGS (button, GTK_CAN_DEFAULT);
- gtk_signal_connect_object (GTK_OBJECT (button), "clicked",
-(GtkSignalFunc) save_cancel_callback,
-dlg);
+ gtk_signal_connect (GTK_OBJECT (button), "clicked",
+ (GtkSignalFunc) save_cancel_callback,
+ dlg);
gtk_box_pack_start (GTK_BOX (hbbox), button, FALSE, FALSE, 0);
gtk_widget_show (button);
diff -ru orig/gimp-1.1.13/plug-ins/perl/examples/blowinout.pl
gimp-1.1.13/plug-ins/perl/examples/blowinout.pl
--- orig/gimp-1.1.13/plug-ins/perl/examples/blowinout.plMon Sep 13 17:05:10
1999
+++ gimp-1.1.13/plug-ins/perl/examples/blowinout.pl Sat Nov 27 09:22:27 1999
@@ -3,7 +3,7 @@
# Blow In/Out
# John Pitney
-use Gimp 1.06;
+use Gimp qw(:auto __);
use Gimp::Fu;
# print "hello there\n";
@@ -44,11 +44,11 @@
$i * $distance / $nsteps * sin($angle * 3.14159 / 180) :
$distance ** ($i/$nsteps) * sin($angle * 3.14159 / 180);
gimp_edit_clear($dmlayer);
-plug_in_noisify(1, $dm, $dmlayer, 0, 255, 255, 255, 0);
+plug_in_noisify($dm, $dmlayer, 0, 255, 255, 255, 0);
gimp_levels($dmlayer, 0, 0, 255, 1.0, 128, 255);
$drawable = gimp_layer_copy($drawable, 0);
gimp_image_add_layer($img, $drawable, -1);
-plug_in_displace(1, $img, $drawable, $xdist, $ydist, 1, 1, $dmlayer,
+plug_in_displace($img, $drawable, $xdist, $ydist, 1, 1, $dmlayer,
$dmlayer, 1);
if ( $inmode == 1 )
{
@@ -62,11 +62,11 @@
$i * $distance / $nsteps * sin($angle * 3.14159 / 180) :
$distance ** ($i/$nsteps) * sin($angle * 3.14159 / 180);
gimp_edit_clear($dmlayer);
-plug_in_noisify(1, $dm, $dmlayer, 0, 255, 255, 255, 0);
+plug_in_noisify($dm, $dmlayer, 0, 255, 255, 255, 0);
gimp_levels($dmlayer, 0, 0, 255, 1.0, 128, 255);
$drawable = gimp_layer_copy($drawable, 0);
gimp_image_add_layer($img, $drawable, -1);
-plug_in_displace(1, $img, $drawable, $xdist, $ydist, 1, 1, $dmlayer,
+plug_in_displace($img, $drawable, $xdist, $ydist, 1, 1, $dmlayer,
$dmlayer, 1);
if ( $inmode == 1 )
{
diff -ru orig/gimp-1.1.13/plug-ins/perl/examples/fit-text
gimp-1.1.13/plug-ins/perl/examples/fit-text
--- orig/gimp-1.1.13/plug-ins/perl/examples/fit-textSat Nov 27 06:44:30 1999
+++ gimp-1.1.13/plug-ins/perl/examples/fit-text Sat Nov 27 09:53:05 1999
@@ -13,7 +13,7 @@
# 7/15/99: added support if the user selects in pixels (assumes 72 dpi - deal)
# and tuned it a bit more <[EMAIL PROTECTED]>
-use Gimp;
+use Gimp qw(:auto __);
use Gimp::Fu;
use Gimp::Util;
diff -ru orig/gimp-1.1.13/plug-ins/perl/examples/guidegrid
gimp-1.1.13/plug-ins/perl/examples/guidegrid
--- orig/gimp-1.1.13/plug-ins/perl/examples/guidegrid Mon Sep 13 17:05:10 1999
+++ gimp-1.1.13/plug-ins/perl/examples/guidegridSat Nov 27 18:29:17 1999
@@ -12,7 +12,7 @@
# 12/7/99 <[EMAIL PROTECTED]>
# Changed the display code in C and got rid of ugly hack in perl.
#
-use Gimp;
+use Gimp qw(:auto __);
use Gimp::Fu;
use Gimp::Util;
@@ -78,7 +78,8 @@
##
#$img->selection_all();
#$img->selection_none();
-
+gimp_drawable_update($layer, 0, 0, $img->height, $img->width);
+
return();
};
exit main;
diff -ru orig/gimp-1.1.13/plug-ins/perl/examples/innerbevel
gimp-1.1.13/plug-ins/perl/examples/innerbevel
--- orig/gimp-1.1.13/plug-ins/perl/examples/innerbevel Sat Nov 27 06:44:30 1999
+++ gimp-1.1.13/plug-ins/perl/examples/innerbevel Sat Nov 27 19:42:43 1999
@@ -7,7 +7,7 @@
# working btw). You can follow step by step with the website at
# http://tigert.gimp.org/gimp/tutorials/beveled_text/
-use Gimp;
+use Gimp qw(:auto __);
u
