/*
    (C) 1997 AROS - The Amiga Replacement OS
    $Id: freevisualinfo.c,v 1.3 1997/07/01 19:20:59 srittau Exp $

    Desc:
    Lang: english
*/
#include <proto/exec.h>
#include <proto/intuition.h>
#include "gadtools_intern.h"

/*********************************************************************

    NAME */
#include <proto/gadtools.h>

	AROS_LH1(void, FreeVisualInfo,

/*  SYNOPSIS */
	AROS_LHA(APTR, vi, A0),

/*  LOCATION */
	struct Library *, GadToolsBase, 22, GadTools)

/*  FUNCTION
	FreeVisualInfo() frees a visual info structure created with
	GetVisualInfo().

    INPUTS
	vi - the visual info structure to free, may be NULL.

    RESULT

    NOTES

    EXAMPLE

    BUGS

    SEE ALSO
	GetVisualInfo()

    INTERNALS

    HISTORY

***************************************************************************/
{
    AROS_LIBFUNC_INIT
    AROS_LIBBASE_EXT_DECL(struct GadToolsBase *,GadToolsBase)

    if (!vi)
        return;

    FreeScreenDrawInfo(((struct VisualInfo *)vi)->vi_screen, ((struct VisualInfo *)vi)->vi_dri);
    FreeVec(vi);

    AROS_LIBFUNC_EXIT
} /* FreeVisualInfo */