# GIMP - The GNU 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 3 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, see <https://www.gnu.org/licenses/>.

# "Perlized" from C source by Manish Singh <yosh@gimp.org>

sub display_is_valid {
    $blurb = 'Returns TRUE if the display is valid.';

    $help = <<'HELP';
This procedure checks if the given display ID is valid and refers to an
existing display.
HELP

    &neo_pdb_misc('2007', '2.4');

    @inargs = (
	{ name => 'display', type => 'display', no_validate => 1,
	  desc => 'The display to check' }
    );

    @outargs = (
	{ name => 'valid', type => 'boolean',
	  desc => 'Whether the display ID is valid' }
    );

    %invoke = (
	code => <<'CODE'
{
  valid = (display != NULL);
}
CODE
    );
}

sub display_new {
    $blurb = 'Create a new display for the specified image.';

    $help = <<'HELP';
Creates a new display for the specified image. If the image already has a
display, another is added. Multiple displays are handled transparently by
GIMP. The newly created display is returned and can be subsequently destroyed
with a call to gimp_display_delete(). This procedure only makes sense for use
with the GIMP UI, and will result in an execution error if called when
GIMP has no UI.
HELP

    &std_pdb_misc;

    @inargs = (
	{ name => 'image', type => 'image',
	  desc => 'The image' }
    );

    @outargs = (
	{ name => 'display', type => 'display',
	  desc => 'The new display' }
    );

    %invoke = (
	code => <<'CODE'
{
  gimp_image_flush (image);

  display = gimp_create_display (gimp, image, GIMP_UNIT_PIXEL, 1.0, NULL, 0);

  if (display)
    {
      /* the first display takes ownership of the image */
      if (gimp_image_get_display_count (image) == 1)
        g_object_unref (image);
    }
  else
    {
      success = FALSE;
    }
}
CODE
    );
}

sub display_delete {
    $blurb = 'Delete the specified display.';

    $help = <<'HELP';
This procedure removes the specified display. If this is the last remaining 
display for the underlying image, then the image is deleted also. Note that
the display is closed no matter if the image is dirty or not. Better save
the image before calling this procedure.
HELP

    &std_pdb_misc;

    @inargs = (
	{ name => 'display', type => 'display',
	  desc => 'The display to delete' }
    );

    %invoke = (
	code => <<'CODE'
{
  gimp_delete_display (gimp, display);
}
CODE
    );
}

sub display_get_window_handle {
    $blurb = 'Get a handle to the native window for an image display.';

    $help = <<'HELP';
This procedure returns a handle to the native window for a given image
display. For example in the X backend of GDK, a native window handle is
an Xlib XID. A value of 0 is returned for an invalid display or if this
function is unimplemented for the windowing system that is being used.
HELP

    &neo_pdb_misc('2005', '2.4');

    @inargs = (
	{ name => 'display', type => 'display',
	  desc => 'The display to get the window handle from' }
    );

    @outargs = (
        { name => 'window', type => 'int32',
          desc => 'The native window handle or 0' }
    );

    %invoke = (
	code => <<'CODE'
{
  window = (gint32) gimp_get_display_window_id (gimp, display);
}
CODE
    );
}

sub displays_flush {
    $blurb = 'Flush all internal changes to the user interface';

    $help = <<'HELP';
This procedure takes no arguments and returns nothing except a success status.
Its purpose is to flush all pending updates of image manipulations to the user
interface. It should be called whenever appropriate.
HELP

    &std_pdb_misc;

    %invoke = (
        headers => [ qw("core/gimpcontainer.h") ],
        code    => <<'CODE'

{
  gimp_container_foreach (gimp->images, (GFunc) gimp_image_flush, NULL);
}
CODE
    );
}

sub displays_reconnect {
    $blurb = 'Reconnect displays from one image to another image.';

    $help = <<'HELP';
This procedure connects all displays of the old_image to the
new_image.  If the old_image has no display or new_image already has a
display the reconnect is not performed and the procedure returns
without success.  You should rarely need to use this function.
HELP

    &std_pdb_misc;

    @inargs = ( 
	{ name => 'old_image', type => 'image',
	  desc => 'The old image (must have at least one display)' },
	{ name => 'new_image', type => 'image',
	  desc => 'The new image (must not have a display)' }
     );

    %invoke = (
	code => <<'CODE'
{
  success = (old_image != new_image    &&
             gimp_image_get_display_count (old_image) > 0 &&
             gimp_image_get_display_count (new_image) == 0);

  if (success)
    {
      gimp_reconnect_displays (gimp, old_image, new_image);

      /* take ownership of the image */
      if (gimp_image_get_display_count (new_image) > 0)
        g_object_unref (new_image);
    }
}
CODE
    );
}


@headers = qw("core/gimp.h");

@procs = qw(display_is_valid
            display_new
            display_delete
            display_get_window_handle
	    displays_flush
            displays_reconnect);

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

$desc = 'Display procedures';
$doc_title = 'gimpdisplay';
$doc_short_desc = 'Functions to create, delete and flush displays (views) on an image.';
$doc_long_desc = 'Functions to create, delete and flush displays (views) on an image.';

1;