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
1999-08-01 21:23:58 +00:00
parent 9ef96aeabf
commit 11b113db61
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
plug-ins/perl/examples/perlotine
View File

@ -28,7 +28,7 @@ sub get_vguides {
$i=0; $i=0;
my @vguides; my @vguides;
while ($i=$img->find_next_guide($i)) { while ($i=$img->find_next_guide($i)) {
if ($img->get_guide_orientation($i) == &Gimp::VERTICAL_GUIDE){ if ($img->get_guide_orientation($i) == &Gimp::VERTICAL){
$keyval = sprintf("%4d", $img->get_guide_position($i)); $keyval = sprintf("%4d", $img->get_guide_position($i));
$vkeys{$keyval} = $i; $vkeys{$keyval} = $i;
} }
@ -49,7 +49,7 @@ sub get_hguides {
$i=0; $i=0;
my @hguides; my @hguides;
while ($i=$img->find_next_guide($i)) { while ($i=$img->find_next_guide($i)) {
if ($img->get_guide_orientation($i) == &Gimp::HORIZONTAL_GUIDE){ if ($img->get_guide_orientation($i) == &Gimp::HORIZONTAL){
$keyval = sprintf("%4d", $img->get_guide_position($i)); $keyval = sprintf("%4d", $img->get_guide_position($i));
$hkeys{$keyval} = $i; $hkeys{$keyval} = $i;
} }