18 lines
256 B
Text
18 lines
256 B
Text
include "NSLog.incl"
|
|
|
|
void local fn Doit
|
|
NSLog(@"")
|
|
CFURLRef url = openpanel 1
|
|
if ( url )
|
|
open @"I", 1, url
|
|
while ( !eof(1) )
|
|
CFStringRef s = line input 1
|
|
NSLog(@"%@",s)
|
|
wend
|
|
close 1
|
|
end if
|
|
end fn
|
|
|
|
fn DoIt
|
|
|
|
HandleEvents
|