rom/intuition/barlabelclass.c

   1 /*
   2     Copyright © 1995-2011, The AROS Development Team. All rights reserved.
   3     Copyright © 2001-2003, The MorphOS Development Team. All Rights Reserved.
   4     $Id$
   5
   6     AROS menubarlabelclass implementation (does not exist in AmigaOS)
   7 */
   8
   9 #include <exec/types.h>
  10
  11 #include <dos/dos.h>
  12 #include <dos/dosextens.h>
  13
  14 #include <intuition/intuition.h>
  15 #include <intuition/intuitionbase.h>
  16 #include <intuition/classes.h>
  17 #include <intuition/classusr.h>
  18 #include <intuition/imageclass.h>
  19
  20 #include <graphics/gfxbase.h>
  21 #include <graphics/gfxmacros.h>
  22 #include <graphics/rpattr.h>
  23
  24 #include <cybergraphx/cybergraphics.h>
  25
  26 #include <utility/tagitem.h>
  27 #include <utility/hooks.h>
  28
  29 #include <clib/macros.h>
  30
  31 #include <proto/exec.h>
  32 #include <proto/intuition.h>
  33 #include <proto/graphics.h>
  34 #include <proto/utility.h>
  35 #include <proto/cybergraphics.h>
  36
  37 #ifndef __MORPHOS__
  38 #include <aros/asmcall.h>
  39 #include <proto/alib.h>
  40 #include "intuition_intern.h"
  41 #endif /* !__MORPHOS__ */
  42
  43 #ifdef SKINS
  44 #   include "intuition_customize.h"
  45 #   include "intuition_extend.h"
  46 #endif
  47
  48 /*************************** BarLabelClass *****************************/
  49
  50 IPTR MenuBarLabelClass__OM_NEW(Class *cl, Object *obj, Msg msg)
  51 {
  52     struct Image *im = (struct Image *)DoSuperMethodA(cl, obj, msg);
  53
  54     if (im)
  55     {
  56         struct MenuBarLabelData *data = INST_DATA(cl, im);
  57         data->dri = NULL;
  58     }
  59
  60     return (IPTR)im;
  61 }
  62
  63 /****************************************************************************/
  64
  65 IPTR MenuBarLabelClass__OM_SET(Class *cl, struct Image *im, struct opSet *msg)
  66 {
  67     struct IntuitionBase *IntuitionBase = (struct IntuitionBase *)cl->cl_UserData;
  68     struct Library *UtilityBase = GetPrivIBase(IntuitionBase)->UtilityBase;
  69     struct TagItem *ti;
  70
  71     if ((ti = FindTagItem(SYSIA_DrawInfo, msg->ops_AttrList)))
  72     {
  73         struct MenuBarLabelData *data = INST_DATA(cl, im);
  74
  75         data->dri = (struct DrawInfo *)ti->ti_Data;
  76     }
  77
  78     return DoSuperMethodA(cl, (Object *)im, (Msg)msg);
  79 }
  80
  81 /****************************************************************************/
  82
  83 IPTR MenuBarLabelClass__OM_GET(Class *cl, struct Image *im, struct opGet *msg)
  84 {
  85     struct IntuitionBase *IntuitionBase = (struct IntuitionBase *)cl->cl_UserData;
  86     switch(msg->opg_AttrID)
  87     {
  88     case IA_SupportsDisable:
  89         if (MENUS_AMIGALOOK(IntuitionBase))
  90         {
  91             *(msg->opg_Storage) = 0;
  92         }
  93         else
  94         {
  95             *(msg->opg_Storage) = 1;
  96         }
  97         return (IPTR)1;
  98
  99     default:
 100         return DoSuperMethodA(cl, (Object *)im, (Msg)msg);
 101     }
 102 }
 103
 104 /****************************************************************************/
 105
 106 IPTR MenuBarLabelClass__IM_DRAW(Class *cl, struct Image *im, struct impDraw *msg)
 107 {
 108     struct IntuitionBase *IntuitionBase = (struct IntuitionBase *)cl->cl_UserData;
 109     struct GfxBase *GfxBase = GetPrivIBase(IntuitionBase)->GfxBase;
 110     struct MenuBarLabelData *data = INST_DATA(cl, im);
 111
 112     if (data->dri)
 113     {
 114         struct RastPort *rp = msg->imp_RPort;
 115         WORD x1, y1, x2, y2;
 116
 117         if (!rp) return (IPTR)0;
 118
 119         SetDrMd(rp, JAM1);
 120
 121         x1 = im->LeftEdge + msg->imp_Offset.X;
 122         y1 = im->TopEdge  + msg->imp_Offset.Y;
 123         x2 = x1 + im->Width  - 1;
 124         y2 = y1 + im->Height - 1;
 125
 126
 127         if (MENUS_AMIGALOOK(IntuitionBase))
 128         {
 129             SetAPen(rp, data->dri->dri_Pens[BARDETAILPEN]);
 130             RectFill(rp, x1, y1, x2, y2);
 131         }
 132         else
 133         {
 134             /* Will only work if imageheight = 2 */
 135             SetAPen(rp, data->dri->dri_Pens[SHADOWPEN]);
 136             RectFill(rp, x1, y1, x2 - 1, y1);
 137             WritePixel(rp, x1, y2);
 138
 139             SetAPen(rp, data->dri->dri_Pens[SHINEPEN]);
 140             RectFill(rp, x1 + 1, y2, x2, y2);
 141             WritePixel(rp, x2, y1);
 142         }
 143
 144     } /* if (data->dri) */
 145
 146     return (IPTR)0;
 147 }
 148
 149 /****************************************************************************/