/*-- AutoRev header do NOT edit!
*
*   Program         :   Messages.c
*   Copyright       :   Copyright © 1991-92 Jaba Development
*   Author          :   Jan van den Baard
*   Creation Date   :   04-Apr-92
*   Current version :   2.0
*   Translator      :   Dice v2.06.40
*
*   REVISION HISTORY
*
*   Date          Version         Comment
*   ---------     -------         ------------------------------------------
*   04-Apr-92     2.0             Message routines. (rewrite)
*
*-- REV_END --*/

#include "View.h"

Prototype long ReadMsgPort( struct MsgPort * );
Prototype void ClearMsgPort( struct MsgPort * );

ULONG                   vwClass;
UWORD                   vwCode, vwQualifier;

long ReadMsgPort( struct MsgPort *port )
{
    struct IntuiMessage *msg;

    if ( msg = GT_GetIMsg( port )) {

        vwClass     = msg->Class;
        vwCode      = msg->Code;
        vwQualifier = msg->Qualifier;

        GT_ReplyIMsg( msg );

        return( TRUE );
    }

    return( FALSE );
}

void ClearMsgPort( struct MsgPort *port )
{
    struct Message  *msg;

    Forbid();
    while( msg = GetMsg( port )) ReplyMsg( msg );
    Permit();
}