Skip to content
GitLab
Menu
Projects
Groups
Snippets
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
GNOME
GIMP
Commits
872e5228
Commit
872e5228
authored
Mar 08, 1999
by
Marc Lehmann
Browse files
see plug-ins/perl/Changes
parent
28a4c66e
Changes
4
Hide whitespace changes
Inline
Side-by-side
plug-ins/perl/Changes
View file @
872e5228
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
...
...
plug-ins/perl/Gimp/Fu.pm
View file @
872e5228
...
...
@@ -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
;
...
...
plug-ins/perl/Gimp/Util.pm
View file @
872e5228
...
...
@@ -46,7 +46,7 @@ require Exporter;
)
;
#@EXPORT_OK = qw();
$VERSION
=
1.1
;
$VERSION
=
1.1
01
;
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
...
...
plug-ins/perl/TODO
View file @
872e5228
...
...
@@ -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?)
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment