[futurebasic] working with resources in Carbon

Message: < previous - next > : Reply : Subscribe : Cleanse
Home   : March 2002 : Group Archive : Group : All Groups

From: MoorePrint@...
Date: Mon, 11 Mar 2002 21:12:12 EST
This doesn't seem to work in Carbon, but fine in standard basic. How do I 
change this for Carbon?

LOCAL FN updateStr
'-------------------------------------
DIM res3hnl&,oldRefNum%,resfile%

oldRefNum%=FN CURRESFILE
resfile%=USR OPENRFPERM("customers",volRefNum%,_fsRdPerm)
res3hnl&=FN pGget1Res(_"STR#",_CustomersListSTR,resfile%)

LONG IF res3hnl&
CALL USERESFILE (gResRef)
FN pGreplaceRes(res3hnl&,_"STR#",_CustomersListSTR,"")
FN pGreplaceRes(res3hnl&,_"STR#",_CustomersList1STR,"")
END IF

CALL CLOSERESFILE (resfile%)
flushnm$="customers"
flerr%=FN pbFlushVol(flushnm$,volRefNum%)
CALL USERESFILE (oldRefNum%)
'---------------------------------------

END FN