bgui/frameclass.c

   1 /*
   2  * @(#) $Header$
   3  *
   4  * BGUI library
   5  * frameclass.c
   6  *
   7  * (C) Copyright 1998 Manuel Lemos.
   8  * (C) Copyright 1996-1997 Ian J. Einman.
   9  * (C) Copyright 1993-1996 Jaba Development.
  10  * (C) Copyright 1993-1996 Jan van den Baard.
  11  * All Rights Reserved.
  12  *
  13  * $Log$
  14  * Revision 42.4  2004/06/16 20:16:48  verhaegs
  15  * Use METHODPROTO, METHOD_END and REGFUNCPROTOn where needed.
  16  *
  17  * Revision 42.3  2000/08/17 15:09:18  chodorowski
  18  * Fixed compiler warnings.
  19  *
  20  * Revision 42.2  2000/05/15 19:27:01  stegerg
  21  * another hundreds of REG() macro replacements in func headers/protos.
  22  *
  23  * Revision 42.1  2000/05/14 23:32:47  stegerg
  24  * changed over 200 function headers which all use register
  25  * parameters (oh boy ...), because the simple REG() macro
  26  * doesn't work with AROS. And there are still hundreds
  27  * of headers left to be fixed :(
  28  *
  29  * Many of these functions would also work with stack
  30  * params, but since i have fixed every single one
  31  * I encountered up to now, I guess will have to do
  32  * the same for the rest.
  33  *
  34  * Revision 42.0  2000/05/09 22:09:01  mlemos
  35  * Bumped to revision 42.0 before handing BGUI to AROS team
  36  *
  37  * Revision 41.11  2000/05/09 19:54:17  mlemos
  38  * Merged with the branch Manuel_Lemos_fixes.
  39  *
  40  * Revision 41.10.2.7  1999/07/04 05:24:40  mlemos
  41  * Fixed attempts to render areas witrh invalid dimensions.
  42  *
  43  * Revision 41.10.2.6  1999/07/03 15:17:37  mlemos
  44  * Replaced the calls to CallHookPkt to BGUI_CallHookPkt.
  45  *
  46  * Revision 41.10.2.5  1999/07/03 15:12:26  mlemos
  47  * Ensured that frame is only drawn if dimensions are bigger than 0.
  48  * Removed debug code to warn when dimensions are too small.
  49  *
  50  * Revision 41.10.2.4  1999/07/03 14:29:56  mlemos
  51  * Added assertion code to warn frame dimensions are too small.
  52  *
  53  * Revision 41.10.2.3  1999/07/03 14:13:08  mlemos
  54  * Fixed off by one mistake on the computation of the minimum frame size
  55  *
  56  * Revision 41.10.2.2  1998/12/07 03:06:59  mlemos
  57  * Replaced OpenFont and CloseFont calls by the respective BGUI debug macros.
  58  *
  59  * Revision 41.10.2.1  1998/02/28 02:22:54  mlemos
  60  * Made setting the frame title to NULL to reset text title object.
  61  *
  62  * Revision 41.10  1998/02/25 21:12:05  mlemos
  63  * Bumping to 41.10
  64  *
  65  * Revision 1.1  1998/02/25 17:08:20  mlemos
  66  * Ian sources
  67  *
  68  *
  69  */
  70
  71 /// Class definitions.
  72
  73 #include "include/classdefs.h"
  74
  75 /*
  76  * Object instance data.
  77  */
  78 typedef struct fd_ {
  79    ULONG                 fd_Flags;        /* Flags.                  */
  80    Object               *fd_Title;        /* Frame title.            */
  81    struct TextAttr      *fd_TitleFont;    /* Font for the title.     */
  82    struct TextFont      *fd_Font;         /* The opened font.        */
  83    struct Hook           fd_DefBackfill;  /* Default backfill hook.  */
  84    struct Hook          *fd_FrameHook;    /* Custom frame hook.      */
  85    struct Hook          *fd_BackFillHook; /* Custom backfill hook.   */
  86    struct bguiPattern   *fd_Pattern;      /* Normal fill pattern.    */
  87    struct bguiPattern   *fd_SelPattern;   /* Selected fill pattern.  */
  88    Object               *fd_ParentGroup;  /* Parent Group.           */
  89    UWORD                 fd_Type;         /* Frame type.             */
  90    UWORD                 fd_BackFill;     /* Backfilling type.       */
  91    UBYTE                 fd_Horizontal;   /* Horizontal thickness    */
  92    UBYTE                 fd_Vertical;     /* Vertical thickness      */
  93
  94    UWORD    fd_BackPen, fd_BackPen2;      /* Normal backfill pens.   */
  95    UWORD    fd_SelPen,  fd_SelPen2;       /* Selected backfill pens. */
  96    BYTE     fd_OuterX1, fd_OuterX2, fd_OuterY1, fd_OuterY2;
  97    BYTE     fd_InnerX1, fd_InnerX2, fd_InnerY1, fd_InnerY2;
  98 }  FD;
  99
 100 #define FRF_SELFOPEN    (1<<31)
 101 #define FRF_INBORDER    (1<<30)  /* Image in window border? */
 102 #define FRF_BACKDRI     (1<<29)
 103 #define FRF_SELDRI      (1<<28)
 104 #define FRF_BACKDRI2    (1<<27)
 105 #define FRF_SELDRI2     (1<<26)
 106 #define FRF_CUST_THICK  (1<<25)
 107 #define FRF_FILL_OUTER  (1<<24)
 108
 109 #define FD_ENTRY(tag, offset, flags) PACK_ENTRY(FRM_TAGSTART, tag, fd_, offset, flags)
 110 #define FD_FLAG(tag, flag) PACK_LONGBIT(FRM_TAGSTART, tag, fd_, fd_Flags, PKCTRL_BIT, flag)
 111
 112 static ULONG FramePackTable[] =
 113 {
 114    PACK_STARTTABLE(FRM_TAGSTART),
 115
 116    FD_ENTRY(FRM_Flags,                   fd_Flags,         PKCTRL_ULONG),
 117    FD_ENTRY(FRM_Type,                    fd_Type,          PKCTRL_UWORD),
 118    FD_ENTRY(FRM_BackFill,                fd_BackFill,      PKCTRL_UWORD),
 119
 120    FD_ENTRY(FRM_FrameWidth,              fd_Horizontal,    PKCTRL_UBYTE),
 121    FD_ENTRY(FRM_FrameHeight,             fd_Vertical,      PKCTRL_UBYTE),
 122    FD_ENTRY(FRM_OuterOffsetLeft,         fd_OuterX1,       PKCTRL_BYTE),
 123    FD_ENTRY(FRM_OuterOffsetRight,        fd_OuterX2,       PKCTRL_BYTE),
 124    FD_ENTRY(FRM_OuterOffsetTop,          fd_OuterY1,       PKCTRL_BYTE),
 125    FD_ENTRY(FRM_OuterOffsetBottom,       fd_OuterY2,       PKCTRL_BYTE),
 126    FD_ENTRY(FRM_InnerOffsetLeft,         fd_InnerX1,       PKCTRL_BYTE),
 127    FD_ENTRY(FRM_InnerOffsetRight,        fd_InnerX2,       PKCTRL_BYTE),
 128    FD_ENTRY(FRM_InnerOffsetTop,          fd_InnerY1,       PKCTRL_BYTE),
 129    FD_ENTRY(FRM_InnerOffsetBottom,       fd_InnerY2,       PKCTRL_BYTE),
 130
 131    FD_FLAG(FRM_EdgesOnly,                FRF_EDGES_ONLY),
 132    FD_FLAG(FRM_Recessed,                 FRF_RECESSED),
 133    FD_FLAG(FRM_CenterTitle,              FRF_CENTER_TITLE),
 134    FD_FLAG(FRM_HighlightTitle,           FRF_HIGHLIGHT_TITLE),
 135    FD_FLAG(FRM_ThinFrame,                FRF_THIN_FRAME),
 136    FD_FLAG(FRM_TitleLeft,                FRF_TITLE_LEFT),
 137    FD_FLAG(FRM_TitleRight,               FRF_TITLE_RIGHT),
 138
 139    PACK_ENDTABLE
 140 };
 141 ///
 142
 143 /*
 144  * Built-in background hook. This hook will take
 145  * care of the backfilling rasters and the special
 146  * backfilling pens.
 147  */
 148 //STATIC SAVEDS ASM BuiltInBack(REG(a0) struct Hook *hook, REG(a2) Object *obj, REG(a1) struct FrameDrawMsg *fdm)
 149 STATIC SAVEDS ASM REGFUNC3(IPTR, BuiltInBack,
 150         REGPARAM(A0, struct Hook *, hook),
 151         REGPARAM(A2, Object *, obj),
 152         REGPARAM(A1, struct FrameDrawMsg *, fdm))
 153 {
 154    FD                   *fd = INST_DATA(OCLASS(obj), obj);
 155    UWORD                *pens = PENS(fdm->fdm_DrawInfo), apen, bpen = 0;
 156    struct RastPort      *rp = fdm->fdm_RPort;
 157    struct IBox           ib;
 158    struct bguiPattern   *pat;
 159
 160    int                   fill;
 161
 162    int x1 = fdm->fdm_Bounds->MinX;
 163    int x2 = fdm->fdm_Bounds->MaxX;
 164    int y1 = fdm->fdm_Bounds->MinY;
 165    int y2 = fdm->fdm_Bounds->MaxY;
 166
 167    BOOL  sel = ((fdm->fdm_State == IDS_SELECTED) || (fdm->fdm_State == IDS_INACTIVESELECTED));
 168
 169    STATIC UBYTE backfill[][2] =
 170    {
 171       { BACKGROUNDPEN, BACKGROUNDPEN },   // STANDARD_FILL
 172       {      SHINEPEN, BACKGROUNDPEN },   // SHINE_RASTER
 173       {     SHADOWPEN, BACKGROUNDPEN },   // SHADOW_RASTER
 174       {      SHINEPEN,     SHADOWPEN },   // SHINE_SHADOW_RASTER
 175       {       FILLPEN, BACKGROUNDPEN },   // FILL_RASTER
 176       {      SHINEPEN,       FILLPEN },   // SHINE_FILL_RASTER
 177       {     SHADOWPEN,       FILLPEN },   // SHADOW_FILL_RASTER
 178       {      SHINEPEN,      SHINEPEN },   // SHINE_BLOCK
 179       {     SHADOWPEN,     SHADOWPEN },   // SHADOW_BLOCK
 180       {       FILLPEN,       FILLPEN },   // FILL_BLOCK
 181    };
 182
 183    /*
 184     * Render the backfill?
 185     */
 186    if (fdm->fdm_MethodID == FRM_RENDER)
 187    {
 188       /*
 189        * Setup domain.
 190        */
 191       ib.Left     =  x1;
 192       ib.Top      =  y1;
 193       ib.Width    =  x2 - x1 + 1;
 194       ib.Height   =  y2 - y1 + 1;
 195
 196       pat = fd->fd_Pattern;
 197       if (sel && !pat) pat = fd->fd_SelPattern;
 198
 199       if (pat)
 200       {
 201          BGUI_FillRectPattern(rp, pat, x1, y1, x2, y2);
 202          return FRC_OK;
 203       };
 204
 205       if (fd->fd_BackFill == STANDARD_FILL)
 206       {
 207          /*
 208           * A raster backfill. Set up the pens.
 209           */
 210
 211          /*
 212           * First check for a normal (dri)pen.
 213           * If none is given we use the default color.
 214           */
 215          if ((apen = fd->fd_BackPen) != (UWORD)~0)
 216          {
 217             if (fd->fd_Flags & FRF_BACKDRI) apen = pens[apen];
 218
 219             if ((bpen = fd->fd_BackPen2) == (UWORD)~0)
 220             {
 221                bpen = apen;
 222             }
 223             else
 224             {
 225                if (fd->fd_Flags & FRF_SELDRI2) bpen = pens[bpen];
 226             };
 227          };
 228
 229          if (sel && (fd->fd_SelPen != (UWORD)~0))
 230          {
 231             /*
 232              * First check for a selected (dri)pen.
 233              * If none is given we use the default color.
 234              */
 235             if ((apen = fd->fd_SelPen) != (UWORD)~0)
 236             {
 237                if (fd->fd_Flags & FRF_SELDRI) apen = pens[apen];
 238
 239                if ((bpen = fd->fd_SelPen2) == (UWORD)~0)
 240                {
 241                   bpen = apen;
 242                }
 243                else
 244                {
 245                   if (fd->fd_Flags & FRF_SELDRI2) bpen = pens[bpen];
 246                };
 247             };
 248          }
 249
 250          if (apen == (UWORD)~0)
 251          {
 252             switch (fd->fd_Type)
 253             {
 254             /*
 255              * NeXT, DropBox and Ridge frames do not support a SELECTED state
 256              * so we force the BACKGROUNDPEN for these types.
 257              */
 258             case FRTYPE_NEXT:
 259             case FRTYPE_DROPBOX:
 260             case FRTYPE_RIDGE:
 261             case FRTYPE_FUZZ_RIDGE:
 262             case FRTYPE_RADIOBUTTON:
 263                apen = BACKGROUNDPEN;
 264                break;
 265
 266             default:
 267                /*
 268                 * Check the state of the frame
 269                 */
 270                switch (fdm->fdm_State)
 271                {
 272                case IDS_SELECTED:
 273                   apen = FILLPEN;
 274                   break;
 275                case IDS_INACTIVESELECTED:
 276                case IDS_INACTIVENORMAL:
 277                   apen = BACKGROUNDPEN;
 278                   break;
 279                default:
 280                   /*
 281                    * And BACKGROUNDPEN for normal frames.
 282                    */
 283                   apen = ((fd->fd_Flags & FRF_INBORDER) || (fd->fd_Type == FRTYPE_BORDER)) ? FILLPEN : BACKGROUNDPEN;
 284                   break;
 285                };
 286             };
 287             apen = bpen = pens[apen];
 288          };
 289       }
 290       else
 291       {
 292          fill = fd->fd_BackFill;
 293          if (fill > FILL_BLOCK) fill = 0;
 294
 295          apen = pens[backfill[fill][0]];
 296          bpen = pens[backfill[fill][1]];
 297       };
 298
 299       /*
 300        * Fill the frame.
 301        */
 302       RenderBackFillRaster(rp, &ib, apen, bpen);
 303
 304       return FRC_OK;
 305    };
 306    return FRC_UNKNOWN;
 307 }
 308 REGFUNC_END
 309
 310 /// FRAMEM_BACKFILL
 311 /*
 312  * Frame background routine.
 313  */
 314 METHOD(FrameClassBackfill, struct fmBackfill *, fmb)
 315 {
 316    FD                   *fd = INST_DATA(cl, obj);
 317    struct FrameDrawMsg   fdraw;
 318
 319    /*
 320     * Setup framedraw message.
 321     */
 322    fdraw.fdm_MethodID   = FRM_RENDER;
 323    fdraw.fdm_RPort      = fmb->fmb_BInfo->bi_RPort;
 324    fdraw.fdm_DrawInfo   = fmb->fmb_BInfo->bi_DrInfo;
 325    fdraw.fdm_Bounds     = fmb->fmb_Bounds;
 326    fdraw.fdm_State      = fmb->fmb_State;
 327
 328    /*
 329     * Call the custom back-fill hook routine.
 330     * Note that this can also be the default backfill hook
 331     * which is defined above.
 332     */
 333    BGUI_CallHookPkt(fd->fd_BackFillHook, (VOID *)obj, (VOID *)&fdraw);
 334
 335    return 1;
 336 }
 337 METHOD_END
 338
 339 #define Line(x1,y1,x2,y2) { Move(rp, x1, y1); Draw(rp, x2, y2); }
 340 #define Point(x1,y1) WritePixel(rp, x1, y1)
 341
 342 /// RenderRadioFrame
 343 /*
 344  * Render the radio button frame
 345  */
 346 STATIC VOID RenderRadioFrame(struct bmRender *bmr, WORD l, WORD t, WORD r, WORD b, FD *fd)
 347 {
 348    struct BaseInfo *bi = bmr->bmr_BInfo;
 349    struct RastPort *rp = bi->bi_RPort;
 350    WORD             array[16], *a;
 351    BOOL             normal = !(fd->fd_Flags & FRF_RECESSED);
 352    BOOL             thin = fd->fd_Flags & FRF_THIN_FRAME;
 353
 354    /*
 355     * Check if we need to draw a normal or a selected frame
 356     */
 357    switch (bmr->bmr_Flags)
 358    {
 359    case IDS_SELECTED:
 360    case IDS_INACTIVESELECTED:
 361       normal = !normal;
 362       break;
 363    };
 364
 365    /*
 366     * Draw the shine side of the frame
 367     */
 368    a = array;
 369
 370    *a++ = l + 2;  *a++ = t;
 371    *a++ = l;      *a++ = t + 2;
 372    *a++ = l;      *a++ = b - 2;
 373    *a++ = l + 2;  *a++ = b;
 374    *a++ = l + 2;  *a++ = b - 1;
 375
 376    /*
 377     * Thin lines?
 378     */
 379    if (!thin)
 380    {
 381    *a++ = l + 1;  *a++ = b - 2;
 382    *a++ = l + 1;  *a++ = t + 2;
 383    *a++ = l + 2;  *a++ = t + 1;
 384    };
 385
 386    BSetDPenA(bi, normal ? SHINEPEN : SHADOWPEN);
 387    Move(rp, r - 3, t);
 388    PolyDraw(rp, (a - array) >> 1, array);
 389
 390    /*
 391     * Draw the shadow side of the frame
 392     */
 393    a = array;
 394
 395    *a++ = r - 2;  *a++ = b;
 396    *a++ = r;      *a++ = b - 2;
 397    *a++ = r;      *a++ = t + 2;
 398    *a++ = r - 2;  *a++ = t;
 399    *a++ = r - 2;  *a++ = t + 1;
 400
 401    /*
 402     * Thin lines?
 403     */
 404    if (!thin)
 405    {
 406    *a++ = r - 1;  *a++ = t + 2;
 407    *a++ = r - 1;  *a++ = b - 2;
 408    *a++ = r - 2;  *a++ = b - 1;
 409    };
 410
 411    BSetDPenA(bi, normal ? SHADOWPEN : SHINEPEN);
 412    Move(rp, l + 3, b);
 413    PolyDraw(rp, (a - array) >> 1, array);
 414 }
 415 ///
 416 /// RenderTabFrame
 417 /*
 418  * Render the tab frame.
 419  */
 420 STATIC VOID RenderTabFrame(struct bmRender *bmr, int l0, int t0, int r0, int b0, FD *fd)
 421 {
 422    struct BaseInfo *bi = bmr->bmr_BInfo;
 423    struct RastPort *rp = bi->bi_RPort;
 424
 425    int l1 = l0 + 1, l2 = l0 + 2, l3 = l0 + 3, l4 = l0 + 4;
 426    int r1 = r0 - 1, r2 = r0 - 2, r3 = r0 - 3, r4 = r0 - 4;
 427    int t1 = t0 + 1, t2 = t0 + 2, t3 = t0 + 3; //, t4 = t0 + 4;
 428    int b1 = b0 - 1, b2 = b0 - 2, b3 = b0 - 3; //, b4 = b0 - 4;
 429
 430    BOOL sel  = ((bmr->bmr_Flags == IDS_SELECTED) || (bmr->bmr_Flags == IDS_INACTIVESELECTED));
 431    BOOL thin = fd->fd_Flags & FRF_THIN_FRAME;
 432
 433    switch (fd->fd_Type)
 434    {
 435    case FRTYPE_TAB_TOP:
 436       /*
 437        * Shine side.
 438        */
 439       BSetDPenA(bi, SHINEPEN);
 440       if (sel)
 441       {
 442          Point(l0, b0);
 443          Line(l1, t2, l1, b1); if (!thin) Line(l2, t2, l2, b1);
 444          Line(l2, t1, l3, t1);
 445          Line(l3, t0, r3, t0);
 446       }
 447       else
 448       {
 449          Line(l0, b0, r0, b0);
 450          Line(l2, t3, l2, b1); if (!thin) Line(l3, t3, l3, b1);
 451          Line(l3, t2, l4, t2);
 452          Line(l4, t1, r4, t1);
 453       };
 454
 455       /*
 456        * Shadow side.
 457        */
 458       BSetDPenA(bi, SHADOWPEN);
 459       if (sel)
 460       {
 461          Line(r2, t1, r3, t1);
 462          Line(r1, t2, r1, b1); if (!thin) Line(r2, t2, r2, b1);
 463          Point(r0, b0);
 464       }
 465       else
 466       {
 467          Line(r3, t2, r4, t2);
 468          Line(r2, t3, r2, b1); if (!thin) Line(r3, t3, r3, b1);
 469       };
 470       break;
 471
 472    case FRTYPE_TAB_BOTTOM:
 473       /*
 474        * Shine side.
 475        */
 476       BSetDPenA(bi, SHINEPEN);
 477       if (sel)
 478       {
 479          Point(l0, t0);
 480          Line(l1, t1, l1, b2); if (!thin) Line(l2, t1, l2, b2);
 481          Line(l2, b1, l3, b1);
 482       }
 483       else
 484       {
 485          Line(l2, t1, l2, b3); if (!thin) Line(l3, t1, l3, b3);
 486          Line(l3, b2, l4, b2);
 487       };
 488
 489       /*
 490        * Shadow side.
 491        */
 492       BSetDPenA(bi, SHADOWPEN);
 493       if (sel)
 494       {
 495          Point(r0, t0);
 496          Line(r3, b1, r2, b1);
 497          Line(r1, t1, r1, b2); if (!thin) Line(r2, t1, r2, b2);
 498          Line(l3, b0, r3, b0);
 499       }
 500       else
 501       {
 502          Line(l0, t0, r0, t0);
 503          Line(r4, b2, r3, b2);
 504          Line(r2, t1, r2, b3); if (!thin) Line(r3, t1, r3, b3);
 505          Line(l4, b1, r4, b1);
 506       };
 507       break;
 508    };
 509 }
 510 ///
 511 /// RenderXenFrame
 512 /*
 513  * Render the XEN button frame.
 514  */
 515 STATIC VOID RenderXenFrame(struct bmRender *bmr, WORD l, WORD t, WORD r, WORD b, FD *fd)
 516 {
 517    struct BaseInfo *bi = bmr->bmr_BInfo;
 518    struct RastPort *rp = bi->bi_RPort;
 519
 520    /*
 521     * Setup pen for the XEN lines
 522     * around the normal button frame.
 523     */
 524    BSetDPenA(bi, SHADOWPEN);
 525    BSetDrMd(bi, JAM1);
 526
 527    /*
 528     * Move & Render...
 529     */
 530    t++; l++, r--; b--;
 531
 532    HLine(rp, l, t - 1, r);
 533    VLine(rp, r - 1, t, b);
 534    HLine(rp, l, b - 1, r);
 535    VLine(rp, l - 1, t, b);
 536
 537    /*
 538     * Render bevel.
 539     */
 540    RenderBevelBox(bi, l, t, r, b, bmr->bmr_Flags, fd->fd_Flags & FRF_RECESSED, fd->fd_Flags & FRF_THIN_FRAME);
 541 }
 542 ///
 543
 544 /*
 545  * Pass on the frame thickness.
 546  */
 547 STATIC ASM VOID FrameThickness(REG(a0) Class *cl, REG(a2) Object *obj)
 548 {
 549    FD                  *fd = INST_DATA(cl, obj);
 550    struct ThicknessMsg  tm;
 551    UBYTE                h, v;
 552    int                  type;
 553    BOOL                 thin;
 554
 555    STATIC UBYTE thick[][4] =
 556    {
 557       { 1, 1, 1, 1 },   // FRTYPE_CUSTOM
 558       { 2, 1, 1, 1 },   // FRTYPE_BUTTON
 559       { 4, 2, 2, 2 },   // FRTYPE_RIDGE
 560       { 6, 3, 3, 3 },   // FRTYPE_DROPBOX
 561       { 4, 2, 2, 2 },   // FRTYPE_NEXT
 562       { 1, 1, 1, 1 },   // FRTYPE_RADIOBUTTON
 563       { 3, 2, 2, 2 },   // FRTYPE_XEN_BUTTON
 564       { 2, 1, 1, 1 },   // FRTYPE_TAB_ABOVE
 565       { 2, 1, 1, 1 },   // FRTYPE_TAB_BELOW
 566       { 1, 1, 1, 1 },   // FRTYPE_BORDER
 567       { 0, 0, 0, 0 },   // FRTYPE_NONE
 568       { 3, 2, 3, 3 },   // FRTYPE_FUZZ_BUTTON
 569       { 3, 2, 3, 3 },   // FRTYPE_FUZZ_RIDGE
 570       { 6, 2, 5, 2 },   // FRTYPE_TAB_TOP
 571       { 6, 2, 5, 2 },   // FRTYPE_TAB_BOTTOM
 572       { 2, 6, 2, 5 },   // FRTYPE_TAB_LEFT
 573       { 2, 6, 2, 5 },   // FRTYPE_TAB_RIGHT
 574    };
 575
 576    if (!(fd->fd_Flags & FRF_CUST_THICK))
 577    {
 578       thin = fd->fd_Flags & FRF_THIN_FRAME;
 579
 580       /*
 581        * Do we have a hook?
 582        */
 583       if (fd->fd_FrameHook)
 584       {
 585          /*
 586           * Yes. Call it to get the thickness
 587           * of the custom frame.
 588           */
 589          tm.tm_MethodID             = FRM_THICKNESS;
 590          tm.tm_Thickness.Horizontal = &h;
 591          tm.tm_Thickness.Vertical   = &v;
 592          tm.tm_Thin                 = thin;
 593
 594          /*
 595           * If this method is not understood
 596           * by the hook we use default values.
 597           */
 598          if (BGUI_CallHookPkt(fd->fd_FrameHook, (VOID *)obj, (VOID *)&tm) != FRC_OK)
 599          {
 600             h = v = 1;
 601          };
 602       }
 603       else
 604       {
 605          /*
 606           * Setup frame thickness of the internal frames.
 607           */
 608          type = fd->fd_Type;
 609          if (type > FRTYPE_FUZZ_RIDGE) type = 0;
 610
 611          h = thick[type][thin ? 2 : 0];
 612          v = thick[type][thin ? 3 : 1];
 613       };
 614       fd->fd_Horizontal = h;
 615       fd->fd_Vertical   = v;
 616    };
 617 }
 618
 619 /*
 620  * Setup frame attributes.
 621  */
 622 STATIC ASM VOID SetFrameAttrs(REG(a0) Class *cl, REG(a2) Object *obj, REG(a1) struct TagItem *attr)
 623 {
 624    FD                *fd = INST_DATA(cl, obj);
 625    struct TextFont   *tf;
 626    IPTR      temp = (IPTR)NULL;
 627    struct TagItem *tstate = attr;
 628    struct TagItem    *tag;
 629    Object   *ob   = NULL;
 630    IPTR      data;
 631
 632    if ((tag = FindTagItem(FRM_Template, attr)))
 633    {
 634       ob = (Object *)tag->ti_Data;
 635       if (ob)
 636       {
 637          Get_Attr(ob, FRM_Template, &temp);
 638          if (temp)
 639          {
 640             CopyMem((FD *)temp, fd, sizeof(FD));
 641             fd->fd_Flags &= ~FRF_SELFOPEN;
 642          };
 643       };
 644    };
 645
 646    BGUI_PackStructureTags((APTR)fd, FramePackTable, attr);
 647
 648    /*
 649     * Set attributes.
 650     */
 651    while ((tag = NextTagItem(&tstate)))
 652    {
 653       data = tag->ti_Data;
 654
 655       switch (tag->ti_Tag)
 656       {
 657       case BT_ParentGroup:
 658          fd->fd_ParentGroup = (Object *)data;
 659          break;
 660
 661       case FRM_FrameWidth:
 662       case FRM_FrameHeight:
 663          fd->fd_Flags |= FRF_CUST_THICK;
 664          break;
 665
 666       case IMAGE_TextFont:
 667          if (fd->fd_Font && (fd->fd_Flags & FRF_SELFOPEN))
 668             BGUI_CloseFont(fd->fd_Font);
 669          fd->fd_Font   = (struct TextFont *)data;
 670          fd->fd_Flags &= ~FRF_SELFOPEN;
 671          break;
 672
 673       case FRM_TextAttr:
 674          if (data)
 675          {
 676             if ((tf = BGUI_OpenFont((struct TextAttr *)data)))
 677             {
 678                if (fd->fd_Font && (fd->fd_Flags & FRF_SELFOPEN))
 679                   BGUI_CloseFont(fd->fd_Font);
 680                fd->fd_Font  = tf;
 681                fd->fd_TitleFont = (struct TextAttr *)data;
 682                fd->fd_Flags   |= FRF_SELFOPEN;
 683             }
 684          }
 685          break;
 686
 687       case FRM_BackFill:
 688          fd->fd_BackFill   = data;
 689          fd->fd_BackFillHook = NULL;
 690          fd->fd_Flags      &= ~FRF_EDGES_ONLY;
 691          break;
 692
 693       case FRM_BackRasterPen:
 694          fd->fd_BackPen2   = data;
 695          fd->fd_Flags      &= ~FRF_BACKDRI2;
 696          if (fd->fd_BackPen != (UWORD)~0) break;
 697       case FRM_BackPen:
 698          fd->fd_BackPen    = data;
 699          fd->fd_Flags      &= ~FRF_BACKDRI;
 700          break;
 701
 702       case FRM_BackRasterDriPen:
 703          fd->fd_BackPen2   = data;
 704          fd->fd_Flags      |= FRF_BACKDRI2;
 705          if (fd->fd_BackPen != (UWORD)~0) break;
 706       case FRM_BackDriPen:
 707          fd->fd_BackPen    = data;
 708          fd->fd_Flags      |= FRF_BACKDRI;
 709          break;
 710
 711       case FRM_SelectedBackRasterPen:
 712          fd->fd_SelPen2    = data;
 713          fd->fd_Flags      &= ~FRF_SELDRI2;
 714          if (fd->fd_SelPen != (UWORD)~0) break;
 715       case FRM_SelectedBackPen:
 716          fd->fd_SelPen     = data;
 717          fd->fd_Flags      &= ~FRF_SELDRI;
 718          break;
 719
 720       case FRM_SelectedBackRasterDriPen:
 721          fd->fd_SelPen2    = data;
 722          fd->fd_Flags      |= FRF_SELDRI2;
 723          if (fd->fd_SelPen != (UWORD)~0) break;
 724       case FRM_SelectedBackDriPen:
 725          fd->fd_SelPen     = data;
 726          fd->fd_Flags      |= FRF_SELDRI;
 727          break;
 728
 729       case FRM_Title:
 730          if (!fd->fd_Title && data)
 731             fd->fd_Title = BGUI_NewObject(BGUI_TEXT_GRAPHIC, TEXTA_CopyText, TRUE, TAG_DONE);
 732          if (fd->fd_Title)
 733          {
 734             if(data)
 735                DoSetMethodNG(fd->fd_Title, TEXTA_Text, data, TAG_DONE);
 736             else
 737             {
 738                DisposeObject(fd->fd_Title);
 739                fd->fd_Title=NULL;
 740             }
 741          }
 742          break;
 743
 744       case FRM_TitleID:
 745          if (!fd->fd_Title) fd->fd_Title = BGUI_NewObject(BGUI_TEXT_GRAPHIC, TEXTA_CopyText, TRUE, TAG_DONE);
 746          if (fd->fd_Title) DoSetMethodNG(fd->fd_Title, TEXTA_TextID, data, TAG_DONE);
 747          break;
 748
 749          /*
 750           * BGUI private!
 751           */
 752       case IMAGE_InBorder:
 753          if (data) fd->fd_Flags |= FRF_INBORDER;
 754          else      fd->fd_Flags &= ~FRF_INBORDER;
 755          break;
 756
 757       case FRM_FillPattern:
 758          fd->fd_Pattern = (struct bguiPattern *)data;
 759          break;
 760
 761       case FRM_SelectedFillPattern:
 762          fd->fd_SelPattern = (struct bguiPattern *)data;
 763          break;
 764
 765       case FRM_BackFillHook:
 766          fd->fd_BackFillHook = (struct Hook *)data;
 767          break;
 768
 769       case FRM_CustomHook:
 770          fd->fd_FrameHook = (struct Hook *)data;
 771          /* Fallthough */
 772       case FRM_Type:
 773       case FRM_ThinFrame:
 774          FrameThickness(cl, obj);
 775          break;
 776       };
 777    };
 778
 779    /*
 780     * Sanity checks.
 781     */
 782    if (fd->fd_FrameHook)  fd->fd_Type = FRTYPE_CUSTOM;
 783    else if (!fd->fd_Type) fd->fd_Type = FRTYPE_BUTTON;
 784
 785    if (fd->fd_BackFillHook == NULL)
 786       fd->fd_BackFillHook = &fd->fd_DefBackfill;
 787
 788    switch (fd->fd_Type)
 789    {
 790    case FRTYPE_TAB_TOP:
 791    case FRTYPE_TAB_BOTTOM:
 792    case FRTYPE_TAB_LEFT:
 793    case FRTYPE_TAB_RIGHT:
 794       fd->fd_Flags |= FRF_FILL_OUTER;
 795       break;
 796    default:
 797       fd->fd_Flags &= ~FRF_FILL_OUTER;
 798       break;
 799    }
 800 }
 801
 802 /// OM_NEW
 803 /*
 804  * Create a shiny new object.
 805  */
 806 METHOD(FrameClassNew, struct opSet *, ops)
 807 {
 808    FD             *fd;
 809    IPTR            rc;
 810
 811    /*
 812     * First we let the superclass
 813     * create a new object.
 814     */
 815    if ((rc = AsmDoSuperMethodA(cl, obj, (Msg)ops)))
 816    {
 817       /*
 818        * Get us the instance data.
 819        */
 820       fd = INST_DATA(cl, rc);
 821
 822       /*
 823        * Setup defaults.
 824        */
 825       fd->fd_Type     = FRTYPE_BUTTON;
 826       fd->fd_BackPen  = (UWORD)~0;
 827       fd->fd_SelPen   = (UWORD)~0;
 828       fd->fd_BackPen2 = (UWORD)~0;
 829       fd->fd_SelPen2  = (UWORD)~0;
 830
 831       fd->fd_DefBackfill.h_Entry = (HOOKFUNC)BuiltInBack;
 832
 833       /*
 834        * Setup the object.
 835        */
 836       SetFrameAttrs(cl, (Object *)rc, ops->ops_AttrList);
 837       FrameThickness(cl, (Object *)rc);
 838    };
 839
 840    return rc;
 841 }
 842 METHOD_END
 843 ///
 844 /// OM_SET
 845 /*
 846  * Change one or more attrubutes.
 847  */
 848 METHOD(FrameClassSet, struct opSet *, ops)
 849 {
 850    ULONG            rc;
 851
 852    /*
 853     * First we let the superclass
 854     * change the attributes it
 855     * knows.
 856     */
 857    rc = AsmDoSuperMethodA(cl, obj, (Msg)ops);
 858
 859    /*
 860     * Setup attributes.
 861     */
 862    SetFrameAttrs(cl, obj, ops->ops_AttrList);
 863
 864    return rc;
 865 }
 866 METHOD_END
 867 ///
 868 /// OM_GET
 869 /*
 870  * Give an attribute value.
 871  */
 872 METHOD(FrameClassGet, struct opGet *, opg)
 873 {
 874    FD       *fd = INST_DATA(cl, obj);
 875    ULONG     rc = 1;
 876    Tag       tag = opg->opg_AttrID;
 877    IPTR     *store = opg->opg_Storage;
 878
 879    /*
 880     * First we see if the attribute
 881     * they want is known to us. If not
 882     * we pass it onto the superclass.
 883     */
 884    switch (tag)
 885    {
 886       case FRM_Template:
 887          STORE fd;
 888          break;
 889
 890       case FRM_TextAttr:
 891          STORE fd->fd_TitleFont;
 892          break;
 893
 894       case FRM_CustomHook:
 895          STORE fd->fd_FrameHook;
 896          break;
 897
 898       case FRM_BackFillHook:
 899          STORE fd->fd_BackFillHook;
 900          break;
 901
 902       case FRM_FillPattern:
 903          STORE fd->fd_Pattern;
 904          break;
 905
 906       case FRM_SelectedFillPattern:
 907          STORE fd->fd_SelPattern;
 908          break;
 909
 910       case FRM_FrameWidth:
 911          STORE fd->fd_Horizontal;
 912          break;
 913       case FRM_FrameHeight:
 914          STORE fd->fd_Vertical;
 915          break;
 916
 917       case FRM_BackPen:
 918          STORE fd->fd_Flags & FRF_BACKDRI    ? ~0 : fd->fd_BackPen;
 919          break;
 920       case FRM_BackDriPen:
 921          STORE fd->fd_Flags & FRF_BACKDRI    ? fd->fd_BackPen : ~0;
 922          break;
 923       case FRM_SelectedBackPen:
 924          STORE fd->fd_Flags & FRF_SELDRI     ? ~0 : fd->fd_SelPen;
 925          break;
 926       case FRM_SelectedBackDriPen:
 927          STORE fd->fd_Flags & FRF_SELDRI     ? fd->fd_SelPen : ~0;
 928          break;
 929       case FRM_BackRasterPen:
 930          STORE fd->fd_Flags & FRF_BACKDRI2   ? ~0 : fd->fd_BackPen2;
 931          break;
 932       case FRM_BackRasterDriPen:
 933          STORE fd->fd_Flags & FRF_BACKDRI2   ? fd->fd_BackPen2 : ~0;
 934          break;
 935       case FRM_SelectedBackRasterPen:
 936          STORE fd->fd_Flags & FRF_SELDRI2    ? ~0 : fd->fd_SelPen2;
 937          break;
 938       case FRM_SelectedBackRasterDriPen:
 939          STORE fd->fd_Flags & FRF_SELDRI2    ? fd->fd_SelPen2 : ~0;
 940          break;
 941
 942       default:
 943          rc = BGUI_UnpackStructureTag((UBYTE *)fd, FramePackTable, tag, store);
 944          if (!rc) rc = AsmDoSuperMethodA(cl, obj, (Msg)opg);
 945          break;
 946    };
 947    return rc;
 948 }
 949 METHOD_END
 950 ///
 951 /// OM_DISPOSE
 952 /*
 953  * Dispose of the object.
 954  */
 955 METHOD(FrameClassDispose, Msg, msg)
 956 {
 957    FD       *fd = INST_DATA(cl, obj);
 958
 959    /*
 960     * Close the font.
 961     */
 962    if (fd->fd_Font && (fd->fd_Flags & FRF_SELFOPEN))
 963       BGUI_CloseFont(fd->fd_Font);
 964
 965    /*
 966     * Dispose of the text graphic.
 967     */
 968    if (fd->fd_Title) DisposeObject(fd->fd_Title);
 969
 970    /*
 971     * The rest goes to the superclass.
 972     */
 973    return AsmDoSuperMethodA(cl, obj, msg);
 974 }
 975 METHOD_END
 976 ///
 977 /// FRAMEM_SETUPBOUNDS
 978
 979 METHOD(FrameClassSetupBounds, struct fmSetupBounds *, fmsb)
 980 {
 981    FD            *fd = INST_DATA(cl, obj);
 982    struct IBox   *hb = fmsb->fmsb_HitBox;
 983    struct IBox   *ib = fmsb->fmsb_InnerBox;
 984    int            ox1 = fd->fd_OuterX1;
 985    int            ox2 = fd->fd_OuterX2;
 986    int            oy1 = fd->fd_OuterY1;
 987    int            oy2 = fd->fd_OuterY2;
 988
 989    hb->Left   += ox1;
 990    hb->Top    += oy1;
 991    hb->Width  -= ox1 + ox2;
 992    hb->Height -= oy1 + oy2;
 993
 994    ox1 += fd->fd_InnerX1 + fd->fd_Horizontal;
 995    ox2 += fd->fd_InnerX2 + fd->fd_Horizontal;
 996    oy1 += fd->fd_InnerY1 + fd->fd_Vertical;
 997    oy2 += fd->fd_InnerY2 + fd->fd_Vertical;
 998
 999    if (fd->fd_Title)
1000    {
1001       if (fd->fd_Font)           oy1 += fd->fd_Font->tf_YSize;
1002       else if (fd->fd_TitleFont) oy1 += fd->fd_TitleFont->ta_YSize;
1003    };
1004
1005    ib->Left   += ox1;
1006    ib->Top    += oy1;
1007    ib->Width  -= ox1 + ox2;
1008    ib->Height -= oy1 + oy2;
1009
1010    SetImageBounds(obj, fmsb->fmsb_HitBox);
1011
1012    return 1;
1013 }
1014 METHOD_END
1015 ///
1016 /// BASE_DIMENSIONS
1017
1018 METHOD(FrameClassDimensions, struct bmDimensions *, bmd)
1019 {
1020    FD                *fd = INST_DATA(cl, obj);
1021    struct bguiExtent *be = bmd->bmd_Extent;
1022    int                ox = (fd->fd_Horizontal << 1) + fd->fd_InnerX1 + fd->fd_InnerX2;
1023    int                oy = (fd->fd_Vertical   << 1) + fd->fd_InnerY1 + fd->fd_InnerY2;
1024
1025    if (fd->fd_Title)
1026    {
1027       if (fd->fd_Font)           oy += fd->fd_Font->tf_YSize;
1028       else if (fd->fd_TitleFont) oy += fd->fd_TitleFont->ta_YSize;
1029    };
1030
1031    be->be_Min.Width  += ox;
1032    be->be_Min.Height += oy;
1033
1034    be->be_Nom.Width  += ox;
1035    be->be_Nom.Height += oy;
1036
1037    return 1;
1038 }
1039 METHOD_END
1040 ///
1041 /// BASE_RENDER
1042 /*
1043  * Render the frame.
1044  */
1045 METHOD(FrameClassRender, struct bmRender *, bmr)
1046 {
1047    FD                  *fd = INST_DATA(cl, obj);
1048    struct BaseInfo     *bi = bmr->bmr_BInfo;
1049    struct RastPort     *rp = bi->bi_RPort;
1050    struct Rectangle     rect;
1051    struct FrameDrawMsg  fdraw;
1052    WORD                 l, t, r, b, place;
1053    ULONG                rc = 1;
1054    int                  tv, th, dv, dh, shadow, shine, tmp = 0, tmp2 = 0;
1055    int                  state = bmr->bmr_Flags;
1056    int                  i_fuzz, i_blank, i_swap, i_mix;
1057    Object              *fr;
1058
1059    static UWORD pat[] = { 0x5555, 0xAAAA };
1060
1061    static BYTE taboff[4][4][2] =
1062    {
1063       {  { 3, 2 }, { 3, 2 }, { 2, 1 }, { 0, 0 }  },
1064       {  { 3, 2 }, { 3, 2 }, { 0, 0 }, { 2, 1 }  },
1065       {  { 2, 1 }, { 0, 0 }, { 3, 2 }, { 3, 2 }  },
1066       {  { 0, 0 }, { 2, 1 }, { 3, 2 }, { 3, 2 }  },
1067    };
1068
1069    BSetDrMd(bi, JAM2);
1070
1071    /*
1072     * Calculate the frame position and dimensions
1073     */
1074    l = IMAGE(obj)->LeftEdge;
1075    t = IMAGE(obj)->TopEdge;
1076    r = IMAGE(obj)->Width  + l - 1;
1077    b = IMAGE(obj)->Height + t - 1;
1078
1079    if (fd->fd_Title)
1080    {
1081       /*
1082        * Setup the font if one is present.
1083        */
1084       if (fd->fd_Font) BSetFont(bi, fd->fd_Font);
1085
1086       /*
1087        * Adjust top position if there is a title present.
1088        */
1089       if (fd->fd_Flags & FRF_CENTER_TITLE)
1090          t += (rp->TxBaseline - (rp->TxHeight >> 1));
1091       else
1092          t += rp->TxBaseline;
1093    };
1094
1095    rect.MinX = l;
1096    rect.MinY = t;
1097    rect.MaxX = r;
1098    rect.MaxY = b;
1099    /*
1100     * First we do the background.
1101     *
1102     * When this is a FRF_EDGES_ONLY frame we do nothing.
1103     * No hooks are called, and nothing is filled.
1104     */
1105    if (!(fd->fd_Flags & FRF_EDGES_ONLY))
1106    {
1107       if (fd->fd_Flags & FRF_FILL_OUTER)
1108       {
1109          if ((fr = fd->fd_ParentGroup ? BASE_DATA(fd->fd_ParentGroup)->bc_Frame : NULL))
1110          {
1111             AsmDoMethod(fr, FRAMEM_BACKFILL, bi, &rect, IDS_NORMAL);
1112          }
1113          else
1114          {
1115             BSetDPenA(bi, BACKGROUNDPEN);
1116             BRectFillA(bi, &rect);
1117          };
1118          tmp  = fd->fd_Type - FRTYPE_TAB_TOP;
1119          tmp2 = ((state == IDS_SELECTED) || (state == IDS_SELECTED)) ? 1 : 0;
1120
1121          rect.MinX += taboff[tmp][0][tmp2];
1122          rect.MaxX -= taboff[tmp][1][tmp2];
1123          rect.MinY += taboff[tmp][2][tmp2];
1124          rect.MaxY -= taboff[tmp][3][tmp2];
1125
1126          state = IDS_NORMAL;
1127       };
1128       AsmDoMethod(obj, FRAMEM_BACKFILL, bi, &rect, state);
1129    };
1130
1131    /*
1132     * Get frame thickness.
1133     */
1134    th = fd->fd_Horizontal;
1135    tv = fd->fd_Vertical;
1136
1137    if ((th << 1) > (r - l + 1)) th = (r - l + 1) >> 1;
1138    if ((tv << 1) > (b - t + 1)) tv = (b - t + 1) >> 1;
1139
1140    /*
1141     * Draw the frame (whatever type it is)
1142     */
1143    state = bmr->bmr_Flags;
1144
1145    /*
1146     * Selected or normal?
1147     */
1148    switch (state)
1149    {
1150    case IDS_SELECTED:
1151    case IDS_INACTIVESELECTED:
1152       shadow = SHINEPEN;
1153       shine  = SHADOWPEN;
1154       break;
1155
1156    default:
1157       shadow = SHADOWPEN;
1158       shine  = SHINEPEN;
1159       break;
1160    };
1161
1162    /*
1163     * Swap pens if we must
1164     * recess the frame.
1165     */
1166    if (fd->fd_Flags & FRF_RECESSED)
1167    {
1168       tmp    = shadow;
1169       shadow = shine;
1170       shine  = tmp;
1171    }
1172
1173    if(th>0
1174    && tv>0)
1175    {
1176       switch (fd->fd_Type)
1177       {
1178          case  FRTYPE_CUSTOM:
1179             /*
1180              * Fill in the data structures for the custom frame hook
1181              */
1182             fdraw.fdm_MethodID   = FRM_RENDER;
1183             fdraw.fdm_RPort      = rp;
1184             fdraw.fdm_DrawInfo   = bi->bi_DrInfo;
1185             fdraw.fdm_Bounds     = &rect;
1186             fdraw.fdm_State      = state;
1187             fdraw.fdm_Horizontal = th;
1188             fdraw.fdm_Vertical   = tv;
1189             /*
1190              * Call the hook routine.
1191              */
1192             rc = BGUI_CallHookPkt(fd->fd_FrameHook, (VOID *)obj, (VOID *)&fdraw);
1193             break;
1194
1195          case FRTYPE_RIDGE:
1196          case FRTYPE_NEXT:
1197          case FRTYPE_DROPBOX:
1198          case FRTYPE_FUZZ_BUTTON:
1199          case FRTYPE_FUZZ_RIDGE:
1200          case FRTYPE_BUTTON:
1201             i_fuzz   = -1;
1202             i_blank  = -1;
1203             i_swap   = -1;
1204             i_mix    = -1;
1205
1206             dv = (tv + th - 1) / th;   if (dv < 1) dv = 1;
1207             dh = (th + tv - 1) / tv;   if (dh < 1) dh = 1;
1208
1209             if (fd->fd_Type == FRTYPE_FUZZ_BUTTON)
1210             {
1211                /*
1212                 * 1/4 Normal, 3/4 Raster
1213                 */
1214                i_fuzz = (tv / dv) / 4;
1215             };
1216             if (fd->fd_Type == FRTYPE_FUZZ_RIDGE)
1217             {
1218                /*
1219                 * 1/3 Normal, 1/3 Blank, 1/3 Recessed
1220                 */
1221                tmp      = shine;
1222                tmp2     = shadow;
1223                i_mix    = (tv / dv) / 3 - 1;
1224                i_swap   = (2 * tv / dv) / 3 - 1;
1225             };
1226             if (fd->fd_Type == FRTYPE_DROPBOX)
1227             {
1228                /*
1229                 * 1/3 Normal, 1/3 Blank, 1/3 Recessed
1230                 */
1231                tmp      = shine;
1232                tmp2     = shadow;
1233                i_blank  = (tv / dv) / 3 - 1;
1234                i_swap   = (2 * tv / dv) / 3 - 1;
1235             };
1236             if (fd->fd_Type == FRTYPE_NEXT)
1237             {
1238                /*
1239                 * 1/2 Recessed, 1/2 Normal
1240                 */
1241                tmp2     = shine;
1242                tmp      = shadow;
1243                shine    = tmp;
1244                shadow   = tmp2;
1245                i_swap   = (tv / dv) / 2 - 1;
1246             };
1247             if (fd->fd_Type == FRTYPE_RIDGE)
1248             {
1249                /*
1250                 * 1/2 Normal, 1/2 Recessed
1251                 */
1252                tmp      = shine;
1253                tmp2     = shadow;
1254                i_swap   = (tv / dv) / 2 - 1;
1255             };
1256
1257             /*
1258              * Render the bevelbox.
1259              */
1260             while ((tv > 0) && (th > 0))
1261             {
1262                if (shine >= 0)  BSetDPenA(bi, shine);
1263                if(dh>0
1264                && t<=b)
1265                   BRectFill(bi, l, t, l + dh - 1, b);   l += dh;
1266                if (shadow >= 0) BSetDPenA(bi, shadow);
1267                if(dv>0
1268                && l<=r)
1269                   BRectFill(bi, l, b - dv + 1, r, b);   b -= dv;
1270                if(dh>0
1271                && t<=b)
1272                   BRectFill(bi, r - dh + 1, t, r, b);   r -= dh;
1273                if (shine >= 0)  BSetDPenA(bi, shine);
1274                if(dv>0
1275                && l<=r)
1276                   BRectFill(bi, l, t, r, t + dv - 1);   t += dv;
1277                tv -= dv;
1278                th -= dh;
1279
1280                if (i_fuzz-- == 0)
1281                {
1282                   BSetAfPt(bi, pat, 1);
1283                };
1284                if (i_blank-- == 0)
1285                {
1286                   shine    = BACKGROUNDPEN;
1287                   shadow   = BACKGROUNDPEN;
1288                };
1289                if (i_swap-- == 0)
1290                {
1291                   BClearAfPt(bi);
1292                   shine    = tmp2;
1293                   shadow   = tmp;
1294                };
1295                if (i_mix-- == 0)
1296                {
1297                   BSetAfPt(bi, pat, 1);
1298                   BSetDPenA(bi, shine);
1299                   BSetDPenB(bi, shadow);
1300                   shine = shadow = -1;
1301                };
1302             };
1303             if (tv > 0)
1304             {
1305                BSetDPenA(bi, shine);
1306                BRectFill(bi, l, t, r, t + tv - 1);
1307                BSetDPenA(bi, shadow);
1308                BRectFill(bi, l, b - tv + 1, r, b);
1309             };
1310             if (th > 0)
1311             {
1312                BSetDPenA(bi, shine);
1313                BRectFill(bi, l, t, l + th - 1, b);
1314                BSetDPenA(bi, shadow);
1315                BRectFill(bi, r - th + 1, t, r, b);
1316             };
1317             break;
1318
1319          case FRTYPE_RADIOBUTTON:
1320             RenderRadioFrame(bmr, l, t, r, b, fd);
1321             break;
1322
1323          case FRTYPE_XEN_BUTTON:
1324             RenderXenFrame(bmr, l, t, r, b, fd);
1325             break;
1326
1327          case FRTYPE_TAB_TOP:
1328          case FRTYPE_TAB_BOTTOM:
1329          case FRTYPE_TAB_LEFT:
1330          case FRTYPE_TAB_RIGHT:
1331             RenderTabFrame(bmr, l, t, r, b, fd);
1332             break;
1333
1334          case FRTYPE_TAB_ABOVE:
1335             /*
1336              * Render the frame.
1337              */
1338             BSetDPenA(bi, shine);
1339             BRectFill(bi, l, t, l + th - 1, b - tv);
1340             BSetDPenA(bi, shadow);
1341             BRectFill(bi, l + 1, b - tv + 1, r, b);
1342             BRectFill(bi, r - th + 1, t, r, b);
1343             break;
1344
1345          case FRTYPE_TAB_BELOW:
1346             /*
1347              * Render the frame.
1348              */
1349             BSetDPenA(bi, shine);
1350             BRectFill(bi, l, t, l + th - 1, b - tv + 1);
1351             BRectFill(bi, l, t, r - th + 1, t + tv - 1);
1352             BSetDPenA(bi, shadow);
1353             BRectFill(bi, r - th + 1, t, r, b);
1354             break;
1355
1356          case FRTYPE_BORDER:
1357             /*
1358              * Render the borderbox.
1359              */
1360             RenderBevelBox(bi, l, t, r, b, state, fd->fd_Flags & FRF_RECESSED, TRUE);
1361             break;
1362
1363          case FRTYPE_NONE:
1364             break;
1365       }
1366    }
1367
1368    /*
1369     * Render frame the title.
1370     */
1371    if (fd->fd_Title)
1372    {
1373       place = 0;
1374
1375       /*
1376        * Left or right?
1377        */
1378       if (fd->fd_Flags      & FRF_TITLE_LEFT ) place = 1;
1379       else if (fd->fd_Flags & FRF_TITLE_RIGHT) place = 2;
1380
1381       /*
1382        * Render the title.
1383        */
1384       RenderTitle(fd->fd_Title, bi, l, t, r - l + 1,
1385                   fd->fd_Flags & FRF_HIGHLIGHT_TITLE, fd->fd_Flags & FRF_CENTER_TITLE, place);
1386
1387    }
1388
1389    return rc;
1390 }
1391 METHOD_END
1392 ///
1393 /// BASE_LOCALIZE
1394
1395 METHOD(FrameClassLocalize, struct bmLocalize *, bml)
1396 {
1397    FD    *fd = INST_DATA(cl, obj);
1398    ULONG  rc = 0;
1399
1400    if (fd->fd_Title) rc = AsmDoMethodA(fd->fd_Title, (Msg)bml);
1401
1402    return rc;
1403 }
1404 METHOD_END
1405 ///
1406 /// Class initialization.
1407
1408 /*
1409  * Class function table.
1410  */
1411 STATIC DPFUNC ClassFunc[] = {
1412    { BASE_RENDER,         FrameClassRender, },
1413    { BASE_DIMENSIONS,     FrameClassDimensions, },
1414    { FRAMEM_BACKFILL,     FrameClassBackfill, },
1415    { FRAMEM_SETUPBOUNDS,  FrameClassSetupBounds, },
1416    { OM_SET,              FrameClassSet, },
1417    { OM_GET,              FrameClassGet, },
1418    { OM_NEW,              FrameClassNew, },
1419    { OM_DISPOSE,          FrameClassDispose, },
1420    { BASE_LOCALIZE,       FrameClassLocalize, },
1421    { DF_END },
1422 };
1423
1424 /*
1425  * Simple class initialization.
1426  */
1427 makeproto Class *InitFrameClass(void)
1428 {
1429    return BGUI_MakeClass(CLASS_SuperClassBGUI, BGUI_IMAGE_OBJECT,
1430                          CLASS_ObjectSize,     sizeof(FD),
1431                          CLASS_DFTable,        ClassFunc,
1432                          TAG_DONE);
1433 }
1434 ///
1435