home *** CD-ROM | disk | FTP | other *** search
- on maccopyLogo
- global name_logo, logoPath
- openXLib(":Xtras:macxtra:filextra")
- set fileName to the pathName & logoPath & name_logo
- if fileName > EMPTY then
- set loc to "desktop folder:"
- set wFileName to FileSaveAsDialog(loc, name_logo, "Save As")
- if wFileName > EMPTY then
- set result to CopyFile(fileName, wFileName)
- end if
- end if
- closeXLib(":Xtras:macxtra:filextra")
- end
-