Commit 7b646b34 authored by Marc Lehmann's avatar Marc Lehmann
Browse files

see plug-ins/perl/Changes

parent 97294fc0
......@@ -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.
......
......@@ -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
......
......@@ -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,10 +961,21 @@ 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)
{
$btn->clicked;
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;
}
}
}
}
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment