; Change to next/previous brush.
; Script-fu for The GIMP by Pedro Gimeno Fortea.
; Version 1.0, 2004-08-03.
; Donated to the public domain.
;
; The functions in this script are intended to be used via keyboard
; shortcuts. However it's still possible to tear off the menu where
; they are registered in order to use them by clicking on the option.


; Change to next brush in list

(define (script-fu-change-brush-next img drawable)
 (let* ((brush (car (gimp-brushes-get-brush)))
        (brushlist (cadr (gimp-brushes-get-list ""))))
   (set! brushlist (append brushlist (list (car brushlist))))
   (while (not (equal? brush (car brushlist)))
     (set! brushlist (cdr brushlist)))
   (gimp-brushes-set-brush (cadr brushlist))))

; Change to previous brush in list

(define (script-fu-change-brush-prev img drawable)
 (let* ((brush (car (gimp-brushes-get-brush)))
        (brushlist (cadr (gimp-brushes-get-list ""))))
   (set! brushlist (append brushlist (list (car brushlist))))
   (while (not (equal? brush (cadr brushlist)))
     (set! brushlist (cdr brushlist)))
   (gimp-brushes-set-brush (car brushlist))))


(script-fu-register "script-fu-change-brush-next"
                    _"<Image>/Script-Fu/Utils/Keyboard-triggered/Select Next Brush"
                    _"Change to next brush in the list."
                    "Pedro Gimeno Fortea"
                    _"Public Domain"
                    "2004-08-03"
                    "RGB*,GRAY*,INDEXED*"
                    SF-IMAGE    "Image" 0
                    SF-DRAWABLE "Drawable" 0)

(script-fu-register "script-fu-change-brush-prev"
                    _"<Image>/Script-Fu/Utils/Keyboard-triggered/Select Previous Brush"
                    _"Change to previous brush in the list."
                    "Pedro Gimeno Fortea"
                    _"Public Domain"
                    "2004-08-03"
                    "RGB*,GRAY*,INDEXED*"
                    SF-IMAGE    "Image" 0
                    SF-DRAWABLE "Drawable" 0)