rom/intuition/requesters.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     Miscellaneous requester functions.
   7 */
   8
   9 #include <proto/graphics.h>
  10 #include <proto/layers.h>
  11 #include <proto/exec.h>
  12 #include <proto/intuition.h>
  13 #include <proto/cybergraphics.h>
  14 #include <exec/types.h>
  15 #include <intuition/intuition.h>
  16 #include <intuition/gadgetclass.h>
  17 #include <intuition/imageclass.h>
  18 #include <graphics/rpattr.h>
  19 #include "intuition_intern.h"
  20 #include "requesters.h"
  21
  22 #define DEBUG_REQUESTER(x)  ;
  23
  24 /* free the array of gadgetlabels made in BuildEasyRequestArgs() */
  25 void intrequest_freelabels(STRPTR *gadgetlabels, struct IntuitionBase *IntuitionBase)
  26 {
  27     if (gadgetlabels)
  28     {
  29         FreeVec(gadgetlabels[0]);
  30         FreeVec(gadgetlabels);
  31     }
  32 }
  33
  34
  35 /* free the gadgets made in BuildEasyRequestArgs() */
  36 void intrequest_freegadgets(struct Gadget *gadgets, struct IntuitionBase *IntuitionBase)
  37 {
  38     struct Image *frame = gadgets->GadgetRender;
  39
  40     while (gadgets)
  41     {
  42         struct Gadget* nextgadget = 0;
  43
  44         GetAttr(GA_Next, (Object *)gadgets, (IPTR *)&nextgadget);
  45         DisposeObject(gadgets);
  46         gadgets = nextgadget;
  47     }
  48
  49     DisposeObject(frame);
  50 }
  51
  52
  53 /*****************************************************************************/
  54
  55
  56 /* render a standard requester */
  57 void render_requester(struct Requester *requester, struct IntuitionBase *IntuitionBase)
  58 {
  59     struct RastPort *rp = requester->ReqLayer->rp;
  60
  61     if ((requester->Flags & NOREQBACKFILL) == 0)
  62         SetRast(rp, requester->BackFill);
  63
  64     if (requester->ImageBMap && requester->Flags & PREDRAWN)
  65         BltBitMapRastPort(requester->ImageBMap, 0, 0,
  66                           rp, 0, 0, requester->Width, requester->Height, 0xc0);
  67
  68     if (requester->ReqImage && requester->Flags & USEREQIMAGE)
  69         DrawImage(rp, requester->ReqImage, 0, 0);
  70
  71     if (requester->ReqBorder)
  72         DrawBorder(rp, requester->ReqBorder, 0, 0);
  73
  74     if (requester->ReqGadget)
  75         RefreshGList(requester->ReqGadget, requester->RWindow, requester, -1);
  76
  77     if (requester->ReqText)
  78         PrintIText(rp, requester->ReqText, 0, 0);
  79 }