Path: utzoo!utgpu!water!watmath!clyde!att!mtunx!rutgers!gatech!bloom-beacon!tut.cis.ohio-state.edu!husc6!necntc!primerd!hobbiton!tran
From: tran@hobbiton.prime.com
Newsgroups: comp.sys.amiga.tech
Subject: Re: Font help needed
Message-ID: <62300003@hobbiton>
Date: 8 Jun 88 17:36:00 GMT
References: <62300001@hobbiton>
Lines: 49
Nf-ID: #R:hobbiton:62300001:hobbiton:62300003:000:1646
Nf-From: hobbiton.prime.com!tran    Jun  8 13:36:00 1988


[This line brought to through the miracle of modern science.....]

Aaugh!  I'm gonna start pulling hair soon!  The following is what I do.
All definitions are supplied below, as well as the EXACT code:
-------------------------------------------------------------------------------

VAR
   Gfx, Intu, Dfon : LibraryPtr;
   ft              : TextFontPtr;
   ta              : TextAttr;
   win             : WindowPtr;

BEGIN
   Gfx := OpenLibrary(ADR("graphics.library"),0);   (* Just in case *)
   Intu := OpenLibrary(ADR("intuition.library"),0); (* Just in case *)
   Dfon := OpenLibrary(ADR("diskfont.library"),0);  

   (* Code ommited to check and see if every library opened ok.  When I
      run this bugger, everything opens as required *)

   (* But just in case, the way I check is:
      IF (Dfon = NIL) THEN .... (error) *)

   ta.taName := ADR("diamond.font");
   ta.taSize := 20;
   ta.taStyle := FontStyleSet{};
   ta.taFlags := FontFlagsSet{};

   ft := OpenDiskFont(ta);
   SetFont(win^.RPort^,ft^);

   .
   .
   .
   
-------------------------------------------------------------------------------

Now, the code drops dead at the OpenDiskFont call.  What am I doing wrong?
As far as I can see, it should work.  I have added all your responses so far
(diamond.font in lowercase, adding the diskfont.library, etc) but still this
turkey refuses to fly.

Any clues, hints, pointing fingers?
===============================================================================
Burton Choinski                                             Prime Computer Inc.
tran@hobbiton.prime.com     
        - or -
choinski@hobbiton.prime.com