workbench/libs/asl/stringclass.c

   1 /*
   2     Copyright © 1995-2011, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc:
   6     Lang: english
   7 */
   8
   9 #include <proto/alib.h>
  10 #include <proto/exec.h>
  11 #include <proto/dos.h>
  12 #include <proto/utility.h>
  13 #include <proto/intuition.h>
  14 #include <proto/graphics.h>
  15 #include <proto/cybergraphics.h>
  16 #include <exec/memory.h>
  17 #include <intuition/screens.h>
  18 #include <intuition/icclass.h>
  19 #include <intuition/cghooks.h>
  20 #include <intuition/imageclass.h>
  21 #include <intuition/gadgetclass.h>
  22 #include <graphics/gfx.h>
  23 #include <cybergraphx/cybergraphics.h>
  24
  25 #include <string.h>
  26
  27 #include "asl_intern.h"
  28 #include "layout.h"
  29
  30 #define SDEBUG 0
  31 #define DEBUG 0
  32
  33 #include <aros/debug.h>
  34
  35 #define CLASS_ASLBASE ((struct AslBase_intern *)cl->cl_UserData)
  36 #define HOOK_ASLBASE  ((struct AslBase_intern *)hook->h_Data)
  37
  38 #define AslBase CLASS_ASLBASE
  39
  40 /********************** ASL STRING CLASS **************************************************/
  41
  42 IPTR AslString__OM_NEW(Class * cl, Object * o, struct opSet * msg)
  43 {
  44     struct AslStringData *data;
  45     struct TagItem fitags[] =
  46     {
  47         {IA_FrameType, FRAME_RIDGE},
  48         {TAG_DONE, 0UL}
  49     };
  50
  51     struct ExtGadget *eg = (struct ExtGadget *)DoSuperMethodA(cl, o, (Msg)msg);
  52     if (eg)
  53     {
  54         data = INST_DATA(cl, eg);
  55
  56         eg->BoundsLeftEdge = eg->LeftEdge;
  57         eg->BoundsTopEdge  = eg->TopEdge;
  58         eg->BoundsWidth    = eg->Width;
  59         eg->BoundsHeight   = eg->Height;
  60         eg->MoreFlags |= GMORE_BOUNDS;
  61
  62         eg->LeftEdge += BORDERSTRINGSPACINGX;
  63         eg->TopEdge  += BORDERSTRINGSPACINGY;
  64         eg->Width    -= BORDERSTRINGSPACINGX * 2;
  65         eg->Height   -= BORDERSTRINGSPACINGY * 2;
  66
  67         data->frame = NewObjectA(NULL, FRAMEICLASS, fitags);
  68         if (!data->frame)
  69         {
  70             CoerceMethod(cl, (Object *)eg, OM_DISPOSE);
  71             eg = NULL;
  72         }
  73     }
  74
  75     return (IPTR)eg;
  76 }
  77
  78 /***********************************************************************************/
  79
  80 IPTR AslString__OM_DISPOSE(Class * cl, Object * o, Msg msg)
  81 {
  82     struct AslStringData *data;
  83     IPTR retval;
  84
  85     data = INST_DATA(cl, o);
  86     if (data->frame) DisposeObject(data->frame);
  87
  88     retval = DoSuperMethodA(cl, o, msg);
  89
  90     return retval;
  91 }
  92
  93 /***********************************************************************************/
  94
  95 IPTR AslString__GM_RENDER(Class *cl, struct Gadget *g, struct gpRender *msg)
  96 {
  97     struct AslStringData *data;
  98     IPTR retval;
  99
 100     data = INST_DATA(cl, g);
 101
 102     if (msg->gpr_Redraw == GREDRAW_REDRAW)
 103     {
 104         struct TagItem im_tags[] =
 105         {
 106             {IA_Width   , 0     },
 107             {IA_Height  , 0     },
 108             {TAG_DONE           }
 109         };
 110         WORD x, y, w, h;
 111
 112         getgadgetcoords(g, msg->gpr_GInfo, &x, &y, &w, &h);
 113
 114         x -= BORDERSTRINGSPACINGX;
 115         y -= BORDERSTRINGSPACINGY;
 116         w += BORDERSTRINGSPACINGX * 2;
 117         h += BORDERSTRINGSPACINGY * 2;
 118
 119         im_tags[0].ti_Data = w;
 120         im_tags[1].ti_Data = h;
 121
 122         SetAttrsA(data->frame, im_tags);
 123
 124         DrawImageState(msg->gpr_RPort,
 125                        (struct Image *)data->frame,
 126                        x,
 127                        y,
 128                        IDS_NORMAL,
 129                        msg->gpr_GInfo->gi_DrInfo);
 130
 131     } /* if (msg->gpr_Redraw == GREDRAW_REDRAW) */
 132
 133     retval = DoSuperMethodA(cl, (Object *)g, (Msg)msg);
 134
 135     return retval;
 136 }
 137
 138 /***********************************************************************************/