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