[futurebasic] Still having problems launching urls

Message: < previous - next > : Reply : Subscribe : Cleanse
Home   : August 2004 : Group Archive : Group : All Groups

From: Brian Heibert <bheibert@...>
Date: Sun, 22 Aug 2004 21:16:32 -0500
I have the following errors with the code below

Error: Unknown Statement: 'CFStringRef '
in file TBASIC.proj:TBASIC.MAIN at line 32 in hasSpeechMgr
€CFStringRef €URLString,¬
Error: Functions must be defined before using...
in file TBASIC.proj:TBASIC.MAIN at line 44 in LSLaunchURL
€urlRef = fn CFURLCreateWithString€( _nil, fn CFSTR( urlStr ), _nil )
Error: Array Variable 'CFRELEASE' not an array or undimensioned
in file TBASIC.proj:TBASIC.MAIN at line 47 in LSLaunchURL
€CFRelease(€ urlRef )
Error: Unknown Statement: 'CFRelease( '
in file TBASIC.proj:TBASIC.MAIN at line 47 in LSLaunchURL
€CFRelease( €urlRef )
Error: The TOOLBOX statement may not be nested inside the definition of any
FN's (LOCAL, PASCAL etc...).
in file TBASIC.proj:TBASIC.MAIN at line 148 in doMenus
€toolbox fn€ CFURLCreateWithString ( CFAllocatorRef allocator,¬
Error: Unknown Parameter type
in file TBASIC.proj:TBASIC.MAIN at line 149 in doMenus
€toolbox fn CFURLCreateWithString ( CFAllocatorRef allocator,¬€
Error: Missing = type
in file TBASIC.proj:TBASIC.MAIN at line 149 in doMenus
€toolbox fn CFURLCreateWithString ( CFAllocatorRef allocator,¬€



dim err
CFStringRef URLString,¬
                                CFURLRef baseURL ) = CFURLRef

toolbox fn LSOpenCFURLRef ( CFURLRef inURL,¬
                    CFURLRef *outLaunchedURL ) = OSStatus


local fn LSLaunchURL( urlStr as str255 )
'~'1
dim as OSStatus  stat
dim as CFURLRef  urlRef

urlRef = fn CFURLCreateWithString( _nil, fn CFSTR( urlStr ), _nil )
long if ( urlRef )
stat = fn LSOpenCFURLRef( urlRef, #_nil )
CFRelease( urlRef )
end if

end fn = stat