declare function objc_getClass lib "libobjc.dylib" ( name as CString ) as ptr
Declare Function sharedWorkspace Lib "AppKit" selector "sharedWorkspace" ( obj As ptr ) As ptr
declare function selectFile lib "AppKit" selector "selectFile:inFileViewerRootedAtPath:" ( obj as ptr, fPath as CFStringRef, rootFullPath as CFStringRef ) as boolean
dim workspace as ptr = sharedWorkspace( objc_getClass( "NSWorkspace" ) )
call selectFile( workspace, f.NativePath, "")