Amebis/wxWidgets
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

convert all M8.mcp files in a folder, not just the first one

Browse Source 
git-svn-id: https://svn.wxwidgets.org/svn/wx/wxWidgets/trunk@26999 c3d73ce0-8a6f-49c7-b76d-6d57e0e08775
This commit is contained in:
Dimitri Schoolwerth
2004-04-28 22:03:15 +00:00
parent c5a9960dab
commit 0ddda3009e
1 changed files with 4 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
docs/mac/M8xml2mcp.applescript
View File

@@ -42,13 +42,10 @@ on ImportProjects(inFolder)
tell application "Finder" to update inFolder
try
tell application "Finder" to set theXml to ((the first file of inFolder whose name ends with gXmlSuffix) as string)
on error
set theXml to ""
end try
tell application "Finder" to set theXmlList to (every file of inFolder whose name ends with gXmlSuffix)
if theXml is not "" then
repeat with theXml in theXmlList
set theXml to theXml as string
set theXmlCount to theXmlCount + 1
-- save the current text delimiters
@@ -78,7 +75,7 @@ on ImportProjects(inFolder)
tell me to display dialog "Error " & errnum & " importing " & theXml & " to " & theImport
end try
end tell
end if
end repeat
tell application "Finder" to set theSubFolders to every folder of inFolder whose name does not end with " Data"
repeat with theFolder in theSubFolders