diff options
Diffstat (limited to 'pdb/groups/floating_sel.pdb')
| -rw-r--r-- | pdb/groups/floating_sel.pdb | 222 |
1 files changed, 222 insertions, 0 deletions
diff --git a/pdb/groups/floating_sel.pdb b/pdb/groups/floating_sel.pdb new file mode 100644 index 0000000..9f40e62 --- /dev/null +++ b/pdb/groups/floating_sel.pdb @@ -0,0 +1,222 @@ +# GIMP - The GNU Image Manipulation Program +# Copyright (C) 1995 Spencer Kimball and Peter Mattis + +# This program is free software: you can redistribute it and/or modify +# it under the terms of the GNU General Public License as published by +# the Free Software Foundation; either version 3 of the License, or +# (at your option) any later version. + +# This program is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. + +# You should have received a copy of the GNU General Public License +# along with this program. If not, see <https://www.gnu.org/licenses/>. + +# "Perlized" from C source by Manish Singh <yosh@gimp.org> + +sub floating_sel_remove { + $blurb = <<'BLURB'; +Remove the specified floating selection from its associated drawable. +BLURB + + $help = <<'HELP'; +This procedure removes the floating selection completely, without any side +effects. The associated drawable is then set to active. +HELP + + &std_pdb_misc; + + @inargs = ( + { name => 'floating_sel', type => 'layer', + desc => 'The floating selection' } + ); + + %invoke = ( + code => <<'CODE' +{ + if (gimp_layer_is_floating_sel (floating_sel)) + { + gimp_image_remove_layer (gimp_item_get_image (GIMP_ITEM (floating_sel)), + floating_sel, TRUE, NULL); + } + else + { + g_set_error_literal (error, GIMP_PDB_ERROR, + GIMP_PDB_ERROR_INVALID_ARGUMENT, + _("Cannot remove this layer because " + "it is not a floating selection.")); + success = FALSE; + } +} +CODE + ); +} + +sub floating_sel_anchor { + $blurb = <<'BLURB'; +Anchor the specified floating selection to its associated drawable. +BLURB + + $help = <<'HELP'; +This procedure anchors the floating selection to its associated drawable. This +is similar to merging with a merge type of ClipToBottomLayer. The floating +selection layer is no longer valid after this operation. +HELP + + &std_pdb_misc; + + @inargs = ( + { name => 'floating_sel', type => 'layer', + desc => 'The floating selection' } + ); + + %invoke = ( + code => <<'CODE' +{ + if (gimp_layer_is_floating_sel (floating_sel)) + { + floating_sel_anchor (floating_sel); + } + else + { + g_set_error_literal (error, GIMP_PDB_ERROR, + GIMP_PDB_ERROR_INVALID_ARGUMENT, + _("Cannot anchor this layer because " + "it is not a floating selection.")); + success = FALSE; + } +} +CODE + ); +} + +sub floating_sel_to_layer { + $blurb = 'Transforms the specified floating selection into a layer.'; + + $help = <<'HELP'; +This procedure transforms the specified floating selection into a layer with +the same offsets and extents. The composited image will look precisely the +same, but the floating selection layer will no longer be clipped to the extents +of the drawable it was attached to. The floating selection will become the +active layer. This procedure will not work if the floating selection has a +different base type from the underlying image. This might be the case if the +floating selection is above an auxiliary channel or a layer mask. +HELP + + &std_pdb_misc; + + @inargs = ( + { name => 'floating_sel', type => 'layer', + desc => 'The floating selection' } + ); + + %invoke = ( + code => <<'CODE' +{ + if (gimp_layer_is_floating_sel (floating_sel)) + { + success = floating_sel_to_layer (floating_sel, error); + } + else + { + g_set_error_literal (error, GIMP_PDB_ERROR, + GIMP_PDB_ERROR_INVALID_ARGUMENT, + _("Cannot convert this layer to a normal layer " + "because it is not a floating selection.")); + success = FALSE; + } +} +CODE + ); +} + +sub floating_sel_attach { + $blurb = <<'BLURB'; +Attach the specified layer as floating to the specified drawable. +BLURB + + $help = <<'HELP'; +This procedure attaches the layer as floating selection to the drawable. +HELP + + &std_pdb_misc; + + @inargs = ( + { name => 'layer', type => 'layer', + desc => 'The layer (is attached as floating selection)' }, + { name => 'drawable', type => 'drawable', + desc => 'The drawable (where to attach the floating selection)' } + ); + + %invoke = ( + code => <<'CODE' +{ + if (gimp_pdb_item_is_attached (GIMP_ITEM (drawable), NULL, + GIMP_PDB_ITEM_CONTENT, error) && + gimp_pdb_item_is_not_group (GIMP_ITEM (drawable), error)) + floating_sel_attach (layer, drawable); + else + success = FALSE; +} +CODE + ); +} + +sub floating_sel_rigor { + &std_pdb_deprecated (); + + @inargs = ( + { name => 'floating_sel', type => 'layer', dead => 1, + desc => 'The floating selection' }, + { name => 'undo', type => 'boolean', dead => 1 } + ); + + %invoke = ( + code => <<'CODE' +{ +} +CODE + ); +} + +sub floating_sel_relax { + &std_pdb_deprecated (); + + @inargs = ( + { name => 'floating_sel', type => 'layer', dead => 1, + desc => 'The floating selection' }, + { name => 'undo', type => 'boolean', dead => 1 } + ); + + %invoke = ( + code => <<'CODE' +{ +} +CODE + ); +} + + +@headers = qw("core/gimpimage.h" + "core/gimplayer-floating-selection.h" + "gimppdberror.h" + "gimppdb-utils.h" + "gimp-intl.h"); + +@procs = qw(floating_sel_remove + floating_sel_anchor + floating_sel_to_layer + floating_sel_attach + floating_sel_rigor + floating_sel_relax); + +%exports = (app => [@procs], lib => [@procs]); + +$desc = 'Floating selections'; +$doc_title = 'gimpfloatingsel'; +$doc_short_desc = 'Functions for removing or attaching floating selections.'; +$doc_long_desc = 'Functions for removing or attaching floating selections.'; + +1; |