home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Club Amiga de Montreal - CAM
/
CAM_CD_1.iso
/
files
/
640a.lha
/
FontConverter
/
Source.LZH
/
Source
/
Example1.c
next >
Wrap
C/C++ Source or Header
|
1992-04-26
|
2KB
|
89 lines
/************************************************************************/
/* */
/* Compiler: DICE */
/* */
/* Compilerusage: */
/* */
/* DCC -oExample1 Example1.c Font.c Font1.c */
/* */
/************************************************************************/
#include <intuition/intuition.h>
extern struct IntuitionBase *IntuitionBase;
extern struct GfxBase *GfxBase;
extern struct TextFont Ruby12Font;
extern struct TextFont Garnet9Font;
struct Window *win;
struct RastPort *rp;
struct IntuiMessage *mes;
struct TextAttr attr_Ruby12,attr_Garnet9;
struct NewWindow nwin =
{
30,15,265,52,0,1,CLOSEWINDOW,ACTIVATE|WINDOWCLOSE|RMBTRAP,
NULL,NULL,"<- Click to close",NULL,NULL,0,0,0,0,WBENCHSCREEN
};
struct IntuiText text1 =
{
1,0,JAM1,20,17,&attr_Ruby12,"This is an exampletext.",NULL
};
struct IntuiText text2 =
{
1,0,JAM1,20,35,&attr_Garnet9,"Output with PrintIText().",&text1
};
ULONG mesclass;
dummy()
{
_waitwbmsg();
}
_main()
{
win=(struct Window *)OpenWindow(&nwin);
rp=win->RPort;
FontInit_Ruby12();
SetFont(rp,&Ruby12Font);
AddFont(&Ruby12Font);
AskFont(rp,&attr_Ruby12);
FontInit_Garnet9();
SetFont(rp,&Garnet9Font);
AddFont(&Garnet9Font);
AskFont(rp,&attr_Garnet9);
PrintIText(rp,&text2,0,0);
for(;;)
{
if(mes=(struct IntuiMessage *)GetMsg(win->UserPort))
{
mesclass=mes->Class;
ReplyMsg(mes);
if(mesclass==CLOSEWINDOW)
{
close_all();
exit(0);
}
}
}
}
close_all()
{
RemFont(&Ruby12Font);
RemFont(&Garnet9Font);
CloseWindow(win);
}