28 lines
685 B
Plaintext
28 lines
685 B
Plaintext
include "ConsoleWindow"
|
|
|
|
local fn ReadTextFile
|
|
dim as CFURLRef fileRef
|
|
dim as Handle h
|
|
dim as CFStringRef cfStr : cfStr = NULL
|
|
dim as long fileLen
|
|
|
|
if ( files$( _CFURLRefOpen, "TEXT", "Select text file...", @fileRef ) )
|
|
open "i", 2, fileRef
|
|
fileLen = lof( 2, 1 )
|
|
h = fn NewHandleClear( fileLen )
|
|
if ( h )
|
|
read file 2, [h], fileLen
|
|
close #2
|
|
cfStr = fn CFStringCreateWithBytes( _kCFAllocatorDefault, #[h], fn GetHandleSize(h), _kCFStringEncodingMacRoman, _false )
|
|
fn DisposeH( h )
|
|
end if
|
|
else
|
|
// User canceled
|
|
end if
|
|
|
|
fn HIViewSetText( sConsoleHITextView, cfStr )
|
|
CFRelease( cfStr )
|
|
end fn
|
|
|
|
fn ReadTextFile
|