bgui/areaclass.c

   1 /*
   2  * @(#) $Header$
   3  *
   4  * BGUI library
   5  * areaclass.c
   6  *
   7  * (C) Copyright 1998 Manuel Lemos.
   8  * (C) Copyright 1996-1997 Ian J. Einman.
   9  * (C) Copyright 1993-1996 Jaba Development.
  10  * (C) Copyright 1993-1996 Jan van den Baard.
  11  * All Rights Reserved.
  12  *
  13  * $Log$
  14  * Revision 42.2  2004/06/16 20:16:48  verhaegs
  15  * Use METHODPROTO, METHOD_END and REGFUNCPROTOn where needed.
  16  *
  17  * Revision 42.1  2000/05/15 19:27:00  stegerg
  18  * another hundreds of REG() macro replacements in func headers/protos.
  19  *
  20  * Revision 42.0  2000/05/09 22:08:11  mlemos
  21  * Bumped to revision 42.0 before handing BGUI to AROS team
  22  *
  23  * Revision 41.11  2000/05/09 19:53:42  mlemos
  24  * Merged with the branch Manuel_Lemos_fixes.
  25  *
  26  * Revision 41.10.2.1  1998/11/23 14:58:28  mlemos
  27  * Made the BaseInfo pointer passed to DoNotifyMethod be casted to GadgetInfo
  28  * pointer to avoid a compiler warning.
  29  *
  30  * Revision 41.10  1998/02/25 21:11:28  mlemos
  31  * Bumping to 41.10
  32  *
  33  * Revision 1.1  1998/02/25 17:07:18  mlemos
  34  * Ian sources
  35  *
  36  *
  37  */
  38
  39 /// Class definitions.
  40 #include "include/classdefs.h"
  41
  42 /*
  43  * Instance data.
  44  */
  45 typedef struct {
  46    UWORD   ad_MinWidth;   /* Minimum width of area.  */
  47    UWORD   ad_MinHeight;  /* Minimum height of area. */
  48 }  AD;
  49 ///
  50 /// OM_NEW
  51 METHOD(AreaClassNew, struct opSet *,ops)
  52 {
  53    AD             *ad;
  54    IPTR            rc;
  55    struct TagItem *tags, *tag;
  56    struct TagItem *tstate;
  57
  58    tags = DefTagList(BGUI_AREA_GADGET, ops->ops_AttrList);
  59    /*
  60     * Let the superclass create an object.
  61     */
  62    if ((rc = NewSuperObject(cl, obj, tags)))
  63    {
  64       ad = INST_DATA(cl, rc);
  65
  66       tstate = tags;
  67       while ((tag = NextTagItem(&tstate)))
  68       {
  69          switch (tag->ti_Tag)
  70          {
  71          case AREA_MinWidth:
  72             ad->ad_MinWidth = tag->ti_Data;
  73             break;
  74          case AREA_MinHeight:
  75             ad->ad_MinHeight = tag->ti_Data;
  76             break;
  77          };
  78       };
  79
  80       /*
  81        * Minimal width and height required!
  82        */
  83       if (!ad->ad_MinWidth || !ad->ad_MinHeight)
  84       {
  85          /*
  86           * Fail :(
  87           */
  88          AsmCoerceMethod(cl, (Object *)rc, OM_DISPOSE);
  89          rc = 0;
  90       };
  91    };
  92    FreeTagItems(tags);
  93
  94    return rc;
  95 }
  96 METHOD_END
  97 ///
  98 /// OM_GET
  99 METHOD(AreaClassGet, struct opGet *,opg)
 100 {
 101    AD       *ad = INST_DATA(cl, obj);
 102    BC       *bc = BASE_DATA(obj);
 103    ULONG     rc = 1;
 104    IPTR     *store = opg->opg_Storage;
 105
 106    switch (opg->opg_AttrID)
 107    {
 108    case AREA_AreaBox:
 109       /*
 110        * Simply return a pointer to the area
 111        * which is computed at rendering time.
 112        */
 113       STORE &bc->bc_InnerBox;
 114       break;
 115    case AREA_MinWidth:
 116       STORE ad->ad_MinWidth;
 117       break;
 118    case AREA_MinHeight:
 119       STORE ad->ad_MinHeight;
 120       break;
 121    default:
 122       rc = AsmDoSuperMethodA(cl, obj, (Msg)opg);
 123       break;
 124    };
 125    return rc;
 126 }
 127 METHOD_END
 128 ///
 129 /// BASE_RENDER
 130
 131 METHOD(AreaClassRender, struct bmRender *,bmr)
 132 {
 133    /*
 134     * Render the baseclass.
 135     */
 136    AsmDoSuperMethodA(cl, obj, (Msg)bmr);
 137
 138    /*
 139     * Notify the main program.
 140     */
 141    DoNotifyMethod(obj, (struct GadgetInfo *)bmr->bmr_BInfo, 0, GA_ID, GADGET(obj)->GadgetID, TAG_DONE);
 142
 143    return 1;
 144 }
 145 METHOD_END
 146 ///
 147 /// GM_HITTEST
 148 /*
 149  * This object cannot be hit.
 150  */
 151 METHOD(AreaClassHitTest, Msg, msg)
 152 {
 153    return 0;
 154 }
 155 METHOD_END
 156 ///
 157 /// BASE_DIMENSIONS
 158 /*
 159  * Simple dimensions request.
 160  */
 161 METHOD(AreaClassDimensions, struct bmDimensions *,bmd)
 162 {
 163    AD *ad = INST_DATA(cl, obj);
 164
 165    /*
 166     * We simply add the specified minimum width and height
 167     * which are passed to us at create time.
 168     */
 169    return CalcDimensions(cl, obj, bmd, ad->ad_MinWidth, ad->ad_MinHeight);
 170 }
 171 METHOD_END
 172 ///
 173 /// Class initialization.
 174 /*
 175  * Class function table.
 176  */
 177 STATIC DPFUNC ClassFunc[] = {
 178    { OM_NEW,           (FUNCPTR)AreaClassNew, },
 179    { OM_GET,           (FUNCPTR)AreaClassGet, },
 180    { BASE_RENDER,      (FUNCPTR)AreaClassRender, },
 181    { BASE_DIMENSIONS,  (FUNCPTR)AreaClassDimensions, },
 182    { GM_HITTEST,       (FUNCPTR)AreaClassHitTest, },
 183    { DF_END },
 184 };
 185
 186 /*
 187  * Simple class initialization.
 188  */
 189 makeproto Class *InitAreaClass(void)
 190 {
 191    return BGUI_MakeClass(CLASS_SuperClassBGUI, BGUI_BASE_GADGET,
 192                          CLASS_ObjectSize,     sizeof(AD),
 193                          CLASS_DFTable,        ClassFunc,
 194                          TAG_DONE);
 195 }
 196 ///