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 2000-11-20 00:32:26 +00:00
parent 97294fc0d4
commit 7b646b3450
3 changed files with 16 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
plug-ins/perl/Changes
View File

@ -18,7 +18,7 @@ Revision history for Gimp-Perl extension.
mail from me) regarding return values for register'ed scripts.
- fixed the make install-po problem that Sven fixed but dumb Marc
accidently reverted...
- added examples/fade-alpha by Seth.
- added/updated examples/fade-alpha by Seth.
- re-apply patches to examples/xachshadow, xachlego after I nuked
them without knowing.

1
plug-ins/perl/Gimp.pm
View File

@ -23,7 +23,6 @@ BEGIN {
my @_param = qw(
PDB_BOUNDARY PDB_CHANNEL PDB_COLOR PDB_DISPLAY PDB_DRAWABLE
w
PDB_END PDB_FLOAT PDB_IMAGE PDB_INT32 PDB_FLOATARRAY
PDB_INT16 PDB_PARASITE PDB_STRING PDB_PATH PDB_INT16ARRAY
PDB_INT8 PDB_INT8ARRAY PDB_LAYER PDB_REGION PDB_STRINGARRAY

15
plug-ins/perl/examples/fade-alpha
View File

@ -945,7 +945,7 @@ sub create_window
$frm->set_border_width(6);
$frm->show;
$box1->pack_start($frm, 0, 0, 0);
$box1->pack_start($frm, 1, 1, 0);
$btnTable = new Gtk::Table(3,3,1);
$btnTable->set_border_width(6);
$frm->add($btnTable);
@ -961,11 +961,22 @@ sub create_window
$btn->show;
$btnTable->attach_defaults($btn, $i, $i+1, $j, $j+1);
add_pixmap($window, $btn, $i*3+$j);
if (Gimp->get_data($plugin)*1 == $i*3+$j)
if (Gimp->get_data($plugin) ne "")
{ # if run before, get last data
if (Gimp->get_data($plugin) == $i*3+$j)
{
$btn->clicked;
}
}
else
{ # first run of plug-in, set first button
if ($i==0 && $j==0)
{
$btn->clicked;
}
}
}
}
$hsep = new Gtk::HSeparator;