workbench/c/Decoration/menudecorclass.c

   1 /*
   2     Copyright  2011-2012, The AROS Development Team.
   3     $Id$
   4 */
   5
   6 #include <clib/alib_protos.h>
   7
   8 #include <intuition/intuition.h>
   9 #include <intuition/extensions.h>
  10 #include <intuition/imageclass.h>
  11 #include <proto/intuition.h>
  12 #include <proto/graphics.h>
  13 #include <proto/utility.h>
  14 #include <proto/exec.h>
  15
  16 #include "menudecorclass.h"
  17 #include "screendecorclass.h"
  18 #include "drawfuncs.h"
  19 #include "config.h"
  20
  21
  22 #define SETIMAGE_MEN(id) md->img_##id=sd->di->img_##id
  23
  24 struct menudecor_data
  25 {
  26     struct DecorConfig * dc;
  27
  28     /* Pointers to images used for sys images */
  29     struct NewImage *img_amigakey;
  30     struct NewImage *img_menucheck;
  31     struct NewImage *img_submenu;
  32 };
  33
  34 static IPTR menudecor_getdefsizes(Class *cl, Object *obj, struct mdpGetDefSizeSysImage *msg)
  35 {
  36     struct menudecor_data *data = INST_DATA(cl, obj);
  37
  38     struct NewImage *n = NULL;
  39     BOOL  isset = FALSE;
  40
  41     switch(msg->mdp_Which)
  42     {
  43         case AMIGAKEY:
  44             n = data->img_amigakey;
  45             if(n) isset = TRUE;
  46             break;
  47
  48         case MENUCHECK:
  49             n = data->img_menucheck;
  50             if(n) isset = TRUE;
  51             break;
  52
  53         case SUBMENUIMAGE:
  54             n = data->img_submenu;
  55             if(n) isset = TRUE;
  56             break;
  57
  58         default:
  59             return FALSE;
  60     }
  61
  62     if (!isset) return DoSuperMethodA(cl, obj, (Msg) msg);
  63
  64     *msg->mdp_Width = n->w;
  65     *msg->mdp_Height = n->h;
  66     return TRUE;
  67 }
  68
  69 static IPTR menudecor_getmenuspaces(Class *cl, Object *obj, struct mdpGetMenuSpaces *msg)
  70 {
  71     struct menudecor_data *data = INST_DATA(cl, obj);
  72
  73     msg->mdp_InnerLeft =  data->dc->MenuInnerLeft;
  74     msg->mdp_InnerTop =  data->dc->MenuInnerTop;
  75     msg->mdp_InnerRight =  data->dc->MenuInnerRight;
  76     msg->mdp_InnerBottom =  data->dc->MenuInnerBottom;
  77     msg->mdp_ItemInnerLeft = 1;
  78     msg->mdp_ItemInnerTop = 2;
  79     msg->mdp_ItemInnerRight = 2;
  80     msg->mdp_ItemInnerBottom = 1;
  81     if ((data->dc->MenuTileLeft + data->dc->MenuTileRight) > (data->dc->MenuInnerLeft + data->dc->MenuInnerRight))
  82         msg->mdp_MinWidth = data->dc->MenuTileLeft + data->dc->MenuTileRight;
  83     else
  84         msg->mdp_MinWidth = data->dc->MenuInnerLeft + data->dc->MenuInnerRight;
  85
  86     if ((data->dc->MenuTileTop + data->dc->MenuTileBottom) > (data->dc->MenuInnerTop + data->dc->MenuInnerBottom))
  87         msg->mdp_MinHeight = data->dc->MenuTileTop + data->dc->MenuTileBottom;
  88     else
  89         msg->mdp_MinHeight = data->dc->MenuInnerTop + data->dc->MenuInnerBottom;
  90
  91     return TRUE;
  92 }
  93
  94 static IPTR menudecor_draw_sysimage(Class *cl, Object *obj, struct mdpDrawSysImage *msg)
  95 {
  96     struct ScreenData      *md = (struct ScreenData *) msg->mdp_UserBuffer;
  97     struct RastPort        *rp = msg->mdp_RPort;
  98     struct NewImage        *ni = NULL;
  99     LONG                    left = msg->mdp_X;
 100     LONG                    top = msg->mdp_Y;
 101     WORD                    addx = 0;
 102     WORD                    addy = 0;
 103     BOOL                    isset = FALSE;
 104
 105     switch(msg->mdp_Which)
 106     {
 107         case AMIGAKEY:
 108             if (md && md->img_amigakey->ok)
 109             {
 110                 ni = md->img_amigakey;
 111                 isset = TRUE;
 112             }
 113             break;
 114
 115         case MENUCHECK:
 116             if (md && md->img_menucheck->ok)
 117             {
 118                 ni = md->img_menucheck;
 119                 isset = TRUE;
 120             }
 121             break;
 122
 123         case SUBMENUIMAGE:
 124             if (md && md->img_submenu->ok)
 125             {
 126                 ni = md->img_submenu;
 127                 isset = TRUE;
 128             }
 129             break;
 130
 131         default:
 132             return DoSuperMethodA(cl, obj, (Msg)msg);
 133     }
 134
 135     if (!isset || (ni == NULL)) return DoSuperMethodA(cl, obj, (Msg)msg);
 136
 137     DrawStatefulGadgetImageToRP(rp, ni, IDS_NORMAL, left + addx, top + addy);
 138
 139     return TRUE;
 140 }
 141
 142 /**************************************************************************************************/
 143
 144 static IPTR menudecor_renderbackground(Class *cl, Object *obj, struct mdpDrawBackground *msg)
 145 {
 146     struct menudecor_data *data = INST_DATA(cl, obj);
 147     struct RastPort    *rp = msg->mdp_RPort;
 148     struct NewImage    *ni;
 149     struct MenuData    *md = (struct MenuData *) msg->mdp_UserBuffer;
 150     UWORD               flags = msg->mdp_Flags;
 151
 152     if ((flags & HIGHITEM) && md->ni)
 153     {
 154         ni = NewImageContainer(msg->mdp_ItemWidth, msg->mdp_ItemHeight);
 155         if (ni)
 156         {
 157             DrawPartToImage(md->ni, ni, msg->mdp_ItemLeft, msg->mdp_ItemTop, msg->mdp_ItemWidth, msg->mdp_ItemHeight, 0, 0);
 158             SetImageTint(ni, 255 - (data->dc->MenuHighlightTint >> 24), data->dc->MenuHighlightTint & 0xffffff);
 159             PutImageToRP(rp, ni, msg->mdp_ItemLeft, msg->mdp_ItemTop);
 160         }
 161     }
 162     else
 163     {
 164         if (md->ni) DrawPartImageToRP(rp, md->ni, msg->mdp_ItemLeft, msg->mdp_ItemTop, msg->mdp_ItemLeft, msg->mdp_ItemTop, msg->mdp_ItemWidth, msg->mdp_ItemHeight);
 165     }
 166
 167     return TRUE;
 168 }
 169
 170 static IPTR menudecor_initmenu(Class *cl, Object *obj, struct mdpInitMenu *msg)
 171 {
 172     struct menudecor_data  *data = INST_DATA(cl, obj);
 173     struct RastPort        *rp = msg->mdp_RPort;
 174     struct MenuData        *md = (struct MenuData *) msg->mdp_UserBuffer;
 175     struct ScreenData      *sd = (struct ScreenData *) msg->mdp_ScreenUserBuffer;
 176
 177     SETIMAGE_MEN(menu);
 178     SETIMAGE_MEN(amigakey);
 179     SETIMAGE_MEN(menucheck);
 180     SETIMAGE_MEN(submenu);
 181
 182     if (data->dc->MenuIsTiled)
 183     {
 184         md->img_menu_ti = AllocVec(sizeof(struct TileInfo), MEMF_ANY | MEMF_CLEAR);
 185         md->img_menu_ti->TileLeft   = data->dc->MenuTileLeft;
 186         md->img_menu_ti->TileRight  = data->dc->MenuTileRight;
 187         md->img_menu_ti->TileBottom = data->dc->MenuTileBottom;
 188         md->img_menu_ti->TileTop    = data->dc->MenuTileTop;
 189     }
 190
 191     if ((msg->mdp_MenuDecorFlags & MDP_MDF_MENU) && !(msg->mdp_MenuDecorFlags & MDP_MDF_MENUS_UNDERMOUSE))
 192     {
 193         /* Special handling for pulled down menu bar */
 194         LONG height = msg->mdp_Height;
 195
 196         /* Increase height for rendering if needed */
 197         if ((data->dc->MenuIsTiled) && (height < (md->img_menu_ti->TileBottom + md->img_menu_ti->TileTop)))
 198             height = (md->img_menu_ti->TileBottom + md->img_menu_ti->TileTop);
 199
 200         md->ni = NewImageContainer(msg->mdp_Width, height);
 201         if (md->ni)
 202         {
 203             md->ni->ok = TRUE;
 204             RenderMenuBarBackground(md->ni, md->img_menu, md->img_menu_ti, 20);
 205
 206             /* Scale down if needed */
 207             if (height > msg->mdp_Height)
 208             {
 209                 struct NewImage * sni = ScaleNewImage(md->ni, msg->mdp_Width, msg->mdp_Height);
 210                 if (sni)
 211                 {
 212                     DisposeImageContainer(md->ni);
 213                     md->ni = sni;
 214                     md->ni->ok = TRUE;
 215                 }
 216             }
 217         }
 218     }
 219     else
 220     {
 221         md->ni = GetImageFromRP(rp, msg->mdp_Left, msg->mdp_Top, msg->mdp_Width, msg->mdp_Height);
 222         if (md->ni)
 223         {
 224             md->ni->ok = TRUE;
 225             RenderMenuBackground(md->ni, md->img_menu, md->img_menu_ti, 20);
 226         }
 227     }
 228
 229
 230     return TRUE;
 231 }
 232
 233 static IPTR menudecor_exitmenu(Class *cl, Object *obj, struct mdpExitMenu *msg)
 234 {
 235     struct MenuData     *md = (struct MenuData *) msg->mdp_UserBuffer;
 236
 237     if (md->ni) DisposeImageContainer(md->ni);
 238     if (md->map) FreeBitMap(md->map);
 239     if (md->img_menu_ti) FreeVec(md->img_menu_ti);
 240
 241     return TRUE;
 242 }
 243
 244 static void DisposeMenuSkinning(struct menudecor_data *data)
 245 {
 246 }
 247
 248 static BOOL InitMenuSkinning(struct menudecor_data *data, struct DecorImages * di, struct DecorConfig * dc)
 249 {
 250     if ((!dc) || (!di))
 251         return FALSE;
 252
 253     data->dc = dc;
 254
 255     /* Set pointers to gadget images, used only to get gadget sizes as they
 256        are requested prior to creation of menu object */
 257     data->img_amigakey  = di->img_amigakey;
 258     data->img_menucheck = di->img_menucheck;
 259     data->img_submenu   = di->img_submenu;
 260
 261     return TRUE;
 262 }
 263
 264 static IPTR menudecor__OM_NEW(Class *cl, Object *obj, struct opSet *msg)
 265 {
 266     struct menudecor_data *data;
 267
 268     obj = (Object *)DoSuperMethodA(cl, obj, (Msg)msg);
 269     if (obj)
 270     {
 271         data = INST_DATA(cl, obj);
 272
 273         struct DecorImages * di = (struct DecorImages *) GetTagData(MDA_DecorImages, (IPTR) NULL, msg->ops_AttrList);
 274         struct DecorConfig * dc = (struct DecorConfig *) GetTagData(MDA_DecorConfig, (IPTR) NULL, msg->ops_AttrList);
 275
 276         if (!InitMenuSkinning(data, di, dc))
 277         {
 278             CoerceMethod(cl, obj ,OM_DISPOSE);
 279             obj = NULL;
 280         }
 281     }
 282     return (IPTR)obj;
 283 }
 284
 285
 286 static IPTR menudecor__OM_DISPOSE(Class *cl, Object *obj, struct opSet *msg)
 287 {
 288     struct menudecor_data *data = INST_DATA(cl, obj);
 289
 290     DisposeMenuSkinning(data);
 291
 292     return DoSuperMethodA(cl, obj, (Msg)msg);
 293 }
 294
 295 static IPTR menudecor_dispatcher(struct IClass *cl, Object *obj, Msg msg)
 296 {
 297     IPTR retval;
 298
 299     switch(msg->MethodID)
 300     {
 301         case OM_NEW:
 302             retval = menudecor__OM_NEW(cl, obj, (struct opSet *) msg);
 303             break;
 304
 305         case OM_DISPOSE:
 306             retval = menudecor__OM_DISPOSE(cl, obj, (struct opSet *) msg);
 307             break;
 308
 309         case MDM_DRAW_SYSIMAGE:
 310             retval = menudecor_draw_sysimage(cl, obj, (struct mdpDrawSysImage *)msg);
 311             break;
 312
 313         case MDM_GETDEFSIZE_SYSIMAGE:
 314             retval = menudecor_getdefsizes(cl, obj, (struct mdpGetDefSizeSysImage *) msg);
 315             break;
 316
 317         case MDM_DRAWBACKGROUND:
 318             retval = menudecor_renderbackground(cl, obj, (struct mdpDrawBackground *)msg);
 319             break;
 320
 321         case MDM_INITMENU:
 322             retval = menudecor_initmenu(cl, obj, (struct mdpInitMenu *)msg);
 323             break;
 324
 325         case MDM_EXITMENU:
 326             retval = menudecor_exitmenu(cl, obj, (struct mdpExitMenu *)msg);
 327             break;
 328
 329         case MDM_GETMENUSPACES:
 330             retval = menudecor_getmenuspaces(cl, obj, (struct mdpGetMenuSpaces *)msg);
 331             break;
 332
 333         default:
 334             retval = DoSuperMethodA(cl, obj, msg);
 335             break;
 336     }
 337
 338     return retval;
 339 }
 340
 341 struct IClass * MakeMenuDecorClass()
 342 {
 343     struct IClass * cl = MakeClass(NULL, MENUDECORCLASS, NULL, sizeof(struct menudecor_data), 0);
 344     if (cl)
 345     {
 346         cl->cl_Dispatcher.h_Entry    = HookEntry;
 347         cl->cl_Dispatcher.h_SubEntry = (HOOKFUNC)menudecor_dispatcher;
 348     }
 349
 350     return cl;
 351 }