Sub pullNativeDocs(aCREA As string)
  Var result as Integer
  Var m, k as memoryBlock
  Var f as folderItem
  Var newType as string
  Var anIcon As picture
  Var ofs as Integer
  
  Declare Function GetFileTypesThatAppCanNativelyOpen Lib "Carbon" (appVRefNumHint as Short, appSignature as OSType, nativeTypes as Ptr) as Short Inline68K("701CABFC")
  Declare Function GetDocumentKindString Lib "Carbon" (docVRefNum as Short, docType as OSType, docCreator as OSType, kindString as ptr) as Short Inline68K("7016ABFC")
  
  listBox1.deleteAllRows
  
  m = newMemoryBlock(1024)
  result = GetFileTypesThatAppCanNativelyOpen(Volume(0).MacVRefNum, aCREA, m)
  if result <> 0 then
    listBox1.addRow "<Not found.>"
    return
  end if
  
  do
    if m.byte(ofs*4) = 0 then
      exit
    else
      newType = m.OSTypeMBS(ofs*4)
      listBox1.addRow newType
      k = newMemoryBlock(64)
      result = GetDocumentKindString(Volume(0).MacVRefNum, newType, aCREA, k)
      if result = 0 then
        listBox1.cell(ofs,1) = k.pString(0)
        ofs = ofs + 1
      else
        listBox1.cell(ofs,1) = "(unknown)"
      end if
      
    end if
  loop
  
End Sub