Fresh Fish 5/FreshFish_July-August1994.bin/bbs/util/mg-3b.lha/mg-3b/src.LZH/amiga/iconify.c

C/C++ Source or Header | 1990-05-23 | 4.8 KB | 229 lines

/*
 * :ts=8 bk=0
 *
 * iconify.c:    You asked for it, you got it.
 *
 * Copyright 1987 by Leo L. Schwab. Permission is hereby granted for use in any
 * and all programs, both Public Domain and commercial in nature, provided
 * this Copyright notice is left intact.  Purveyors of programs, at their
 * option, may wish observe the following conditions (in the spirit of
 * hackerdom): 1: You send me a free, registered copy of the program that
 * uses the iconify feature, 2: If you're feeling really nice, a mention in
 * the program's documentation of my name would be neat.
 *
 * 8712.10        [phone]
 */
#include "do_iconify.h"
#ifdef    DO_ICONIFY

#include <exec/types.h>
#include <devices/timer.h>
#include <intuition/intuition.h>
#ifdef LATTICE
#include <proto/all.h>
#else
#include <functions.h>
#endif

#undef TRUE
#undef FALSE
#include "def.h"
#include "iconify.h"

#ifndef    NO_PROTO
static int openstuff PROTO((VOID));
static VOID closestuff PROTO((VOID));
#else
static int openstuff();
static VOID closestuff();
#endif

/*
 * It is recommended that the tick rate not be made too rapid to avoid
 * bogging down the system.
 */
#define    TPS    10

/*
 * Some programmers may not wish to have the added functionality of the
 * ICON_FUNCTION feature.  If you're such a programmer, you may comment out
 * the following #define, which will eliminate the code to handle function
 * calls, and make iconify() even smaller.
 */
/*
 * mg doesn't use this, so we turn it off. #define    USE_FUNCTIONS
 */
/*
 * Jim Mackraz suggested making icons easily identifiable by outside
 * programs, so this constant gets stuffed into the UserData field.
 */
#define    ICON    0x49434f4eL    /* 'ICON'  */

static struct Gadget gadget = {
    NULL,
    0, 0, 0, 0,
    NULL,            /* Set later  */
    GADGIMMEDIATE,
    WDRAGGING,        /* Observe the Magic!  */
    NULL,            /* Set later  */
    NULL, NULL, NULL, NULL,
    0, 0
};

static struct NewWindow windef = {
    0, 0, 0, 0,        /* Set later  */
    -1, -1,
    GADGETDOWN,
    BORDERLESS | SMART_REFRESH | NOCAREREFRESH,
    &gadget,
    NULL, NULL, NULL, NULL,    /* Lotsa these  */
    0, 0, 0, 0,
    WBENCHSCREEN
};

static struct Window *win;

#ifdef USE_FUNCTIONS
static struct timerequest *tr;
static struct MsgPort *reply;
#endif


iconify(left, top, width, height, screen, ptr, type)
    UWORD          *left, *top, width, height;
    struct Screen  *screen;
    APTR            ptr;
    int             type;
{
    register struct IntuiMessage *msg;
    long            secs = 0, mics = 0, cs, cm, class, sigmask;

    windef.LeftEdge = *left;
    windef.TopEdge = *top;
    windef.Width = width;
    windef.Height = height;
    windef.Type = (windef.Screen = screen) ? CUSTOMSCREEN : WBENCHSCREEN;

    gadget.Flags = GADGHCOMP | GRELWIDTH | GRELHEIGHT;

    switch (type & 3) {
    case ICON_IMAGE:
        gadget.Flags |= GADGIMAGE;
    case ICON_BORDER:
        gadget.GadgetRender = ptr;
        break;

    case ICON_FUNCTION:
#ifdef USE_FUNCTIONS
        gadget.GadgetRender = NULL;
#else
        return (0);
#endif
        break;

    default:
        return (0);
    }

    if (!openstuff())
        return (0);
    sigmask = 1L << win->UserPort->mp_SigBit;

#ifdef USE_FUNCTIONS
    if (type == ICON_FUNCTION) {
        sigmask |= 1L << reply->mp_SigBit;
        tr->tr_node.io_Command = TR_ADDREQUEST;
        tr->tr_time.tv_secs = 0;
        tr->tr_time.tv_micro = (1000000L / TPS);
        SendIO((struct IORequest *) tr);
        /*
         * Make initialization call to user's function. Isn't
         * typecasting wonderful?  :-|
         */
        (*((void (*) ()) ptr)) (win, (WORD) 1);
    }
#endif

    while (1) {
        Wait(sigmask);

#ifdef USE_FUNCTIONS
        if (GetMsg(reply)) {
            /*
             * Call user's function to do something to the icon.
             */
            (*((void (*) ()) ptr)) (win, (WORD) 0);
            tr->tr_time.tv_secs = 0;
            tr->tr_time.tv_micro =
                (1000000L / TPS);
            SendIO((struct IORequest *) tr);
        }
#endif

        if (msg = (struct IntuiMessage *) GetMsg(win->UserPort)) {
            class = msg->Class;
            cs = msg->Seconds;
            cm = msg->Micros;
            ReplyMsg((struct Message *) msg);

            if (class == GADGETDOWN) {
                if (DoubleClick(secs, mics, cs, cm))
                    break;
                secs = cs;
                mics = cm;
            }
        }
    }

#ifdef USE_FUNCTIONS
    if (type == ICON_FUNCTION) {
        AbortIO((struct IORequest *) tr);
        WaitIO((struct IORequest *) tr);
    }
#endif

    *left = win->LeftEdge;
    *top = win->TopEdge;
    closestuff();
    return (1);
}

static
openstuff()
{
    if (!(win = OpenWindow(&windef)))
        return (0);
    win->UserData = (BYTE *) ICON;

#ifdef USE_FUNCTIONS
    if (!(reply = CreatePort(NULL, NULL)) ||
        !(tr = (struct timerequest *) CreateExtIO(reply, (long) sizeof(*tr))) ||
        OpenDevice(TIMERNAME, (long) UNIT_VBLANK, (struct IORequest *) tr, 0L)) {
        closestuff();
        return (0);
    }
#endif

    return (1);
}

static          VOID
closestuff()
{
#ifdef USE_FUNCTIONS
    if (tr) {
        if (tr->tr_node.io_Device)
            CloseDevice((struct IORequest *) tr);
        DeleteExtIO((struct IORequest *) tr, (long) sizeof(*tr));
    }
    if (reply)
        DeletePort(reply);
#endif

    if (win)
        CloseWindow(win);
}
#else
#include "nullfile.h"
#endif