Changes for increased compatability with Script-Fu scripts.

2006-09-29  Kevin Cozens  <kcozens@cvs.gnome.org>

	Changes for increased compatability with Script-Fu scripts.

	* tiny-fu/tiny-fu-scripts.c:
	* tiny-fu/ts-wrapper.c: Changed references of tiny-fu*-register to
	script-fu*-register, tiny-fu-path to script-fu-path, and tiny-fu-quit
	to script-fu-quit.

	* scripts/*.scm: All scripts changed to use script-fu-... instead
	of tiny-fu-... in function names and in the register call.

plug-ins/script-fu/scripts/contactsheet.scm

@@ -22,7 +22,7 @@
 ; Added ability to select sheet size, set font used for sheet and image
 ; titles, background color, and colour used for titles.
 
-(define (tiny-fu-contactsheet dir sheet-size
+(define (script-fu-contactsheet dir sheet-size
          title-font legend-font text-color bg-color)
 
   (define (init-sheet-data size)
@@ -271,7 +271,7 @@
   )
 )
 
-(tiny-fu-register "tiny-fu-contactsheet"
+(script-fu-register "script-fu-contactsheet"
     _"Contact Sheet"
     "Create a series of images containing thumbnail sized versions
      of all of the images contained in a specified directory."
@@ -290,5 +290,5 @@
     SF-COLOR   _"Background color" '(0 0 0)
 )
 
-(tiny-fu-menu-register "tiny-fu-contactsheet"
+(script-fu-menu-register "script-fu-contactsheet"
                        "<Toolbox>/Xtns/Utils")

plug-ins/script-fu/scripts/script-fu-set-cmap.scm

@@ -2,7 +2,7 @@
 ; by Kevin Cozens <kcozens@interlog.com>
 ;
 ; Change the colourmap of an image to the colours in a specified palette.
-; Included is tiny-fu-make-cmap-array (available for use in scripts) which
+; Included is script-fu-make-cmap-array (available for use in scripts) which
 ; returns an INT8ARRAY containing the colours from a specified palette.
 ; This array can be used as the cmap argument for gimp-image-set-cmap.
 
@@ -23,7 +23,7 @@
 ; along with this program; if not, write to the Free Software
 ; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 
-(define (tiny-fu-make-cmap-array palette)
+(define (script-fu-make-cmap-array palette)
   (let* (
         (num-colours (car (gimp-palette-get-info palette)))
         (cmap (cons-array (* num-colours 3) 'byte))
@@ -43,14 +43,14 @@
   )
 )
 
-(define (tiny-fu-set-cmap img drawable palette)
+(define (script-fu-set-cmap img drawable palette)
   (gimp-image-set-colormap img
                            (* (car (gimp-palette-get-info palette)) 3)
-                           (tiny-fu-make-cmap-array palette))
+                           (script-fu-make-cmap-array palette))
   (gimp-displays-flush)
 )
 
-(tiny-fu-register "tiny-fu-set-cmap"
+(script-fu-register "script-fu-set-cmap"
     _"Set Colormap"
     "Change the colourmap of an image to the colours in a specified palette."
     "Kevin Cozens <kcozens@interlog.com>"
@@ -62,5 +62,5 @@
     SF-PALETTE  _"Palette"  "Default"
 )
 
-(tiny-fu-menu-register "tiny-fu-set-cmap"
+(script-fu-menu-register "script-fu-set-cmap"
                        "<Image>/Tiny-Fu/Utils")

plug-ins/script-fu/scripts/script-fu-util-setpt.scm

@@ -19,7 +19,7 @@
 ; The resulting image has the selected layer size.
 ; Copyright (C) 2002 Chauk-Mean PROUM
 ;
-(define (tiny-fu-set-pt a index x y)
+(define (script-fu-set-pt a index x y)
   (aset a (* index 2) x)
   (aset a (+ (* index 2) 1) y)
 )

plug-ins/script-fu/scripts/ts-helloworld.scm

@@ -24,7 +24,7 @@
 ;
 ; Tiny-Fu first successfully ran this script at 2:07am on March 6, 2004.
 
-(define (tiny-fu-helloworld text font size colour)
+(define (script-fu-helloworld text font size colour)
   (let*
     (
 	(width 10)
@@ -50,7 +50,7 @@
   )
 )
 
-(tiny-fu-register "tiny-fu-helloworld"
+(script-fu-register "script-fu-helloworld"
     _"Hello World"
     "Creates an image with a user specified text string."
     "Kevin Cozens <kcozens@interlog.com>"
@@ -63,5 +63,5 @@
     SF-COLOR      _"Color"               '(0 0 0)
 )
 
-(tiny-fu-menu-register "tiny-fu-helloworld"
+(script-fu-menu-register "script-fu-helloworld"
                        "<Toolbox>/Xtns/Test")