dnrops
/
gimp
mirror of https://github.com/GNOME/gimp.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

see plug-ins/perl/Changes

This commit is contained in:
Marc Lehmann 1999-10-18 21:30:57 +00:00
parent 6e28558948
commit ab6e9c9a56
3 changed files with 14 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
plug-ins/perl/Gimp/Lib.pm
View File

@ -37,8 +37,8 @@ bootstrap Gimp::Lib $VERSION;
# functions to "autobless" where the autobless mechanism
# does not work.
sub gimp_list_images {
map _autobless($_,&Gimp::PARAM_IMAGE),gimp_call_procedure "gimp_list_images";
sub gimp_image_list {
map _autobless($_,&Gimp::PARAM_IMAGE),gimp_call_procedure "gimp_image_list";
}
sub gimp_image_get_layers {

1
plug-ins/perl/TODO
View File

@ -20,6 +20,7 @@ olof
* improve PDB explorer
* input image arguments
* find_next_guide is a lousy interface. => just do num_guides
bugs

22
plug-ins/perl/examples/parasite-editor
View File

@ -219,9 +219,9 @@ sub create_main {
$item = new Gtk::MenuItem "Global";
my $act_global = sub {
$list_func = sub { Gimp->parasite_list };
$find_func = sub { shift; Gimp->find_parasite (shift) };
$attach_func = sub { shift; Gimp->attach_parasite (shift) };
$detach_func = sub { shift; Gimp->detach_parasite (shift) };
$find_func = sub { shift; Gimp->parasite_find (shift) };
$attach_func = sub { shift; Gimp->parasite_attach (shift) };
$detach_func = sub { shift; Gimp->parasite_detach (shift) };
&$set_submenu();
};
$item->signal_connect("activate", $act_global);
@ -230,22 +230,22 @@ sub create_main {
$item = new Gtk::MenuItem "Image";
$item->signal_connect("activate", sub {
$list_func = sub { $_[0] ? shift->parasite_list : () };
$find_func = sub { shift->find_parasite (shift) };
$attach_func = sub { shift->attach_parasite (shift) };
$detach_func = sub { shift->detach_parasite (shift) };
&$set_submenu(map [$_,"$$_: ".$_->get_filename],Gimp->list_images);
$find_func = sub { shift->parasite_find (shift) };
$attach_func = sub { shift->parasite_attach (shift) };
$detach_func = sub { shift->parasite_detach (shift) };
&$set_submenu(map [$_,"$$_: ".$_->get_filename],Gimp->image_list);
});
$menu->append($item);
$item = new Gtk::MenuItem "Drawable";
$item->signal_connect("activate", sub {
$list_func = sub { $_[0] ? shift->parasite_list : () };
$find_func = sub { shift->find_parasite (shift) };
$attach_func = sub { shift->attach_parasite (shift) };
$detach_func = sub { shift->detach_parasite (shift) };
$find_func = sub { shift->parasite_find (shift) };
$attach_func = sub { shift->parasite_attach (shift) };
$detach_func = sub { shift->parasite_detach (shift) };
&$set_submenu(map [$_,$_->image->get_filename." / "
.($_->layer ? $_->layer_get_name : $_->channel_get_name)],
map (($_->get_layers,$_->get_channels),Gimp->list_images));
map (($_->get_layers,$_->get_channels),Gimp->image_list));
});
$menu->append($item);