Read entire file: Difference between revisions

m
Line 867:
 
HandleEvents</lang>
This can be shortened considerably by wrapping Objective-C code:
<pre>
include "ConsoleWindow"
 
local fn ReadTextFile
dim as CFURLRef fileRef
dim as CFStringRef cfStr : cfStr = NULL
 
if ( files$( _CFURLRefOpen, "TEXT", "Select text file...", @fileRef ) )
BeginCCode
cfStr = (CFStringRef)[[NSString alloc] initWithContentsOfURL:(NSURL *)fileRef encoding:NSUTF8StringEncoding error:nil];
EndC
fn HIViewSetText( sConsoleHITextView, cfStr )
CFRelease( cfStr )
else
// User canceled
end if
end fn
fn ReadTextFile
</pre>
 
=={{header|Gambas}}==
408

edits