rom/intuition/releasegirport.c

   1 /*
   2     Copyright © 1995-2007, The AROS Development Team. All rights reserved.
   3     Copyright © 2001-2003, The MorphOS Development Team. All Rights Reserved.
   4     $Id$
   5 */
   6
   7 #include <proto/graphics.h>
   8 #include <proto/layers.h>
   9 #include "intuition_intern.h"
  10
  11 /*****************************************************************************
  12
  13     NAME */
  14 #include <graphics/rastport.h>
  15 #include <proto/intuition.h>
  16
  17     AROS_LH1(void, ReleaseGIRPort,
  18
  19 /*  SYNOPSIS */
  20          AROS_LHA(struct RastPort *, rp, A0),
  21
  22 /*  LOCATION */
  23          struct IntuitionBase *, IntuitionBase, 94, Intuition)
  24
  25 /*  FUNCTION
  26     Release a RastPort previously obtained by ObtainGIRPort().
  27
  28     INPUTS
  29     rp - The result of ObtainGIRPort()
  30
  31     RESULT
  32     None.
  33
  34     NOTES
  35
  36     EXAMPLE
  37
  38     BUGS
  39
  40     SEE ALSO
  41
  42     INTERNALS
  43
  44     HISTORY
  45     29-10-95    digulla automatically created from
  46                 intuition_lib.fd and clib/intuition_protos.h
  47
  48 *****************************************************************************/
  49 {
  50     AROS_LIBFUNC_INIT
  51
  52     DEBUG_RELEASEGIRPORT(dprintf("ReleaseGIRPort: RPort 0x%lx\n", rp));
  53
  54     if (rp)
  55     {
  56         if (rp->Layer)
  57         {
  58             if ((--(GetPrivIBase(IntuitionBase)->BackupLayerContext.nestcount)) == 0)
  59             {
  60                 InstallClipRegion(rp->Layer,GetPrivIBase(IntuitionBase)->BackupLayerContext.clipregion);
  61
  62                 rp->Layer->Scroll_X = GetPrivIBase(IntuitionBase)->BackupLayerContext.scroll_x;
  63                 rp->Layer->Scroll_Y = GetPrivIBase(IntuitionBase)->BackupLayerContext.scroll_y;
  64             }
  65
  66             /*  bug("----------- RELEASE: %x\n",rp->Layer);*/
  67             UnlockLayer(rp->Layer);
  68         }
  69
  70         UNLOCKGADGET
  71
  72         FreeRastPort (rp);
  73     }
  74
  75     AROS_LIBFUNC_EXIT
  76 } /* ReleaseGIRPort */