#!/usr/bin/perl -w
BEGIN {
$Gimp::verbose
= 1; }
my
$OTHER_EVENTLOOP
= 0;
Gimp::register_callback
extension_gp_test
=>
sub
{
Gimp->install_temp_proc(
"perl_fu_temp_demo"
,
"Demo Gimp-Perl temp proc"
,
"Demo a Gimp-Perl extension's temp proc"
,
"Ed J"
,
"Ed J"
,
"2014-04-11"
,
"<Toolbox>/Xtns/Perl/Test/Temp Proc demo"
,
undef
,
&Gimp::TEMPORARY
,
[
[
&Gimp::PDB_INT32
,
'run_mode'
,
'Run-mode'
, 0 ],
],
[],
);
Gimp->extension_ack;
if
(
$OTHER_EVENTLOOP
) {
Gimp->extension_enable;
}
else
{
while
(1) {
Gimp->extension_process(0);
}
}
};
Gimp::register_callback
perl_fu_temp_demo
=>
sub
{
my
(
$run_mode
) =
@_
;
};
Gimp::on_query {
Gimp->install_procedure(
"extension_gp_test"
,
"Demo Gimp-Perl extension"
,
"Demo a Gimp-Perl extension"
,
"Ed J"
,
"Ed J"
,
"2014-04-11"
,
undef
,
undef
,
&Gimp::EXTENSION
,
[],
[],
);
};
exit
Gimp::main;