| From: | David McMinn |
| Date: | 11 Jun 2001 at 12:20:35 |
| Subject: | Re: Odp: Fonts |
Hi Daniel
> I have problem with this. I looked into .font file and I saw something
> like this : Xen/9. Is that OK, or I should change this path? When I'm
That should be OK.
> showing them by ie. Filemaster (from another dir than FONTS:)
> evertythig is ok, but if I tried load them into my program (LoadFont
> 0,"PROGDIR:Fonts/Xen.font",9) nothing happend. Do I something wrong or
> it is soemthing with my system? It is no matter if I run program from
You definately have the files:
PROGDIR:Fonts/Xen.font
PROGDIR:Fonts/Xen/9
? Because that code should work. Have you checked what actually happens
using SnoopDos? I'm beginning to wonder if there is perhaps different
versions of the IntuiFont library with one version that works and another
that doesn't.
> executable file or from Blitz. I also can't make any assigns in my
> program. I'm using Assign NAME$,PATH$, but nothig happends. Even if I
> try to assign dir of my program to DH0:. I'm very confused with that.
> Once I tried to use system AssignPath_ ASSIGN$,PATH$ but when I did
> that system crashed.
Try this code from James Boyd's StatsFuncs collection:
; Function : OSAssign { assign name, path, type }
; Author : James L Boyd - jamesboyd@all-hail.freeserve.co.uk
; This function creates an assign and returns True if
; successful, false if not.
; The parameters are the assign name (eg. "MyAss:"), the
; path which this assign refers to (eg. "Work:Gfx/Pics"),
; and the type of assign - True (-1) for Path, or False (0)
; for a Late assign.
; Path assigns are activated immediately, Late assigns
; only activate when you try to use them (saves clogging
; up file/path requesters for a start :)
; I've called it OSAssign to avoid confusion with the BSS command
; Assign.
; Also, the function checks for the existence of the path
; you specify, since you CAN assign a name to a non-existent
; drawer! It returns False (0) if the path doesn't exist.
; Sore Point : Don't know how to remove it, except for :
; Execute_ "run >NIL: assign <assign> REMOVE",0,0
Function.b OSAssign {name$,path$,PathOrLate.b}
If Exists(path$)
Select PathOrLate
Case 0 ; LATE assign...starts when accessed.
If AssignLate_(&name$,&path$)
Function Return -1
Else Function Return 0
EndIf
Case -1 ; PATH assign...starts immediately.
If AssignPath_(&name$,&path$)
Function Return -1
Else Function Return 0
EndIf
Default
Function Return 0
End Select
Else Function Return 0
EndIf
End Function
; demo :
;; NOTE : To remove the assign after testing, go to the CLI and
;; type "assign MyAss: REMOVE" (without the quotes!).
; If OSAssign {"MyAss","SYS:C/",-1} ; -1=path assign...
; Request "","Success! MyAss: is assigned to the SYS:C/ drawer!","OK"
; Else Request "","Couldn't assign MyAss: !","OK"
; EndIf
; End
---------------------------------------------------------------------
To unsubscribe, e-mail: blitz-list-unsubscribe@netsoc.ucd.ie
For additional commands, e-mail: blitz-list-help@netsoc.ucd.ie