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-11-08 17:39:13 +00:00
parent 4d93809fec
commit 1efdbb0eee
23 changed files with 308 additions and 464 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
plug-ins/perl/examples/guide_remove
View File

@ -1,5 +1,7 @@
#!/usr/bin/perl
eval 'exec /usr/bin/perl -S $0 ${1+"$@"}'
if 0; # not running under some shell
#
# 11/7/99 <brendy@swipnet.se>
# Guides are pretty good, but I want to be able to remove them.
@ -17,7 +19,7 @@ register "guide_remove",
"Brendon Humphrey",
"Brendon Humphrey <brendy\@swipnet.se>",
"1999-07-20",
__"<Image>/Guides/Remove Guides",
"<Image>/Guides/Remove Guides",
"*",
[],
[],
@ -31,15 +33,15 @@ register "guide_remove",
$i=$img->find_next_guide(0);
while ($i != 0) {
$img->delete_guide($i);
$i=$img->find_next_guide($i);
$i=$img->find_next_guide(0);
}
#
# Refresh the display (probably not good, works for me!)
#
#$img->selection_all();
#$img->selection_none();
$img->selection_all();
$img->selection_none();
();
return();
};
exit main;