Re: [Gimp-user] Bug in "arrow" plugin, possible bug with tear-off menus

[Helmut Jarausch <jarausch skynet be>]

On 12/19/2016 12:01:12 PM, programmer_ceds wrote:
> I have made a number of changes to this script over the years, the  
> most recent,
> in 2014, being to allow curved arrows. I added an entry to the  
> registry with a
> note to say that I couldn't upload the script but posted a link to it  
> instead.
> There were a number of other changes that I had made to the script  
> before that
> but I'm not sure whether or not they address the brush issue that you  
> have.
> perhaps you could try my version of the script. If necessary we could  
> amalgamate
> the changes to get a script that corrects a number of issues with the  
> original
> script, draws curved arrows and solves your problem.

I had to apply the patch below to make your script run under Gimp 2.9.
Are these patches OK ?

Thanks,
Helmut


--- arrow.scm.ORIG      2014-09-16 11:21:14.000000000 +0200
+++ ../arrow.scm        2015-12-11 11:16:30.810268551 +0100
@@ -119,7 +119,7 @@
             (aset points 2 theLeftWingEndPointX)      (aset points 3  
theLeftWingEndPointY)
             (aset points 4 theMiddleWingEndPointX)    (aset points 5  
theMiddleWingEndPointY)
             (aset points 6 theRightWingEndPointX) (aset points 7  
theRightWingEndPointY)
-            (gimp-free-select image 8 points CHANNEL-OP-REPLACE TRUE  
FALSE 0)
+            (gimp-image-select-polygon image CHANNEL-OP-REPLACE 8  
points)
             (gimp-edit-bucket-fill drawable FG-BUCKET-FILL  
NORMAL-MODE 100 0 FALSE 0 0)
             (gimp-selection-none image)
         ))
@@ -312,7 +312,7 @@

                                (set! num_points (* num_points 2))
                                (set! num_points (+ num_points 6))
-				(gimp-free-select image num_points  
in_fill_points CHANNEL-OP-REPLACE TRUE FALSE 0)
+				(gimp-image-select-polygon image  
CHANNEL-OP-REPLACE num_points in_fill_points)
 				(gimp-edit-bucket-fill drawable  
FG-BUCKET-FILL NORMAL-MODE 100 0 FALSE 0 0)
                                (gimp-selection-none image)
                        )       ; end -begin
@@ -450,7 +450,7 @@
                                                           (car  
(gimp-image-height    image))
                                                           (+ 1 (* 2  
(car (gimp-image-base-type image))))
                                                           "Arrow" 100  
NORMAL-MODE )))
-                (gimp-image-add-layer image drawable 0)
+                (gimp-image-insert-layer image drawable 0 0)
                 ; set new layer completely transparent
                 (gimp-layer-add-mask drawable (car  
(gimp-layer-create-mask drawable ADD-BLACK-MASK)))
                 (gimp-layer-remove-mask drawable MASK-APPLY)