rom/intuition/pointerclass.c

   1 /*
   2     Copyright © 1995-2005, The AROS Development Team. All rights reserved.
   3     Copyright © 2001-2003, The MorphOS Development Team. All Rights Reserved.
   4     $Id$
   5 */
   6
   7 #include <intuition/intuition.h>
   8 #include <intuition/intuitionbase.h>
   9 #include <intuition/classes.h>
  10 #include <intuition/classusr.h>
  11 #include <intuition/pointerclass.h>
  12 #include <graphics/sprite.h>
  13
  14 #include <proto/exec.h>
  15 #include <proto/intuition.h>
  16 #include <proto/graphics.h>
  17 #include <proto/utility.h>
  18
  19 #include "intuition_intern.h"
  20
  21 #undef DEBUG
  22 #define DEBUG 0
  23 #include <aros/debug.h>
  24
  25 #include <aros/asmcall.h>
  26
  27 /***********************************************************************************/
  28
  29 #undef IntuitionBase
  30 #define IntuitionBase   ((struct IntuitionBase *)(cl->cl_UserData))
  31
  32 /***********************************************************************************/
  33
  34 UWORD posctldata[] =
  35 {
  36     0x0000,0x0000
  37 };
  38
  39 /***********************************************************************************/
  40
  41 IPTR PointerClass__OM_NEW(Class *cl, Object *o, struct opSet *msg)
  42 {
  43     D(kprintf("PointerClass: OM_NEW\n"));
  44
  45     if (cl)
  46     {
  47         struct TagItem *tags = msg->ops_AttrList;
  48         struct BitMap *bitmap = (struct BitMap *)GetTagData(POINTERA_BitMap, (IPTR)NULL, tags);
  49
  50         //ULONG xResolution = GetTagData(POINTERA_XResolution, POINTERXRESN_DEFAULT, tags);
  51         //ULONG yResolution = GetTagData(POINTERA_YResolution, POINTERYRESN_DEFAULT, tags);
  52
  53         D(
  54         {
  55             struct TagItem *tagscan=tags;
  56
  57             while(tagscan->ti_Tag != 0)
  58             {
  59                 kprintf("  0x%08lx, %08lx\n",tagscan->ti_Tag,tagscan->ti_Data);
  60                 tagscan++;
  61             }
  62         }
  63         )
  64
  65         if (1)  // bitmap
  66         {
  67             struct TagItem spritetags[] =
  68             {
  69                 {SPRITEA_Width  , 0 },
  70                 {TAG_SKIP           , 0 },
  71                 {TAG_SKIP           , 0 },
  72                 {TAG_DONE               }
  73             };
  74             struct ExtSprite *sprite;
  75             struct BitMap *spritedata=(struct BitMap *)bitmap;
  76
  77             if(spritedata != NULL)
  78             {
  79                 spritetags[0].ti_Data = GetTagData(POINTERA_WordWidth,
  80                                                    ((GetBitMapAttr(bitmap, BMA_WIDTH) + 15) & ~15)>>4, tags) * 16;
  81                 spritetags[1].ti_Tag = TAG_SKIP;
  82                 spritetags[2].ti_Tag = TAG_SKIP;
  83             }
  84             else
  85             {
  86                 D(kprintf("PointerClass: OM_NEW called without bitmap, using dummy sprite !\n"));
  87
  88                 spritetags[0].ti_Data = 16;
  89                 spritetags[1].ti_Tag = SPRITEA_OutputHeight;
  90                 spritetags[1].ti_Data = 1;
  91                 spritetags[2].ti_Tag = SPRITEA_OldDataFormat;
  92                 spritetags[2].ti_Data = TRUE;
  93                 bitmap = (struct BitMap *)posctldata;
  94
  95             }
  96
  97             sprite = AllocSpriteDataA(bitmap, spritetags);
  98
  99             D(kprintf("PointerClass: extSprite 0x%lx\n",sprite));
 100             D(kprintf("MoveSprite data 0x%lx, height %ld, x %ld, y %ld, num %ld, wordwidth, 0x%lx, flags 0x%lx\n",
 101                       sprite->es_SimpleSprite.posctldata,
 102                       sprite->es_SimpleSprite.height,
 103                       sprite->es_SimpleSprite.x,
 104                       sprite->es_SimpleSprite.y,
 105                       sprite->es_SimpleSprite.num,
 106                       sprite->es_wordwidth,
 107                       sprite->es_flags));
 108
 109             if (sprite)
 110             {
 111                 struct SharedPointer *shared = CreateSharedPointer(sprite,
 112                                                                    GetTagData(POINTERA_XOffset, 0, tags),
 113                                                                    GetTagData(POINTERA_YOffset, 0, tags),
 114                                                                    IntuitionBase);
 115
 116                 if (shared)
 117                 {
 118                     o = (Object *)DoSuperMethodA(cl, o, (Msg)msg);
 119
 120                     if (o)
 121                     {
 122                         struct PointerData *data = INST_DATA(cl, o);
 123
 124                         data->shared_pointer = shared;
 125                         //data->xRes = xResolution;
 126                         //data->yRes = yResolution;
 127                         D(kprintf("PointerClass: set extSprite 0x%lx and XOffset %ld YOffset %ld\n",shared->sprite,shared->xoffset,shared->yoffset));
 128                     }
 129                     else
 130                     {
 131                         D(kprintf("PointerClass: free sprite\n"));
 132                         ReleaseSharedPointer(shared, IntuitionBase);
 133                     }
 134                 }
 135                 else
 136                 {
 137                     D(kprintf("PointerClass: free sprite\n"));
 138                     FreeSpriteData(sprite);
 139                 }
 140             }
 141         }
 142         else
 143         {
 144             D(kprintf("PointerClass: OM_NEW called without bitmap !\n"));
 145         }
 146     }
 147
 148     return (IPTR)o;
 149 }
 150
 151 /***********************************************************************************/
 152
 153 IPTR PointerClass__OM_GET(Class *cl, Object *o, struct opGet *msg)
 154 {
 155     struct PointerData *data = INST_DATA(cl, o);
 156
 157     D(kprintf("PointerClass: OM_GET\n"));
 158
 159     switch (msg->opg_AttrID)
 160     {
 161     case POINTERA_SharedPointer:
 162         *msg->opg_Storage = (IPTR)data->shared_pointer;
 163         break;
 164
 165     case POINTERA_XOffset:
 166         *msg->opg_Storage = data->shared_pointer->xoffset;
 167         break;
 168
 169     case POINTERA_YOffset:
 170         *msg->opg_Storage = data->shared_pointer->yoffset;
 171         break;
 172
 173     default:
 174         return DoSuperMethodA(cl, o, (Msg)msg);
 175     }
 176     D(kprintf("PointerClass: current extSprite 0x%lx and XOffset %ld YOffset %ld\n",data->shared_pointer->sprite,data->shared_pointer->xoffset,data->shared_pointer->yoffset));
 177
 178     return (IPTR)1;
 179 }
 180
 181 /***********************************************************************************/
 182
 183 IPTR PointerClass__OM_DISPOSE(Class *cl, Object *o, Msg msg)
 184 {
 185     struct PointerData *data = INST_DATA(cl, o);
 186
 187     D(kprintf("PointerClass: OM_DISPOSE\n"));
 188     D(kprintf("PointerClass: extSprite 0x%lx\n",data->shared_pointer->sprite));
 189     ReleaseSharedPointer(data->shared_pointer, IntuitionBase);
 190
 191     return DoSuperMethodA(cl, o, msg);
 192 }
 193
 194 /***********************************************************************************/