Herbie Gluender wrote:
> 
> In his kind and helpful reply to a request of Steven J. Stratford, Alain
> Pastor used the following line of code:
> 
> LONG IF FN PBOpenWDSync(pb) = _noErr
> 
> Could we please see another Toolbox Function here?
> As you all know, i'm alergic to WDs!
> (I don't have the time to investigate this case yet.)
> 
Hello Herbie,

I know of your allergy and I'm adhering to your view since the
aforementioned Toolbox call is not in Carbon.
I admit easily that my solution was really ugly, actually there is a
more appropriate Toolbox call just to do what I did. If you don't
want to use working directory reference numbers, it should be
possible to stick with FSSpecs, then the code shouldn't break in
Carbon any longer.

Here is a new entry (again I'm not sure it is correct and there
might be a better way to do this):

local fn GetFSSpecFromAliasFolder( theSpec AS PTR TO FSSpec )
dim as boolean @ targetIsFolder, wasAliased

long if fn
ResolveAliasFile(#theSpec,_true,targetIsFolder,wasAliased) = _noErr
if targetIsFolder and wasAliased then exit fn
end if
fldSpec.name = ""
end fn


// below is a program for testing purpose

window 1

dim as FSSpec fSpec
dim as str63  aliasFolderName, textFileName
dim as str255 path ,tp

aliasFolderName = "XXXX"'<= replace with the name of your aliased folder
textFileName    = "YYYY"'<= replace with the name of your text file

long if fn FSMakeFSSpec(system(_aplVol),0,aliasFolderName,fSpec) = _noErr
fn GetFSSpecFromAliasFolder(fSpec)
long if fSpec.name != ""

path = ":" + fSpec.name+ ":" + textFileName
open "i",1,path,,fSpec.vRefNum,fSpec.parID

while not(eof(1))
line input# 1,tp'<= I can't believe I'm using this!
print tp
wend
close #1
end if
end if
do
handleevents
until fn button

> Thanks for all your marvellous contributions Alain!
> 
I don't know what to say, certainly thank to you and also you should
not play with big words like that!

> With my very best regards,
> 
> Herbie
> *************************************************
> H.Glu@...
> 
> PS: What did you do with the defective RAM. Could you return it to the dealer?

Yes, they will exchange the defective RAM.
Such a pain in the tuckus! (I don't know what that means precisely
and I'm not sure of the typo, it's just an expression I've read here
two years ago, but I feel it fits perfectly in my case whatever that
may be).
At least, now I'm enjoying MacOS 9.2.1 with no more reboot. It
appears to run significantly faster than MacOS 9.04, well, it is
also possible that I'm dreaming it just to get the feeling of a
reward. I'll install MacOS X when I get the new RAM, I think.

-- 

Cheers

Alain

-----------------------------------------------------
FB^3 in Europe:  http://euro.futurebasic.com/
FB II Pouch:     http://www.pixmix.com/FB/outils.html
-----------------------------------------------------