home *** CD-ROM | disk | FTP | other *** search
/ Games Central GT Digital… Q3 Premier Trimestre '98 / GT_DPK.ISO / pc / data / menu.dxr / 00132.ls < prev    next >
Encoding:
Text File  |  1995-08-25  |  483 b   |  18 lines
  1. on maccopyartwork
  2.   global artworkPath, name_sprite
  3.   openXLib(":Xtras:macxtra:filextra")
  4.   set fileName to the pathName & artworkPath & name_sprite
  5.   if fileName > EMPTY then
  6.     put fileName
  7.     set loc to "desktop folder:"
  8.     set wFileName to FileSaveAsDialog(loc, name_sprite, "Save As")
  9.     if wFileName > EMPTY then
  10.       put wFileName
  11.       set result to CopyFile(fileName, wFileName)
  12.       put result
  13.     end if
  14.   end if
  15.   closeXLib(":Xtras:macxtra:filextra")
  16.   abort()
  17. end
  18.