19 lines
256 B
Text
19 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
|