rom/intuition/obtaingirport.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 <proto/exec.h>
  10 #include <graphics/rpattr.h>
  11 #include "intuition_intern.h"
  12
  13 /*****************************************************************************
  14
  15     NAME */
  16 #include <graphics/rastport.h>
  17 #include <intuition/cghooks.h>
  18 #include <proto/intuition.h>
  19
  20     AROS_LH1(struct RastPort *, ObtainGIRPort,
  21
  22 /*  SYNOPSIS */
  23          AROS_LHA(struct GadgetInfo *, gInfo, A0),
  24
  25 /*  LOCATION */
  26          struct IntuitionBase *, IntuitionBase, 93, Intuition)
  27
  28 /*  FUNCTION
  29     This function sets up a RastPort for exclusive use by custom
  30     gadget hook routines. Call this function each time a hook
  31     routine needs to render into the gadget and ReleaseGIRPort()
  32     immediately afterwards.
  33
  34     INPUTS
  35     gInfo - Pointer to GadgetInfo structure, as passed to each
  36     custom gadget hook function.
  37
  38     RESULT
  39     Pointer to a RastPort you can render to. NULL if you aren't
  40     allowed to render into this gadget.
  41
  42     NOTES
  43     If a routine passes a RastPort, eg. GM_RENDER, ObtainGIRPort()
  44     needn't be called.
  45
  46     EXAMPLE
  47
  48     BUGS
  49
  50     SEE ALSO
  51     ReleaseGIRPort()
  52
  53     INTERNALS
  54
  55     HISTORY
  56     29-10-95    digulla automatically created from
  57                 intuition_lib.fd and clib/intuition_protos.h
  58
  59 *****************************************************************************/
  60 {
  61     AROS_LIBFUNC_INIT
  62
  63     struct RastPort *rp;
  64
  65     DEBUG_OBTAINGIRPORT(dprintf("ObtainGIRPort: GInfo 0x%lx Task 0x%lx <%s>\n",
  66                                 gInfo, FindTask(NULL),
  67                                 FindTask(NULL)->tc_Node.ln_Name ? FindTask(NULL)->tc_Node.ln_Name : "NULL"));
  68
  69     if (gInfo && gInfo->gi_RastPort)
  70     {
  71         rp = CloneRastPort (gInfo->gi_RastPort);
  72         if (rp)
  73         {
  74
  75             LOCKGADGET
  76             /*bug("+++++++++++++ OBTAIN rp=%p lay=%p font=%p origfont=%p\n",rp,rp->Layer,rp->Font,gInfo->gi_RastPort->Font);*/
  77
  78             if (rp->Layer)
  79             {
  80                 LockLayer(0,rp->Layer);
  81
  82                 if (((GetPrivIBase(IntuitionBase)->BackupLayerContext.nestcount)++) == 0)
  83                 {
  84                     GetPrivIBase(IntuitionBase)->BackupLayerContext.scroll_x = rp->Layer->Scroll_X;
  85                     GetPrivIBase(IntuitionBase)->BackupLayerContext.scroll_y = rp->Layer->Scroll_Y;
  86
  87                     rp->Layer->Scroll_X = 0;
  88                     rp->Layer->Scroll_Y = 0;
  89
  90                     GetPrivIBase(IntuitionBase)->BackupLayerContext.clipregion = InstallClipRegion(rp->Layer, NULL);
  91                 }
  92
  93                 SetWriteMask(rp, 0xFF);
  94             #ifdef __MORPHOS__
  95                 SetRPAttrs(rp,RPTAG_DrMd,JAM1,RPTAG_PenMode,TRUE,TAG_DONE);
  96             #else
  97                 SetRPAttrs(rp,RPTAG_DrMd,JAM1,TAG_DONE);
  98             #endif /* __MORPHOS__ */
  99             }
 100         }
 101
 102         DEBUG_OBTAINGIRPORT(dprintf("ObtainGIRPort: RPort 0x%lx\n", rp));
 103         return rp;
 104     }
 105     else
 106     {
 107         return NULL;
 108     }
 109
 110     AROS_LIBFUNC_EXIT
 111 } /* ObtainGIRPort */