20 lines
347 B
Text
20 lines
347 B
Text
include "NSLog.incl"
|
|
|
|
local fn ReadTextFile
|
|
CFURLRef url
|
|
CFStringRef string
|
|
|
|
url = openpanel 1, @"Select text file..."
|
|
if ( url )
|
|
string = fn StringWithContentsOfURL( url, NSUTF8StringEncoding, NULL )
|
|
if ( string )
|
|
NSLog(@"%@",string)
|
|
end if
|
|
else
|
|
// user cancelled
|
|
end if
|
|
end fn
|
|
|
|
fn ReadTextFile
|
|
|
|
HandleEvents
|