path lock indicator

[FUJITA Yuji <yuji@xxxxxxxxxxxxxxxxxx>]

Hi, developers.

Indication of lock-status in path window is funny in case a locked path is
un-locked from script-fu. The problem is as follows.
Although the path is unlocked properly, the lock sign is left turned on,
and clicking on the lock sign twice turns it off.
For details, please run attached script for some times which toggles
lock status of paths.

FUJITA Yuji
yuji@xxxxxxxxxxxxxxxxxx

(define (lock-toggle img list)
  (if (not (eq? list ()))
	  (begin
		(gimp-path-set-locked img
							  (car list)
							  (- 1 (car (gimp-path-get-locked img (car list)))))
		(set! list (cdr list))
		(lock-toggle img list))))

(define (script-fu-paths-lock-toggle img drw)
  (let* (
		 (list (cadr (gimp-path-list img)))
		 )
	(lock-toggle img list)))

(script-fu-register
 "script-fu-paths-lock-toggle"
 "<Image>/Path ops./Lock Toggle"
 ""
 "FUJITA Yuji (yuji@xxxxxxxxxxxxxxxxxx)"
 "FUJITA Yuji"
 "2000/06/18"
 "*"
 SF-IMAGE "Image to draw" 0
 SF-DRAWABLE "Drawable to edit" 0
 )