![]() |
<< Index >> |
FutureBasic |
Appendix A - File Object Specifiers | appendix | |
|
include "Tlbx LSOpen.incl"
include "Tlbx CFBundle.incl"
include resources "ReadMe.txt" // file to be copied to <app>/Contents/Resources
local mode
local fn OpenReadMe( name as CFStringRef )
dim as CFBundleRef bundle
dim as CFURLRef url
bundle = fn CFBundleGetMainBundle()
if ( bundle )
url = fn CFBundleCopyResourceURL( bundle, name, 0, 0 )
if ( url )
fn LSOpenCFURLRef( url, NULL )
CFRelease( url )
end if
end if
end fn
fn OpenReadMe( @"ReadMe.txt" )
do
HandleEvents
until gFBQuit