| | 1 | --------------------------------------------------------------------------------- |
| | 2 | -- Name: docs/mac/SetXMLCreator.applescript |
| | 3 | -- Purpose: Sets the creator types of the XML files |
| | 4 | -- Author: Ryan Wilcox |
| | 5 | -- Modified by: |
| | 6 | -- Created: 2004-03-30 |
| | 7 | -- RCS-ID: $Id$ |
| | 8 | -- Copyright: (c) 2004 Ryan Wilcox |
| | 9 | -- Licence: wxWindows licence |
| | 10 | -- |
| | 11 | -- Press the run button and select the file you need (or, alternatively, save the |
| | 12 | -- script as an application drag-and-drop the files on top of it). |
| | 13 | --------------------------------------------------------------------------------- |
| | 14 | |
| | 15 | on run |
| | 16 | set myFile to choose file |
| | 17 | open ({myFile}) |
| | 18 | end run |
| | 19 | |
| | 20 | |
| | 21 | on open (fileList) |
| | 22 | |
| | 23 | repeat with each in fileList |
| | 24 | |
| | 25 | tell application "Finder" |
| | 26 | if name of each contains "M5" or name of each contains "M7" or name of each contains "M8" then |
| | 27 | set creator type of each to "CWIE" |
| | 28 | set file type of each to "TEXT" |
| | 29 | |
| | 30 | log "set" |
| | 31 | end if |
| | 32 | |
| | 33 | end tell |
| | 34 | end repeat |
| | 35 | end open |
| | 36 | |
projects / wxWidgets.git / blame_incremental