[gimp-perl] Update deprecated PDB procs.
- From: Ed J <edj src gnome org>
- To: commits-list gnome org
- Cc:
- Subject: [gimp-perl] Update deprecated PDB procs.
- Date: Tue, 13 May 2014 04:43:33 +0000 (UTC)
commit 35cfa174a72ec8ab139ff3bbfa57db01529f66ee
Author: Ed J <edj src gnome org>
Date: Tue May 13 05:43:12 2014 +0100
Update deprecated PDB procs.
Gimp/Util.pm | 10 +++++-----
1 files changed, 5 insertions(+), 5 deletions(-)
---
diff --git a/Gimp/Util.pm b/Gimp/Util.pm
index 3ba822c..bf61ac0 100644
--- a/Gimp/Util.pm
+++ b/Gimp/Util.pm
@@ -49,7 +49,7 @@ sub layer_create {
$tcol = Gimp->palette_get_background ();
Gimp->palette_set_background ($color);
Gimp->drawable_fill ($layer,&BACKGROUND_FILL);
- Gimp->image_add_layer($image, $layer, $pos);
+ Gimp->image_insert_layer($image, $layer, 0, $pos);
Gimp->palette_set_background ($tcol); # reset
$layer;
}
@@ -75,7 +75,7 @@ sub text_draw {
Gimp->layer_set_preserve_trans($text_layer, &FALSE);
# add text to image
- Gimp->image_add_layer($image, $text_layer, 0);
+ $image->insert_layer($text_layer, 0, 0);
# merge white and text
Gimp->image_merge_visible_layers ($image,1);
# cleanup the left over layer (!)
@@ -162,7 +162,7 @@ sub gimp_image_add_new_layer {
100, &NORMAL_MODE
);
$layer->fill (defined $filltype ? $filltype : &BACKGROUND_FILL);
- $image->add_layer ($layer, $index*1);
+ $image->insert_layer ($layer, 0, $index*1);
$layer;
}
@@ -170,7 +170,7 @@ sub gimp_image_set_visible {
my $image = shift;
my %layers; @layers{map $$_,@_}=(1) x @_;
for ($image->get_layers) {
- $_->drawable_set_visible ($layers{$$_});
+ $_->set_visible ($layers{$$_});
}
}
@@ -178,7 +178,7 @@ sub gimp_image_set_invisible {
my $image = shift;
my %layers; @layers{map $$_,@_}=(1) x @_;
for ($image->get_layers) {
- $_->drawable_set_visible (!$layers{$$_});
+ $_->set_visible (!$layers{$$_});
}
}
[
Date Prev][
Date Next] [
Thread Prev][
Thread Next]
[
Thread Index]
[
Date Index]
[
Author Index]