workbench/libs/gadtools/stringclass.c

   1 /*
   2     Copyright © 1995-2005, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc: Internal GadTools string class.
   6     Lang: English
   7 */
   8
   9
  10 #include <proto/exec.h>
  11 #include <exec/libraries.h>
  12 #include <exec/memory.h>
  13 #include <proto/dos.h>
  14 #include <intuition/classes.h>
  15 #include <intuition/classusr.h>
  16 #include <intuition/gadgetclass.h>
  17 #include <intuition/imageclass.h>
  18 #include <intuition/intuition.h>
  19 #include <intuition/cghooks.h>
  20 #include <graphics/rastport.h>
  21 #include <graphics/text.h>
  22 #include <utility/tagitem.h>
  23 #include <devices/inputevent.h>
  24 #include <proto/alib.h>
  25 #include <proto/utility.h>
  26
  27 #include <string.h> /* memset() */
  28
  29 #define SDEBUG 0
  30 #define DEBUG 0
  31 #include <aros/debug.h>
  32
  33 #include "gadtools_intern.h"
  34
  35 /**********************************************************************************************/
  36
  37 #define GadToolsBase ((struct GadToolsBase_intern *)cl->cl_UserData)
  38
  39 /**********************************************************************************************/
  40
  41 IPTR GTString__OM_NEW(Class *cl, Object *o, struct opSet *msg)
  42 {
  43     struct TagItem      *tag, tags[] =
  44     {
  45         {TAG_IGNORE     , 0UL   },  /* 0 STRINGA_TextVal  */
  46         {TAG_IGNORE     , 0UL   },  /* 1 STRINGA_LongVal  */
  47         {TAG_IGNORE     , 0UL   },  /* 2 STRINGA_MaxChars */
  48         {TAG_IGNORE     , 0UL   },  /* 3 STRINGA_EditHook */
  49         {TAG_MORE       , 0UL   }
  50     };
  51     const struct TagItem *tstate = msg->ops_AttrList;
  52
  53     LONG                labelplace = GV_LabelPlace_Left;
  54     struct DrawInfo     *dri = NULL;
  55     struct TextAttr     *tattr = NULL;
  56     LONG                gadgetkind = STRING_KIND;
  57
  58     struct Gadget       *retval = NULL;
  59
  60     EnterFunc(bug("String::SetNew()\n"));
  61
  62     while ((tag = NextTagItem(&tstate)))
  63     {
  64         IPTR tidata = tag->ti_Data;
  65
  66         switch (tag->ti_Tag)
  67         {
  68             case GTA_GadgetKind:
  69                 gadgetkind = tidata;
  70                 break;
  71
  72             case GTST_String:
  73                 tags[0].ti_Tag = STRINGA_TextVal;
  74                 tags[0].ti_Data = tidata;
  75                 break;
  76
  77             case GTIN_Number:
  78                 tags[1].ti_Tag = STRINGA_LongVal;
  79                 tags[1].ti_Data = tidata;
  80                 break;
  81
  82             /* Another weird inconsistency of AmigaOS GUI objects:
  83             ** For intuition and strgclass gadgets, MaxChars includes trailing
  84             ** zero, but this is NOT true for gadtools string gadgets
  85             */
  86             case GTIN_MaxChars:
  87             case GTST_MaxChars:
  88                 tags[2].ti_Tag = STRINGA_MaxChars;
  89                 tags[2].ti_Data = ((WORD)tidata) + 1;
  90                 break;
  91
  92 /*          case GTIN_EditHook:  Duplicate case value */
  93             case GTST_EditHook:
  94                 tags[3].ti_Tag = STRINGA_EditHook;
  95                 tags[3].ti_Data = tidata;
  96                 break;
  97
  98             case GA_LabelPlace:
  99                 labelplace = tidata;
 100                 break;
 101
 102             case GA_DrawInfo:
 103                 dri = (struct DrawInfo *)tidata;
 104                 break;
 105             case GA_TextAttr:
 106                 tattr = (struct TextAttr *)tidata;
 107                 break;
 108
 109         }
 110     }
 111
 112     tags[4].ti_Data = (IPTR)msg->ops_AttrList;
 113
 114     retval = (struct Gadget *)DoSuperMethod(cl, o, msg->MethodID, (IPTR) tags, (IPTR) msg->ops_GInfo);
 115
 116     D(bug("Returned from supermethod: %p\n", retval));
 117
 118     if ((msg->MethodID == OM_NEW) && (retval != NULL))
 119     {
 120         struct StringData *data = INST_DATA(cl, retval);
 121         struct TagItem fitags[] =
 122         {
 123             {IA_Width           , 0UL           },
 124             {IA_Height          , 0UL           },
 125             {IA_Resolution      , 0UL           },
 126             {IA_FrameType       , FRAME_RIDGE   },
 127             {IA_EdgesOnly       , TRUE          },
 128             {TAG_DONE           , 0UL           }
 129         };
 130
 131         fitags[0].ti_Data = retval->Width;
 132         fitags[1].ti_Data = retval->Height;
 133         fitags[2].ti_Data = (dri->dri_Resolution.X << 16) + dri->dri_Resolution.Y;
 134
 135         data->labelplace = labelplace;
 136         data->frame = NULL;
 137         data->font  = NULL;
 138         data->gadgetkind = gadgetkind;
 139
 140         D(bug("Creating frame image"));
 141
 142         data->frame = NewObjectA(NULL, FRAMEICLASS, fitags);
 143
 144         D(bug("Created frame image: %p", data->frame));
 145         if (!data->frame)
 146         {
 147             CoerceMethod(cl, (Object *)retval, OM_DISPOSE);
 148
 149             retval = (IPTR)NULL;
 150         }
 151
 152         if (tattr)
 153         {
 154             data->font = OpenFont(tattr);
 155
 156             if (data->font)
 157             {
 158                 struct TagItem sftags[] = {{STRINGA_Font, (IPTR)NULL}, {TAG_DONE, }};
 159
 160                 sftags[0].ti_Data = (IPTR)data->font;
 161
 162                 DoSuperMethod(cl, (Object *)retval, OM_SET, (IPTR) sftags, NULL);
 163             }
 164         }
 165     }
 166
 167     ReturnPtr ("String::SetNew", IPTR, (IPTR)retval);
 168
 169 }
 170
 171 /**********************************************************************************************/
 172
 173 IPTR GTString__OM_GET(Class *cl, Object *o, struct opGet *msg)
 174 {
 175     struct StringData   *data = INST_DATA(cl, o);
 176     struct opGet        cloned_msg = *msg;
 177     IPTR                retval = 0;
 178
 179     switch(cloned_msg.opg_AttrID)
 180     {
 181         case GTA_GadgetKind:
 182         case GTA_ChildGadgetKind:
 183             *(msg->opg_Storage) = data->gadgetkind;
 184             retval = 1UL;
 185             break;
 186
 187         case GTST_String:
 188             cloned_msg.opg_AttrID = STRINGA_TextVal;
 189             break;
 190
 191         case GTIN_Number:
 192             cloned_msg.opg_AttrID = STRINGA_LongVal;
 193             break;
 194
 195         default:
 196             break;
 197     }
 198
 199     if (!retval) retval = DoSuperMethodA(cl, o, (Msg)&cloned_msg);
 200
 201     return retval;
 202 }
 203
 204 /**********************************************************************************************/
 205
 206 IPTR GTString__GM_RENDER(Class *cl, struct Gadget *g, struct gpRender *msg)
 207 {
 208     IPTR retval;
 209
 210     EnterFunc(bug("String::Render()\n"));
 211     retval = DoSuperMethodA(cl, (Object *)g, (Msg)msg);
 212
 213     D(bug("Superclass render OK\n"));
 214
 215     if (msg->gpr_Redraw == GREDRAW_REDRAW)
 216     {
 217         struct StringData *data = INST_DATA(cl, g);
 218
 219         WORD x, y;
 220
 221         struct TagItem itags[] =
 222         {
 223             {IA_Width,  0L},
 224             {IA_Height, 0L},
 225             {TAG_DONE,}
 226         };
 227
 228         D(bug("Full redraw\n"));
 229
 230         /* center image position, we assume image top and left is 0 */
 231         itags[0].ti_Data = g->Width + BORDERSTRINGSPACINGX * 2;
 232         itags[1].ti_Data = g->Height + BORDERSTRINGSPACINGY * 2;
 233
 234         SetAttrsA((Object *)data->frame, itags);
 235
 236         x = g->LeftEdge - BORDERSTRINGSPACINGX;
 237         y = g->TopEdge - BORDERSTRINGSPACINGY;
 238
 239         DrawImageState(msg->gpr_RPort,
 240                 (struct Image *)data->frame,
 241                 x, y,
 242                 IDS_NORMAL,
 243                 msg->gpr_GInfo->gi_DrInfo);
 244
 245         /* render label */
 246         renderlabel(GadToolsBase, g, msg->gpr_RPort, data->labelplace);
 247
 248     } /* if (whole gadget should be redrawn) */
 249
 250     ReturnInt ("String::Render", IPTR, retval);
 251 }
 252
 253 /**********************************************************************************************/
 254
 255 IPTR GTString__OM_DISPOSE(Class *cl, Object *o, Msg msg)
 256 {
 257     struct StringData *data = INST_DATA(cl, o);
 258
 259     if (data->frame) DisposeObject(data->frame);
 260     if (data->font) CloseFont(data->font);
 261
 262     return DoSuperMethodA(cl, o, (Msg)msg);
 263 }
 264
 265 /**********************************************************************************************/
 266