rom/intuition/releasegirport.c

   1 /*
   2     Copyright © 1995-2013, 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 *****************************************************************************/
  45 {
  46     AROS_LIBFUNC_INIT
  47
  48     struct LayersBase *LayersBase = GetPrivIBase(IntuitionBase)->LayersBase;
  49     DEBUG_RELEASEGIRPORT(dprintf("ReleaseGIRPort: RPort 0x%lx\n", rp));
  50
  51     if (rp)
  52     {
  53         if (rp->Layer)
  54         {
  55             if ((--(GetPrivIBase(IntuitionBase)->BackupLayerContext.nestcount)) == 0)
  56             {
  57                 InstallClipRegion(rp->Layer,GetPrivIBase(IntuitionBase)->BackupLayerContext.clipregion);
  58
  59                 rp->Layer->Scroll_X = GetPrivIBase(IntuitionBase)->BackupLayerContext.scroll_x;
  60                 rp->Layer->Scroll_Y = GetPrivIBase(IntuitionBase)->BackupLayerContext.scroll_y;
  61             }
  62
  63             /*  bug("----------- RELEASE: %x\n",rp->Layer);*/
  64             UnlockLayer(rp->Layer);
  65         }
  66
  67         UNLOCKGADGET(IntuitionBase)
  68
  69         FreeRastPort (rp);
  70     }
  71
  72     AROS_LIBFUNC_EXIT
  73 } /* ReleaseGIRPort */