# The GIMP -- an image manipulation program
# Copyright (C) 1995 Spencer Kimball and Peter Mattis

# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
# (at your option) any later version.

# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
# GNU General Public License for more details.

# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software
# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.

# "Perlized" from C source by Sven Neumann <sven@gimp.org>

sub pdb_misc {
    $author = $copyright = 'Michael Natterer <mitch@gimp.org>';
    $date = '2000';
}

sub help {
    $blurb = "Load a help page.";

    $help = <<HELP;
This procedure loads the specified help page into the helpbrowser or what ever
is configured as help viewer. The location of the help page is given relative 
to the help rootdir. The help rootdir is determined from the prog_name: if
prog_name is NULL, we use the help rootdir of the main GIMP installation,
if the plug-in's full executable name is passed as prog_name, the GIMP
will use this information to look up the help path the plug-in has registered
before with gimp-plugin-help-register.
HELP

    &pdb_misc;

    @inargs = (
	{ name => 'prog_name', type => 'string',
	  desc => 'The plug-in\'s executable name or an empty string' },
	{ name => 'help_page', type => 'string',
	  desc => 'The location of the help page' }
    );

    %invoke = (
        success => 'TRUE',
	code => 'gimp_help (plug_in_help_path (prog_name), help_page);'
    );
}

@headers = qw(<sys/types.h> "gimphelp.h" "plug_in.h");

@procs = qw(help);
%exports = (app => [@procs], lib => [@procs]);

$desc = 'Help procedures';

1;
