Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
GNOME
GIMP
Commits
7b646b34
Commit
7b646b34
authored
Nov 20, 2000
by
Marc Lehmann
Browse files
see plug-ins/perl/Changes
parent
97294fc0
Changes
3
Hide whitespace changes
Inline
Side-by-side
plug-ins/perl/Changes
View file @
7b646b34
...
...
@@ -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.
...
...
plug-ins/perl/Gimp.pm
View file @
7b646b34
...
...
@@ -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
...
...
plug-ins/perl/examples/fade-alpha
View file @
7b646b34
...
...
@@ -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
;
}
}
}
}
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment