/******************************************************************
** asl.c: Affiche la requète ASL permettant le choix de la fonte **
**        Écrit par T.Pierron                                    **
**        15-03-1999                                             **
******************************************************************/


#include <Intuition/Intuition.H>
#include <Intuition/IntuitionBase.H>
#include <Libraries/ASL.H>
#include <Dos/DosASL.H>

extern struct IntuitionBase *IntuitionBase;
extern struct AslBase *AslBase;
extern struct Window *window;
struct FontRequester	*FR=NULL;

/* ASL Font requester tags: */
ULONG FileTags[] = {
	ASLFO_Window,NULL,
	ASLFO_Screen,NULL,
	ASLFO_SleepWindow,TRUE,
	ASLFO_TitleText,(ULONG) "Choix de la fonte",
	ASLFO_MaxHeight,255,
	TAG_DONE
};

/* Try to open a ASL font requester: */
struct TTextAttr *open_asl()
{
	FileTags[1] = (ULONG) window;
	FileTags[3] = (ULONG) IntuitionBase->ActiveScreen;

	if(!FR)
		if( !(FR = (void *) AllocAslRequest(ASL_FontRequest,NULL)) ) {
			puts("Impossible d'ouvrir la requète ASL!");
			return NULL;
		}

	if( AslRequest((APTR) FR,FileTags) )
		return &FR->fo_TAttr;
	else
		return NULL;
}

struct IntuiText MsgTxt={ 0,0,JAM1,0,0,NULL,NULL,0};
struct IntuiText Ack={ 0,0,JAM1,0,0,NULL,"Choisir",0};
struct IntuiText Nac={ 0,0,JAM1,0,0,NULL,"Quitter",0};

BYTE avert(UBYTE *msg)
{
	MsgTxt.IText=msg;
	return AutoRequest( window,&MsgTxt,AslBase?&Ack:NULL,&Nac,NULL,NULL,320,72 );
}