Commit 872e5228 authored by Marc Lehmann's avatar Marc Lehmann
Browse files

see plug-ins/perl/Changes

parent 28a4c66e
Revision history for Gimp-Perl extension.
- added new convinience functions to Gimp::Util.
- Gimp::Fu checks for the presence of Gtk and dies
if it can't be found.
1.06 Sat Mar 6 19:36:12 CET 1999
- Gimp::Fu does no longer display the returned image when it
......
......@@ -164,8 +164,12 @@ sub interact($$$@) {
# only pull these in if _really_ required
# gets us some speed we really need
require Gtk; import Gtk;
init Gtk; # gross hack...
eval {
require Gtkx; import Gtk;
init Gtk; # gross hack...
};
die "The Gtk perl module is required to run perl-scripts in interactive mode!\n" if $@;
parse Gtk::Rc Gimp->gtkrc;
require Gimp::UI; import Gimp::UI;
......
......@@ -46,7 +46,7 @@ require Exporter;
);
#@EXPORT_OK = qw();
$VERSION=1.1;
$VERSION=1.101;
use Gimp;
......@@ -256,6 +256,10 @@ mark the given layers visible (invisible) and all others invisible (visible).
return the position the layer has in the image layer stack.
=item C<gimp_layer_set_position $layer,$new_index>
moves the layer to a new position in the layer stack.
=cut
sub gimp_image_layertype {
my $type = $_[0]->base_type;
......@@ -300,6 +304,20 @@ sub gimp_layer_get_position {
();
}
sub gimp_layer_set_position {
my($layer,$new_pos)=@_;
$pos=$layer->get_position;
$layer->add_alpha;
while($pos>$new_pos) {
$layer->lower_layer;
$pos--;
}
while($pos<$new_pos) {
$layer->raise_layer;
$pos++;
}
}
=pod
=back
......
......@@ -10,6 +10,8 @@ make test TEST_VERBOSE=1
bugs
* install in /usr/local
* install even without Gtk? NO!
* perl_fu_webify in homepage-logo.pl
* wait for working gimp_file_load (or do it myself?)
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment