callisto-debian/gimp
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

see plug-ins/perl/Changes

Browse Source
This commit is contained in:
Marc Lehmann
2000-03-11 14:12:48 +00:00
parent 9912cf4bf2
commit 94ff1382d9
5 changed files with 26 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
plug-ins/perl/examples/layerfuncs
View File

@ -8,18 +8,18 @@ use Gimp::Util;
# These are a couple of one-liners that you might find handy. Both should
# be undoable w/o any special magick, and work with any gimp.
#register "layer_to_image_size", "Layer2ImageSize", "Expands layer to image size",
# "Seth Burgess", "Seth Burgess <sjburges\@gimp.org>", "1.0",
# N_"<Image>/Layers/Layer to Image Size", "RGB*, GRAY*", [ ], sub {
# ($img, $layer) = @_;
# $layer->resize($img->width, $img->height, $layer->offsets);
# return();
#};
register "layer_to_image_size", "Layer2ImageSize", "Expands layer to image size",
"Seth Burgess", "Seth Burgess <sjburges\@gimp.org>", "1.0",
"<None>", "*", [ ], sub {
($img, $layer) = @_;
$layer->resize($img->width, $img->height, $layer->offsets);
return();
};
register "center_layer", "Center Layer",
"Centers the current layer on the image",
"Seth Burgess", "Seth Burgess <sjburges\@gimp.org>",
"1.0", N_"<Image>/Layers/Center Layer", "RGB*, GRAY*", [], sub {
"1.0", N_"<Image>/Layers/Center Layer", "*", [], sub {
($img, $layer) = @_;
$layer->set_offsets(($img->width - $layer->width )/2,
($img->height - $layer->height)/2);