home *** CD-ROM | disk | FTP | other *** search
/ Games Central GT Digital… Q3 Premier Trimestre '98 / GT_DPK.ISO / pc / data / menu.dxr / 00136.ls < prev    next >
Encoding:
Text File  |  1995-08-25  |  693 b   |  23 lines
  1. on xtracopyLogo
  2.   global logoPath, name_logo
  3.   set name_logo to the name of member the mouseMember
  4.   if the platform contains "Mac" then
  5.     maccopyLogo()
  6.   else
  7.     openXLib("Xtras\filecopy")
  8.     if (the platform contains "Windows, 16") and (name_logo > 11) then
  9.       set name_logo to chars(name_sprite, 1, 8) & ".tif"
  10.     end if
  11.     set fileName to the pathName & logoPath & name_logo
  12.     put fileName
  13.     if fileName > EMPTY then
  14.       set wFileName to doSaveAsDlg(the pathName & logoPath & name_logo, "Tiffs@*.tif")
  15.       if wFileName > EMPTY then
  16.         set result to CopyFile(wFileName, fileName)
  17.         put result
  18.       end if
  19.     end if
  20.     closeXLib("Xtras\filecopy")
  21.   end if
  22. end
  23.