home *** CD-ROM | disk | FTP | other *** search
/ Games Central GT Digital… Q3 Premier Trimestre '98 / GT_DPK.ISO / pc / data / menu.dxr / 00118.ls < prev    next >
Encoding:
Text File  |  1995-08-25  |  975 b   |  34 lines
  1. on textcopy
  2.   if the platform contains "Mac" then
  3.     mactextcopy()
  4.   else
  5.     openXLib("Xtras\filecopy")
  6.     set fileName to the pathName & "text\" & the name of cast the mouseCast
  7.     if fileName > EMPTY then
  8.       set wFileName to doSaveAsDlg(the pathName & "text\" & the name of cast the mouseCast, "Word@*.rtf")
  9.       if wFileName > EMPTY then
  10.         set result to CopyFile(wFileName, fileName)
  11.         put result
  12.       end if
  13.     end if
  14.     closeXLib("Xtras\filecopy")
  15.   end if
  16. end
  17.  
  18. on mactextcopy
  19.   openXLib(":Xtras:macxtra:filecopy")
  20.   set fileName to the pathName & "text:" & the name of cast the mouseCast
  21.   if fileName > EMPTY then
  22.     put fileName
  23.     set loc to "desktop folder:"
  24.     set wFileName to doSaveAsDlg(loc & the name of cast the mouseCast, "word files@*.rtf")
  25.     if wFileName > EMPTY then
  26.       put wFileName
  27.       set result to CopyFile(wFileName, fileName)
  28.       put result
  29.     end if
  30.   end if
  31.   closeXLib(":Xtras:macxtra:filecopy")
  32.   abort()
  33. end
  34.