rom/intuition/menudecorclass.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
   7
   8 #include <dos/dos.h>
   9 #include <dos/dosextens.h>
  10
  11 #include <intuition/intuition.h>
  12 #include <intuition/intuitionbase.h>
  13 #include <intuition/classes.h>
  14 #include <intuition/classusr.h>
  15 #include <intuition/menudecorclass.h>
  16 #include <intuition/cghooks.h>
  17 #include <intuition/icclass.h>
  18 #include <intuition/extensions.h>
  19
  20 #include <graphics/gfxbase.h>
  21 #include <graphics/gfxmacros.h>
  22
  23 #include <utility/tagitem.h>
  24 #include <utility/hooks.h>
  25
  26 #include <clib/macros.h>
  27
  28 #include <string.h>
  29
  30 #include <proto/exec.h>
  31 #include <proto/intuition.h>
  32 #include <proto/graphics.h>
  33 #include <proto/utility.h>
  34
  35 #include <proto/alib.h>
  36
  37 #include "intuition_intern.h"
  38 #include "gadgets.h"
  39
  40
  41 /**************************************************************************************************/
  42
  43 #ifdef __AROS__
  44 #define USE_AROS_DEFSIZE 1
  45 #else
  46 #define USE_AROS_DEFSIZE 0
  47 #endif
  48
  49 #define DEFSIZE_WIDTH  14
  50 #define DEFSIZE_HEIGHT 14
  51
  52 #define HSPACING 3
  53 #define VSPACING 3
  54 #define REFHEIGHT (msg->mdp_ReferenceFont->tf_YSize)
  55 #define REFWIDTH  REFHEIGHT
  56
  57 /* Ralph Schmidt
  58  * heuristics for smaller arrows used in apps
  59  * like filer
  60  */
  61 #define HSPACING_MIDDLE 2
  62 #define VSPACING_MIDDLE 2
  63 #define HSPACING_SMALL 1
  64 #define VSPACING_SMALL 1
  65
  66 #define DRI(dri) ((struct DrawInfo *)(dri))
  67
  68 /**************************************************************************************************/
  69
  70 #undef DEBUG
  71 #define DEBUG 0
  72 #include <aros/debug.h>
  73 /**************************************************************************************************/
  74
  75 void menu_draw_thick_line(Class *cl, struct RastPort *rport,
  76                      LONG x1, LONG y1, LONG x2, LONG y2,
  77                      UWORD thickness)
  78 {
  79     struct IntuitionBase *IntuitionBase = (struct IntuitionBase *)cl->cl_UserData;
  80     struct GfxBase *GfxBase = GetPrivIBase(IntuitionBase)->GfxBase;
  81
  82     Move(rport, x1, y1);
  83     Draw(rport, x2, y2);
  84     /* Georg Steger */
  85     Move(rport, x1 + 1, y1);
  86     Draw(rport, x2 + 1, y2);
  87 }
  88
  89 IPTR MenuDecorClass__OM_NEW(Class *cl, Object *obj, struct opSet *msg)
  90 {
  91     struct IntuitionBase *IntuitionBase = (struct IntuitionBase *)cl->cl_UserData;
  92     struct Library *UtilityBase = GetPrivIBase(IntuitionBase)->UtilityBase;
  93     struct scrdecor_data *data;
  94
  95     obj = (Object *)DoSuperMethodA(cl, obj, (Msg)msg);
  96     if (obj)
  97     {
  98         data = INST_DATA(cl, obj);
  99
 100         data->userbuffersize = (ULONG) GetTagData(MDA_UserBuffer, 0, msg->ops_AttrList);
 101
 102     }
 103
 104     return (IPTR)obj;
 105 }
 106
 107 /**************************************************************************************************/
 108
 109 IPTR MenuDecorClass__OM_GET(Class *cl, Object *obj, struct opGet *msg)
 110 {
 111     struct scrdecor_data *data = INST_DATA(cl, obj);
 112
 113     switch(msg->opg_AttrID)
 114     {
 115         case MDA_UserBuffer:
 116             *msg->opg_Storage = (IPTR) data->userbuffersize;
 117             break;
 118
 119         case MDA_TrueColorOnly:
 120             *msg->opg_Storage = FALSE;
 121             break;
 122
 123         default:
 124             return DoSuperMethodA(cl, obj, (Msg)msg);
 125     }
 126
 127     return 1;
 128 }
 129
 130
 131 /**************************************************************************************************/
 132
 133 IPTR MenuDecorClass__MDM_GETDEFSIZE_SYSIMAGE(Class *cl, Object *obj, struct mdpGetDefSizeSysImage *msg)
 134 {
 135     struct IntuitionBase *IntuitionBase = (struct IntuitionBase *)cl->cl_UserData;
 136     struct GfxBase *GfxBase = GetPrivIBase(IntuitionBase)->GfxBase;
 137
 138     switch(msg->mdp_Which)
 139     {
 140         case SUBMENUIMAGE:
 141             *msg->mdp_Width = 0;
 142             *msg->mdp_Height = 0;
 143             struct  RastPort *rp = CreateRastPort();
 144             if (rp)
 145             {
 146                 struct  TextExtent TextExt;
 147                 SetFont(rp, msg->mdp_ReferenceFont);
 148                 TextExtent(rp, "\xBB", 1, &TextExt);
 149                 *msg->mdp_Width = TextExt.te_Width;
 150                 *msg->mdp_Height = TextExt.te_Height;
 151                 FreeRastPort(rp);
 152             }
 153                break;
 154
 155         case MENUCHECK:
 156             *msg->mdp_Width = REFWIDTH / 2 + 4; // reffont->tf_XSize * 3 / 2;
 157             *msg->mdp_Height= REFHEIGHT;
 158             break;
 159
 160         default:
 161                *msg->mdp_Width = DEFSIZE_WIDTH;
 162                *msg->mdp_Height = DEFSIZE_HEIGHT;
 163                break;
 164     }
 165
 166     return TRUE;
 167 }
 168
 169 IPTR MenuDecorClass__MDM_DRAW_SYSIMAGE(Class *cl, Object *obj, struct mdpDrawSysImage *msg)
 170 {
 171     struct IntuitionBase *IntuitionBase = (struct IntuitionBase *)cl->cl_UserData;
 172     struct GfxBase       *GfxBase = GetPrivIBase(IntuitionBase)->GfxBase;
 173     struct RastPort      *rport = msg->mdp_RPort;
 174     UWORD                *pens = DRI(msg->mdp_Dri)->dri_Pens;
 175     LONG                  left = msg->mdp_X;
 176     LONG                  top = msg->mdp_Y;
 177     LONG                  width = msg->mdp_Width;
 178     LONG                  height = msg->mdp_Height;
 179     LONG                  right = left + width - 1;
 180     LONG                  bottom = top + height - 1;
 181
 182     SetDrMd(rport, JAM1);
 183
 184     switch(msg->mdp_Which)
 185     {
 186         case SUBMENUIMAGE:
 187         {
 188             if (MENUS_AMIGALOOK(IntuitionBase))
 189             {
 190                 SetAPen(rport, pens[BARBLOCKPEN]);
 191             }
 192             else
 193             {
 194                 SetAPen(rport, pens[(msg->mdp_State == IDS_SELECTED) ? FILLPEN : BACKGROUNDPEN]);
 195             }
 196             RectFill(rport, left, top, right, bottom);
 197             SetAPen(rport, pens[BARDETAILPEN]);
 198             SetDrMd(rport, JAM1);
 199             WORD x = left;
 200
 201             Move(rport, x, top + rport->Font->tf_Baseline);
 202             Text(rport, "\xBB", 1);
 203             break;
 204         }
 205
 206         case MENUCHECK:
 207         {
 208             if (MENUS_AMIGALOOK(IntuitionBase))
 209             {
 210                 SetAPen(rport, pens[BARBLOCKPEN]);
 211             }
 212             else
 213             {
 214                 SetAPen(rport, pens[(msg->mdp_State == IDS_SELECTED) ? FILLPEN : BACKGROUNDPEN]);
 215             }
 216
 217             RectFill(rport, left, top, right, bottom);
 218
 219             SetAPen(rport, pens[BARDETAILPEN]);
 220             menu_draw_thick_line(cl, rport, left + 1, top + height / 3 , left + 1, bottom, 0);
 221             menu_draw_thick_line(cl, rport, left + 2, bottom, right - 2, top, 0);
 222
 223             break;
 224         }
 225
 226         case AMIGAKEY:
 227         {
 228             struct TextFont *oldfont;
 229             UBYTE            oldstyle;
 230
 231             if (MENUS_AMIGALOOK(IntuitionBase))
 232             {
 233                 SetAPen(rport, pens[BARDETAILPEN]);
 234             }
 235             else
 236             {
 237                 SetAPen(rport, pens[SHINEPEN]);
 238             }
 239
 240             RectFill(rport, left, top, right, bottom);
 241
 242             if (MENUS_AMIGALOOK(IntuitionBase))
 243             {
 244                 SetAPen(rport, pens[BARBLOCKPEN]);
 245
 246                 oldfont = rport->Font;
 247                 oldstyle = rport->AlgoStyle;
 248
 249                 SetFont(rport, GfxBase->DefaultFont);
 250                 SetSoftStyle(rport, FSF_ITALIC, AskSoftStyle(rport));
 251
 252                 Move(rport, left + (width - rport->TxWidth) / 2,
 253                      top  + (height - rport->TxHeight) / 2 + rport->TxBaseline);
 254                 Text(rport, "A", 1);
 255
 256                 SetSoftStyle(rport, oldstyle, AskSoftStyle(rport));
 257                 SetFont(rport, oldfont);
 258
 259                 SetAPen(rport, pens[BARBLOCKPEN]);
 260             }
 261             else
 262             {
 263                 SetAPen(rport, pens[SHADOWPEN]);
 264
 265                 RectFill(rport, left + 1, top, right - 1, top);
 266                 RectFill(rport, right, top + 1, right, bottom - 1);
 267                 RectFill(rport, left + 1, bottom, right - 1, bottom);
 268                 RectFill(rport, left, top + 1, left, bottom - 1);
 269
 270                 SetAPen(rport, pens[BACKGROUNDPEN]);
 271                 RectFill(rport, left + 1, bottom - 1, right - 1, bottom - 1);
 272                 RectFill(rport, right - 1, top + 1, right - 1, bottom - 2);
 273
 274                 RectFill(rport, left + 2, top + 2, left + 4, top + 2);
 275                 RectFill(rport, left + 2, top + 3, left + 2, top + 4);
 276
 277                 SetAPen(rport, pens[SHADOWPEN]);
 278                 RectFill(rport, left + 2, bottom - 2, right - 2, bottom - 2);
 279                 RectFill(rport, right - 2, top + 2, right - 2, bottom - 4);
 280
 281                 {
 282                     WORD a_size   = height - 7;
 283                     WORD a_left   = left + 5;
 284                     WORD a_top    = top + 2;
 285                     WORD a_right  = a_left + a_size;
 286                     WORD a_bottom = a_top + a_size;
 287
 288                     Move(rport, a_left, a_bottom);
 289                     Draw(rport, a_right, a_top);
 290                     Draw(rport, a_right, a_bottom);
 291                     Move(rport, a_right - 1, a_top + 1);
 292                     Draw(rport, a_right - 1, a_bottom);
 293                 }
 294
 295                 SetAPen(rport, pens[(msg->mdp_State == IDS_SELECTED) ? FILLPEN : BACKGROUNDPEN]);
 296             }
 297
 298             WritePixel(rport, left, top);
 299             WritePixel(rport, right, top);
 300             WritePixel(rport, right, bottom);
 301             WritePixel(rport, left, bottom);
 302         }
 303     }
 304     return TRUE;
 305 }
 306
 307 IPTR MenuDecorClass__MDM_GETMENUSPACES(Class *cl, Object *obj, struct mdpGetMenuSpaces *msg)
 308 {
 309     return FALSE;
 310 }
 311
 312 /**************************************************************************************************/
 313
 314 IPTR MenuDecorClass__MDM_DRAWBACKGROUND(Class *cl, Object *obj, struct mdpDrawBackground *msg)
 315 {
 316     return FALSE;
 317 }
 318
 319 IPTR MenuDecorClass__MDM_INITMENU(Class *cl, Object *obj, struct mdpInitMenu *msg)
 320 {
 321     return FALSE;
 322 }
 323
 324 IPTR MenuDecorClass__MDM_EXITMENU(Class *cl, Object *obj, struct mdpExitMenu *msg)
 325 {
 326     return FALSE;
 327 }
 328
 329 /**************************************************************************************************/