PRB: Apple Guide Help Files Need Type of HELP

RESOLUTION

   \* kbon
   CLEAR
   SET HELP TO    && set HELP back to the default help file
   SET LIBRARY TO SYS(2004)+"Foxtools.cfm"
   cType=""
   cCreator=""

   * The next command only displays Apple Guides that have a type
   * of "poco." See Help for GETFILE() for information about
   * changing what files are displayed.

   cFileName=SYS(2027,GETFILE("", ;
    "Check 'All Files' if the file you want doesn't appear","OK",0,"poco"))

   =FxFileType(cFileName,@cType,@cCreator)

   ? "The File Type was "+'"'+cType+'"'
   ? "The File Creator was "+'"'+cCreator+'"'

   nCool=FxSetType(cFileName,"help","reno")

   IF nCool=0
       =FxFileType(cFileName,@cType,@cCreator)
       ? "The File Type is now "+'"'+cType+'"'
       ? "The File Creator is now "+'"'+cCreator+'"'
   ELSE
       ? "There was an error"
       ? "The operating system error number is "+STR(nCool)
   ENDIF
   \* kboff