AmigActive 13/AACD13.ISO/AACD/Resources/System/BoingBag1/Contributions/Workbench/RexxArpLib3p6/src/sreq/simpwin.c

C/C++ Source or Header | 1998-06-17 | 4KB | 187 lines

/**
 *
 *
 *    OpenSReqWindow(1.0)    ARP Programmers Manual   OpenSReqWindow(1.0)
 *
 *
 *
 *    NAME
 *   OpenSReqWindow -- Open a simple requester window
 *
 *    SYNOPSIS
 *   WindowPtr = OpenSReqWindow(SimpleRequester, hsize, vsize,
 *    D0        A0               D0?    D1?
 *                              idcmpflags, flags)
 *
 *    FUNCTION
 *   This function allocates a NewWindow structure, opens a window,
 *   and RectFills a background color, given an initialized Simple-
 *   Requester structure and a width and height. Also, window flags
 *   and IDCMP flags have to be passed. It then deallocates
 *   the NewWindow structure. Notice that it only uses fields in the
 *   SimpleRequester structure that it needs, so this function can
 *   also be used for other than requester windows. Any error
 *   conditions are returned in the SimpleRequester structure.
 *
 *    INPUTS
 *   SimpleRequester -- A pointer to an initialized SimpleRequester
 *                      structure.
 *         hsize           -- The width of the window
 *   vsize           -- The height of the window
 *   idcmpflags      -- The IDCMP flags
 *   flags           -- The window flags
 *
 *    RESULT
 *   WindowPtr       -- NULL if an error was detected. In that case the
 *                      error value may be obtained from the
 *                      SimpleRequester structure. Otherwise a pointer
 *                      to the Window will be returned.
 *
 *    ADDITIONAL CONSIDERATIONS
 *   This routine assumes Intuition and Graphics are already open.
 *   See also the related higher level routines SimpleMsgWin() and
 *   UpdateMsgWin().
 *
 *    BUGS
 *   None reported sofar.
 *
 *    AUTHOR
 *   W.G.J. Langeveld (WGL)
 *
 *
**/
#include <exec/types.h>
#include <exec/io.h>
#include <exec/memory.h>
#include <libraries/dos.h>
#include <intuition/intuition.h>
#include <intuition/intuitionbase.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <functions.h>
#include <simpreq.h>
#include "simpdefs.h"

extern struct IntuitionBase *IntuitionBase;
extern struct GfxBase *GfxBase;

/**
 *
 *   This routine opens the SimpleRequester window
 *
**/
struct Window *OpenSReqWindow ( struct SimpleRequester *s, int hsize, int vsize, ULONG idcmpflags, ULONG flags )
{
    struct NewWindow *nw;
    struct Window     *w;
    ULONG              pen;

    s->sr_ErrorCode = SR_SUCCESS;
    /*
     *   Set up a NewWindow structure.
     */
    nw = AllocMem((long) sizeof(struct NewWindow), MEMF_CLEAR);
    if (nw == NULL)
    {
        s->sr_ErrorCode = SR_OUTOFMEMORY;
        return(NULL);
    }

    nw->LeftEdge    = s->sr_x;
    nw->TopEdge     = s->sr_y;
    nw->Width       = hsize;
    nw->Height      = vsize;

    if (s->sr_PenList)
    {
        nw->BlockPen    = s->sr_PenList->reqp_BlockPen;
        nw->DetailPen   = s->sr_PenList->reqp_DetailPen;
    }
    else
    {
        nw->BlockPen    = DEFWINBPEN;
        nw->DetailPen   = DEFWINDPEN;
    }

    nw->IDCMPFlags  = idcmpflags;
    nw->Flags       = flags;
    nw->MinWidth    = nw->MaxWidth  = nw->Width;
    nw->MinHeight   = nw->MaxHeight = nw->Height;
    nw->Type        = WBENCHSCREEN;
    /*
     *   Modify the NewWindow structure if Custom Screen
     */
    if (s->sr_Screen)
    {
        nw->Type   = s->sr_Screen->Flags & SCREENTYPE;
        nw->Screen = s->sr_Screen;
    }
    /*
     *   Open the window and free the NewWindow structure
     */
    w = OpenWindow(nw);

    FreeMem(nw, (long) sizeof(struct NewWindow));

    if (w == NULL)
    {
        s->sr_ErrorCode = SR_NOWINDOW;
        return(NULL);
    }

    /*
     *   Color in the background
     */
    if (s->sr_PenList)
    {
        pen = s->sr_PenList->reqp_BackPen;
    }
    else
    {
        pen = DEFBACKPEN;
    }

    BlankSReqWin(w, pen);

    return(w);
}

void BlankSReqWin ( struct Window *w, ULONG pen)
{
    struct RastPort *rp;
    WORD             sp = 0;
    register long    x1,
                     x2,
                     y1,
                     y2;

    if (w == NULL)
        return;

    rp = w->RPort;

    SetAPen(rp, (long) pen);
    SetDrMd(rp, JAM2);

    if (w->BorderTop > 4 && pen)
        sp = 1;

    x1 = (long) (            w->BorderLeft   + (sp << 1) - 2);
    y1 = (long) (            w->BorderTop    +  sp       - 1);
    x2 = (long) (w->Width  - w->BorderRight  - (sp << 1) + 1);
    y2 = (long) (w->Height - w->BorderBottom -  sp          );

    if (IntuitionBase->LibNode.lib_Version >= 36)
    {
        y1 += 1;
        x2 -= 2;
        x1 += 2;
        y2 -= 1;
    }

    if ((x2 >= x1) && (y2 >= y1))
        RectFill(rp, x1, y1, x2, y2);
    return;
}