home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Fish 'n' More 2
/
fishmore-publicdomainlibraryvol.ii1991xetec.iso
/
dirs
/
intuitioned_377.lzh
/
IntuitionEd
/
DiskFont.c
< prev
next >
Wrap
C/C++ Source or Header
|
1990-10-10
|
4KB
|
136 lines
/*-----------------------------------------------------------
-- Program: DiskFont.c
-- Author: Intuition Ed
-- Date: Thu May 24
-- Funktion: Example of how to display a DiskFont.
-- A 'ruby.font' is opend.
-- Therefore it must be in the current Font directory.
------------------------------------------------------------*/
#include <intuition/intuition.h>
void Open_All() ;
void Close_All();
struct IntuitionBase *IntuitionBase;
struct GfxBase *GfxBase;
ULONG *DiskfontBase;
struct Window *Window;
struct Font *Text1Font;
struct TextAttr Text1TextAttr =
{
(STRPTR) "ruby.font", /* ta_Name */
15, /* ta_YSize */
NULL, /* ta_Style */
FPF_DISKFONT , /* ta_Flags */
};
struct IntuiText Text1 =
{
-1, -1, /* FrontPen , BackPen */
JAM1, /* DrawMode */
20, 20, /* LeftEdge , TopEdge */
&Text1TextAttr , /* TextAttr */
(UBYTE *) "ruby.font (15)", /* Text */
NULL, /* Last Text ! */
};
struct NewWindow NewWindow =
{
10, 20, /* LeftEdge , TopEdge */
300, 50, /* Width , Height */
0, 1, /* DetailPen , BlockPen */
NULL, /* IDCMP Flags */
WINDOWSIZING /* Flags */
| WINDOWDRAG | WINDOWDEPTH | SMART_REFRESH | ACTIVATE,
NULL, /* No Gadget */
NULL, /* Check Mark */
(UBYTE *) "Example of a DiskFont :", /* Title */
NULL, /* Screen */
NULL, /* BitMap */
100, 20, /* MinWidth , MinHeight */
640,256, /* MaxWidth , MaxHeight */
WBENCHSCREEN, /* ScreenType */
};
void main()
{
Open_All();
Delay(1000L);
Close_All();
}
void Open_All()
{
void PrintIText();
struct Window *OpenWindow();
struct Font *OpenDiskFont();
void *OpenLibrary();
if (NOT(IntuitionBase = (struct IntuitionBase *)
OpenLibrary ("intuition.library", 0L)))
{
printf("Where is my Intuition Library ??");
Close_All();
exit(FALSE);
}
if (NOT(GfxBase = (struct GfxBase *)
OpenLibrary("graphics.library",0L)))
{
printf("No Grafik Library found.");
Close_All();
exit(FALSE);
}
if (NOT(DiskfontBase = (ULONG *)
OpenLibrary("diskfont.library",0L)))
{
printf("No DiskFont Library found.");
Close_All();
exit(FALSE);
}
if (NOT(Window = (struct Window *)
OpenWindow (&NewWindow )))
{
printf("Window - WB-Window can't be displayed.\n");
Close_All();
exit(FALSE);
}
if (NOT(Text1Font = (struct Font *)
OpenDiskFont (&Text1TextAttr)))
{
printf("The DiskFont Text1Font can't be opend.\n");
Close_All();
exit(FALSE);
}
SetFont (Window->RPort,Text1Font);
PrintIText (Window->RPort,&Text1,0L,0L);
}
void Close_All()
{
void CloseWindow();
void CloseLibrary();
if (Text1Font) CloseFont(Text1Font);
if (Window) CloseWindow (Window) ;
if (GfxBase) CloseLibrary(GfxBase);
if (DiskfontBase) CloseLibrary(DiskfontBase);
if (IntuitionBase) CloseLibrary(IntuitionBase);
}