rom/intuition/releasegirport.c

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