Function SetBorder

sys/amiga/winami.c:1199–1337

Put a 3-D motif border around the gadget. String gadgets or those * which do not have highlighting are rendered down. Boolean gadgets * are rendered in the up position by default. */

 * are rendered in the up position by default.
 */
void
SetBorder(struct Gadget *gd)
{
    struct Border *bp;
    short *sp;
    int i, inc = -1, dec = -1;
    int borders = 6;
    int hipen = sysflags.amii_dripens[SHINEPEN],
        shadowpen = sysflags.amii_dripens[SHADOWPEN];
#ifdef INTUI_NEW_LOOK
    struct DrawInfo *dip;
#endif

#ifdef INTUI_NEW_LOOK
    if (IntuitionBase->LibNode.lib_Version >= 37) {
        if ((dip = GetScreenDrawInfo(HackScreen)) != 0) {
            hipen = dip->dri_Pens[SHINEPEN];
            shadowpen = dip->dri_Pens[SHADOWPEN];
            FreeScreenDrawInfo(HackScreen, dip);
        }
    }
#endif
    /* Allocate two border structures one for up image and one for down
     * image, plus vector arrays for the border lines.
     */
    if (gd->GadgetType == STRGADGET)
        borders = 12;
    if ((bp = (struct Border *) alloc(((sizeof (struct Border) * 2)
                                       + (sizeof (short) * borders)) * 2))
        == NULL) {
        return;
    }

    /* For a string gadget, we expand the border beyond the area where
     * the text will be entered.
     */

    /* Remove any special rendering flags to avoid confusing intuition */
    gd->Flags &= ~(GADGHIGHBITS | GADGIMAGE);

    sp = (short *) (bp + 4);
    if (gd->GadgetType == STRGADGET
        || (gd->GadgetType == BOOLGADGET
            && (gd->Flags & GADGHIGHBITS) == GADGHNONE)) {
        sp[0] = -1;
        sp[1] = gd->Height - 1;
        sp[2] = -1;
        sp[3] = -1;
        sp[4] = gd->Width - 1;
        sp[5] = -1;

        sp[6] = gd->Width + 1;
        sp[7] = -2;
        sp[8] = gd->Width + 1;
        sp[9] = gd->Height + 1;
        sp[10] = -2;
        sp[11] = gd->Height + 1;