#!/usr/bin/perl
#
# Rewritten for GIMP 1.2 and the Graphics Muse Tools CD
# by Michael J. Hammel (mjhammel@graphics-muse.org
# Jan 26, 2002
#

use Gimp qw( :auto );
use Gimp::Fu;

register	"wrap_it",
		"Wrap-It",
		"Will wrap the active layer according to settings. Use <alt-f> to repeat.",
		"Claes G Lindblad <claesg\@algonet.se>",
		"Claes G Lindblad <claesg\@algonet.se>",
		"990520",
		"<Image>/Image/Transforms/Wrap It...",
		"*",
		[
		[PF_SPINNER, "left_right", "Wrap amount in X direction, where + means right and  -  means left", 0, [-500, 500, 1]],
		[PF_SPINNER, "up_down", "Wrap amount in Y direction, where + means down and - means left", 1, [-500, 500, 1]]
		],
	sub {
		my ($img, $ActiveLayer, $x, $y) = @_;

		$ActiveLayer->channel_ops_offset(1, 0, $x, $y);

		return $img;
	};
exit main;