scalos/main/GadgetBarImageClass.c

   1 // GadgetBarImageClass.c
   2 // $Date$
   3 // $Revision$
   4
   5
   6 #include <exec/types.h>
   7 #include <graphics/gels.h>
   8 #include <graphics/rastport.h>
   9 #include <intuition/classes.h>
  10 #include <intuition/classusr.h>
  11 #include <intuition/gadgetclass.h>
  12 #include <intuition/newmouse.h>
  13 #include <intuition/cghooks.h>
  14 #include <utility/hooks.h>
  15 #include <libraries/gadtools.h>
  16 #include <datatypes/pictureclass.h>
  17 #include <datatypes/animationclass.h>
  18 #include <datatypes/animationclassext.h>
  19 #include <workbench/workbench.h>
  20 #include <workbench/startup.h>
  21 #include <cybergraphx/cybergraphics.h>
  22 #include <dos/dostags.h>
  23 #include <dos/datetime.h>
  24
  25 #define __USE_SYSBASE
  26
  27 #include <proto/dos.h>
  28 #include <proto/exec.h>
  29 #include <proto/layers.h>
  30 #include <proto/intuition.h>
  31 #include <proto/graphics.h>
  32 #include <proto/utility.h>
  33 #include <proto/locale.h>
  34 #include <proto/iconobject.h>
  35 #include <proto/cybergraphics.h>
  36 #include <proto/gadtools.h>
  37 #include <proto/datatypes.h>
  38 #include "debug.h"
  39 #include <proto/scalos.h>
  40
  41 #include <clib/alib_protos.h>
  42
  43 #include <defs.h>
  44 #include <datatypes/iconobject.h>
  45 #include <scalos/scalos.h>
  46 #include <scalos/GadgetBar.h>
  47
  48 #include <stdlib.h>
  49 #include <stdio.h>
  50 #include <string.h>
  51
  52 #include "scalos_structures.h"
  53 #include "functions.h"
  54 #include "Variables.h"
  55
  56 //----------------------------------------------------------------------------
  57
  58 // local data definitions
  59
  60 struct GadgetBarImageClassInst
  61         {
  62         struct internalScaWindowTask *gbicl_iwt;
  63         struct DatatypesImage *gbicl_DtImage;   // Picture DataTypes object
  64         Object *gbicl_AnimDTObject;             // Animation DataTypes object
  65         BOOL gbicl_LayoutOk;
  66         struct Window *gbicl_Window;
  67         };
  68
  69 //----------------------------------------------------------------------------
  70
  71 // local functions
  72
  73 static SAVEDS(IPTR) INTERRUPT GadgetBarImageClassDispatcher(Class *cl, Object *o, Msg msg);
  74 static IPTR GadgetBarImage_New(Class *cl, Object *o, Msg msg);
  75 static ULONG GadgetBarImage_Dispose(Class *cl, Object *o, Msg msg);
  76 static ULONG GadgetBarImage_Set(Class *cl, Object *o, Msg msg);
  77 static ULONG GadgetBarImage_Get(Class *cl, Object *o, Msg msg);
  78 static ULONG GadgetBarImage_Update(Class *cl, Object *o, Msg msg);
  79 static ULONG GadgetBarImage_Layout(Class *cl, Object *o, Msg msg);
  80 static ULONG GadgetBarImage_Render(Class *cl, Object *o, Msg msg);
  81 static ULONG GadgetBarImage_Remove(Class *cl, Object *o, Msg msg);
  82 static ULONG GadgetBarImage_HelpTest(Class *cl, Object *o, Msg msg);
  83 static BOOL GadgetBarImage_PointInGadget(Object *o, WORD x, WORD y);
  84
  85 //----------------------------------------------------------------------------
  86
  87 // public data items :
  88
  89 //----------------------------------------------------------------------------
  90
  91 struct ScalosClass *initGadgetBarImageClass(const struct PluginClass *plug)
  92 {
  93         struct ScalosClass *GadgetBarImageClass;
  94
  95         GadgetBarImageClass = SCA_MakeScalosClass(plug->plug_classname,
  96                         plug->plug_superclassname,
  97                         sizeof(struct GadgetBarImageClassInst),
  98                         NULL);
  99
 100         if (GadgetBarImageClass)
 101                 {
 102                 // initialize the cl_Dispatcher Hook
 103                 SETHOOKFUNC(GadgetBarImageClass->sccl_class->cl_Dispatcher, GadgetBarImageClassDispatcher);
 104                 }
 105
 106         return GadgetBarImageClass;
 107 }
 108
 109 //----------------------------------------------------------------------------
 110
 111 static SAVEDS(IPTR) INTERRUPT GadgetBarImageClassDispatcher(Class *cl, Object *o, Msg msg)
 112 {
 113         IPTR Result;
 114
 115         d1(kprintf("%s/%s/%ld: MethodID=%08lx\n", __FILE__, __FUNC__, __LINE__, msg->MethodID));
 116
 117         switch (msg->MethodID)
 118                 {
 119         case OM_NEW:
 120                 Result = GadgetBarImage_New(cl, o, msg);
 121                 break;
 122         case OM_DISPOSE:
 123                 Result = GadgetBarImage_Dispose(cl, o, msg);
 124                 break;
 125         case OM_SET:
 126                 Result = GadgetBarImage_Set(cl, o, msg);
 127                 break;
 128         case OM_GET:
 129                 Result = GadgetBarImage_Get(cl, o, msg);
 130                 break;
 131         case OM_UPDATE:
 132                 Result = GadgetBarImage_Update(cl, o, msg);
 133                 break;
 134         case GM_LAYOUT:
 135                 Result = GadgetBarImage_Layout(cl, o, msg);
 136                 break;
 137         case GM_RENDER:
 138                 Result = GadgetBarImage_Render(cl, o, msg);
 139                 break;
 140         case DTM_REMOVEDTOBJECT:
 141                 Result = GadgetBarImage_Remove(cl, o, msg);
 142                 break;
 143         case GM_HELPTEST:
 144                 Result = GadgetBarImage_HelpTest(cl, o, msg);
 145                 break;
 146         case GM_HITTEST:
 147                 return 0;
 148                 break;
 149
 150         default:
 151                 Result = DoSuperMethodA(cl, o, msg);
 152                 break;
 153                 }
 154
 155         return Result;
 156 }
 157
 158 //----------------------------------------------------------------------------
 159
 160 static IPTR GadgetBarImage_New(Class *cl, Object *o, Msg msg)
 161 {
 162         struct opSet *ops = (struct opSet *) msg;
 163         struct GadgetBarImageClassInst *inst;
 164         struct ExtGadget *gg;
 165
 166         o = (Object *) DoSuperMethodA(cl, o, msg);
 167         if (NULL == o)
 168                 return 0;
 169
 170         inst = INST_DATA(cl, o);
 171
 172         memset(inst, 0, sizeof(struct GadgetBarImageClassInst));
 173
 174         inst->gbicl_LayoutOk = FALSE;
 175
 176         inst->gbicl_iwt = (struct internalScaWindowTask *) GetTagData(GBIDTA_WindowTask, (IPTR)NULL, ops->ops_AttrList);
 177
 178         inst->gbicl_DtImage = CreateDatatypesImage((STRPTR) GetTagData(DTA_Name, (IPTR)NULL, ops->ops_AttrList), 0);
 179
 180         d1(KPrintF("%s/%s/%ld: gbicl_DtImage=%08lx\n", __FILE__, __FUNC__, __LINE__, inst->gbicl_DtImage));
 181
 182 #if 0
 183 // animations are not supported ATM
 184         if (NULL == inst->gbicl_DtImage)
 185                 {
 186                 inst->gbicl_AnimDTObject = NewDTObject((STRPTR) GetTagData(DTA_Name, NULL, ops->ops_AttrList),
 187                                 DTA_SourceType, DTST_FILE,
 188                                 DTA_GroupID, GID_ANIMATION,
 189                                 ADTA_Remap, TRUE,
 190                                 ADTA_Screen, iInfos.xii_iinfos.ii_Screen,
 191                                 DTA_Immediate, TRUE,
 192                                 DTA_Repeat, TRUE,
 193                                 DTA_ControlPanel, FALSE,
 194                                 ADTA_OvertakeScreen, FALSE,
 195                                 OBP_Precision, PRECISION_GUI,
 196                                 TAG_END);
 197
 198                 d1(kprintf("%s/%s/%ld: Animation DTObject=%08lx\n", __FILE__, __FUNC__, __LINE__, inst->gbicl_AnimDTObject));
 199                 }
 200 #endif
 201
 202         if (NULL == inst->gbicl_DtImage && NULL == inst->gbicl_AnimDTObject)
 203                 {
 204                 CoerceMethod(cl, o, OM_DISPOSE);
 205                 return 0;
 206                 }
 207
 208         gg = (struct ExtGadget *) o;
 209
 210         if (inst->gbicl_DtImage)
 211                 {
 212                 gg->Width = gg->BoundsWidth = inst->gbicl_DtImage->dti_BitMapHeader->bmh_Width;
 213                 gg->Height = gg->BoundsHeight = inst->gbicl_DtImage->dti_BitMapHeader->bmh_Height;
 214                 }
 215         if (inst->gbicl_AnimDTObject)
 216                 {
 217                 IPTR Width = 0, Height = 0;
 218
 219                 DoDTMethod(inst->gbicl_AnimDTObject, NULL, NULL, DTM_PROCLAYOUT, NULL, TRUE);
 220
 221                 GetDTAttrs(inst->gbicl_AnimDTObject,
 222                         ADTA_Width, (IPTR) &Width,
 223                         ADTA_Height, (IPTR) &Height,
 224                         TAG_END);
 225
 226                 gg->Width = gg->BoundsWidth = Width;
 227                 gg->Height = gg->BoundsHeight = Height;
 228                 }
 229
 230         d1(kprintf("%s/%s/%ld: Width=%ld  Height=%ld\n", __FILE__, __FUNC__, __LINE__, gg->Width, gg->Height));
 231
 232         return (IPTR) o;
 233 }
 234
 235 //----------------------------------------------------------------------------
 236
 237 static ULONG GadgetBarImage_Dispose(Class *cl, Object *o, Msg msg)
 238 {
 239         struct GadgetBarImageClassInst *inst = INST_DATA(cl, o);
 240
 241         d1(kprintf("%s/%s/%ld: \n", __FILE__, __FUNC__, __LINE__));
 242         d1(kprintf("%s/%s/%ld: Task=<%s>\n", __FILE__, __FUNC__, __LINE__, FindTask(NULL)->tc_Node.ln_Name));
 243 #if 1
 244         if (inst->gbicl_DtImage)
 245                 {
 246                 DisposeDatatypesImage(&inst->gbicl_DtImage);
 247                 inst->gbicl_DtImage = NULL;
 248                 }
 249 #endif
 250         if (inst->gbicl_AnimDTObject)
 251                 {
 252                 DisposeDTObject(inst->gbicl_AnimDTObject);
 253                 inst->gbicl_AnimDTObject = NULL;
 254                 }
 255
 256         d1(kprintf("%s/%s/%ld: \n", __FILE__, __FUNC__, __LINE__));
 257
 258         return DoSuperMethodA(cl, o, msg);
 259 }
 260
 261 //----------------------------------------------------------------------------
 262
 263 static ULONG GadgetBarImage_Set(Class *cl, Object *o, Msg msg)
 264 {
 265         struct GadgetBarImageClassInst *inst = INST_DATA(cl, o);
 266         struct opSet *ops = (struct opSet *) msg;
 267         struct ExtGadget *gg = (struct ExtGadget *) o;
 268
 269         d1(kprintf("%s/%s/%ld: \n", __FILE__, __FUNC__, __LINE__));
 270
 271         inst->gbicl_LayoutOk = FALSE;
 272
 273         if (inst->gbicl_AnimDTObject)
 274                 {
 275                 DoMethodA(inst->gbicl_AnimDTObject, msg);
 276                 }
 277
 278         d1(kprintf("%s/%s/%ld: \n", __FILE__, __FUNC__, __LINE__));
 279
 280         gg->BoundsLeftEdge = GetTagData(GA_Left, gg->BoundsLeftEdge, ops->ops_AttrList);
 281         gg->BoundsTopEdge = GetTagData(GA_Top, gg->BoundsTopEdge, ops->ops_AttrList);
 282         gg->BoundsWidth = GetTagData(GA_Width, gg->BoundsWidth, ops->ops_AttrList);
 283         gg->BoundsHeight = GetTagData(GA_Height, gg->BoundsHeight, ops->ops_AttrList);
 284
 285         return DoSuperMethodA(cl, o, msg);
 286 }
 287
 288 //----------------------------------------------------------------------------
 289
 290 static ULONG GadgetBarImage_Update(Class *cl, Object *o, Msg msg)
 291 {
 292         struct GadgetBarImageClassInst *inst = INST_DATA(cl, o);
 293
 294         d1(kprintf("%s/%s/%ld: \n", __FILE__, __FUNC__, __LINE__));
 295
 296         if (inst->gbicl_AnimDTObject)
 297                 {
 298                 DoMethodA(inst->gbicl_AnimDTObject, msg);
 299                 }
 300
 301         d1(kprintf("%s/%s/%ld: \n", __FILE__, __FUNC__, __LINE__));
 302
 303         return DoSuperMethodA(cl, o, msg);
 304 }
 305
 306 //----------------------------------------------------------------------------
 307
 308 static ULONG GadgetBarImage_Get(Class *cl, Object *o, Msg msg)
 309 {
 310         struct opGet *opg = (struct opGet *) msg;
 311         struct Gadget *gg = (struct Gadget *) o;
 312         ULONG Success = TRUE;
 313
 314         if (NULL == opg->opg_Storage)
 315                 return 0;
 316
 317         *(opg->opg_Storage) = 0;
 318
 319         switch (opg->opg_AttrID)
 320                 {
 321         case GA_Left:   // required since gadgetclass attribute is [IS] - no support for [G]
 322                 *(opg->opg_Storage) = (ULONG) gg->LeftEdge;
 323                 break;
 324         case GA_Top:    // required since gadgetclass attribute is [IS] - no support for [G]
 325                 *(opg->opg_Storage) = (ULONG) gg->TopEdge;
 326                 break;
 327         case GA_Width:  // required since gadgetclass attribute is [IS] - no support for [G]
 328                 *(opg->opg_Storage) = (ULONG) gg->Width;
 329                 break;
 330         case GA_Height: // required since gadgetclass attribute is [IS] - no support for [G]
 331                 *(opg->opg_Storage) = (ULONG) gg->Height;
 332                 break;
 333         default:
 334                 Success = DoSuperMethodA(cl, o, msg);
 335                 break;
 336                 }
 337
 338         return Success;
 339 }
 340
 341 //----------------------------------------------------------------------------
 342
 343 static ULONG GadgetBarImage_Layout(Class *cl, Object *o, Msg msg)
 344 {
 345         struct GadgetBarImageClassInst *inst = INST_DATA(cl, o);
 346         d1(struct Gadget *gg = (struct Gadget *) o);
 347         struct gpLayout *gpl = (struct gpLayout *) msg;
 348
 349         inst->gbicl_Window = gpl->gpl_GInfo->gi_Window;
 350
 351         if (inst->gbicl_AnimDTObject)
 352                 {
 353                 // SetDTAttrsA()
 354                 DoMethodA(inst->gbicl_AnimDTObject, msg);
 355
 356                 d1(kprintf("%s/%s/%ld: Left=%ld  Top=%ld\n", __FILE__, __FUNC__, __LINE__, gg->LeftEdge, gg->TopEdge));
 357                 d1(kprintf("%s/%s/%ld: Width=%ld  Height=%ld\n", __FILE__, __FUNC__, __LINE__, gg->Width, gg->Height));
 358                 }
 359
 360         return DoSuperMethodA(cl, o, msg);
 361 }
 362
 363 //----------------------------------------------------------------------------
 364
 365 static ULONG GadgetBarImage_Render(Class *cl, Object *o, Msg msg)
 366 {
 367         struct gpRender *gpr = (struct gpRender *) msg;
 368         struct GadgetBarImageClassInst *inst = INST_DATA(cl, o);
 369         struct Gadget *gg = (struct Gadget *) o;
 370
 371         d1(kprintf("%s/%s/%ld: Left=%ld  Top=%ld\n", __FILE__, __FUNC__, __LINE__, gg->LeftEdge, gg->TopEdge));
 372
 373         if (inst->gbicl_DtImage)
 374                 {
 375                 DtImageDraw(inst->gbicl_DtImage,
 376                         gpr->gpr_RPort,
 377                         gg->LeftEdge,
 378                         gg->TopEdge,
 379                         gg->Width, gg->Height
 380                         );
 381                 }
 382         if (inst->gbicl_AnimDTObject)
 383                 {
 384                 if (!inst->gbicl_LayoutOk)
 385                         {
 386                         DoDTMethod(inst->gbicl_AnimDTObject, gpr->gpr_GInfo->gi_Window, NULL,
 387                                 GM_LAYOUT,
 388                                 (IPTR) gpr->gpr_GInfo,
 389                                 FALSE);
 390                         inst->gbicl_LayoutOk = TRUE;
 391                         }
 392
 393                 d1(kprintf("%s/%s/%ld: Left=%ld  Top=%ld\n", __FILE__, __FUNC__, __LINE__, \
 394                         ((struct Gadget *) inst->gbicl_AnimDTObject)->LeftEdge, ((struct Gadget *) inst->gbicl_AnimDTObject)->TopEdge));
 395
 396                 DoDTMethodA(inst->gbicl_AnimDTObject, gpr->gpr_GInfo->gi_Window, NULL, msg);
 397
 398                 d1(kprintf("%s/%s/%ld: \n", __FILE__, __FUNC__, __LINE__));
 399                 }
 400
 401         return 1;
 402 }
 403
 404 //----------------------------------------------------------------------------
 405
 406 static ULONG GadgetBarImage_Remove(Class *cl, Object *o, Msg msg)
 407 {
 408         struct GadgetBarImageClassInst *inst = INST_DATA(cl, o);
 409
 410         d1(kprintf("%s/%s/%ld: \n", __FILE__, __FUNC__, __LINE__));
 411
 412         d1(kprintf("%s/%s/%ld: Task=<%s>\n", __FILE__, __FUNC__, __LINE__, FindTask(NULL)->tc_Node.ln_Name));
 413
 414         if (inst->gbicl_AnimDTObject)
 415                 {
 416                 DoDTMethod(inst->gbicl_AnimDTObject, inst->gbicl_Window, NULL,
 417                         ADTM_STOP, 0,
 418                         TAG_END);
 419
 420                 d1(kprintf("%s/%s/%ld: \n", __FILE__, __FUNC__, __LINE__));
 421
 422 //              DoMethodA(inst->gbicl_AnimDTObject, msg);
 423
 424                 RemoveDTObject(inst->gbicl_Window, inst->gbicl_AnimDTObject);
 425                 }
 426
 427         d1(kprintf("%s/%s/%ld: \n", __FILE__, __FUNC__, __LINE__));
 428
 429         return DoSuperMethodA(cl, o, msg);
 430 }
 431
 432 //----------------------------------------------------------------------------
 433
 434 static ULONG GadgetBarImage_HelpTest(Class *cl, Object *o, Msg msg)
 435 {
 436         struct gpHitTest *gpht = (struct gpHitTest *) msg;
 437
 438         d1(KPrintF("%s/%s/%ld: Object=%08lx  x=%ld  y=%ld\n", \
 439                 __FILE__, __FUNC__, __LINE__, o, gpht->gpht_Mouse.X, gpht->gpht_Mouse.Y));
 440
 441         if (GadgetBarImage_PointInGadget(o, gpht->gpht_Mouse.X, gpht->gpht_Mouse.Y))
 442                 {
 443                 d1(KPrintF("%s/%s/%ld: Result=GMR_HELPHIT\n", __FILE__, __FUNC__, __LINE__));
 444                 return GMR_HELPHIT;
 445                 }
 446
 447         d1(KPrintF("%s/%s/%ld: Result=GMR_NOHELPHIT\n", __FILE__, __FUNC__, __LINE__));
 448
 449         return GMR_NOHELPHIT;
 450 }
 451
 452 //----------------------------------------------------------------------------
 453
 454 static BOOL GadgetBarImage_PointInGadget(Object *o, WORD x, WORD y)
 455 {
 456         IPTR Width, Height;
 457
 458         GetAttr(GA_Width, o, &Width);
 459         GetAttr(GA_Height, o, &Height);
 460
 461         d1(KPrintF("%s/%s/%ld: Width=%ld  Height=%ld\n", \
 462                 __FILE__, __FUNC__, __LINE__, Width, Height));
 463
 464         if (x < 0 || x >= Width)
 465                 return FALSE;
 466         if (y < 0 || y >= Height)
 467                 return FALSE;
 468
 469         return TRUE;
 470 }
 471
 472 //----------------------------------------------------------------------------
 473