From: Dimitri Schoolwerth <dimitri.schoolwerth@gmail.com>
Date: Wed, 28 Apr 2004 22:03:15 +0000 (+0000)
Subject: convert all M8.mcp files in a folder, not just the first one
X-Git-Url: https://git.saurik.com/wxWidgets.git/commitdiff_plain/0ddda3009ee8d51c0bf71d009ef00d91dbc4cfba

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


git-svn-id: https://svn.wxwidgets.org/svn/wx/wxWidgets/trunk@26999 c3d73ce0-8a6f-49c7-b76d-6d57e0e08775
---

diff --git a/docs/mac/M8xml2mcp.applescript b/docs/mac/M8xml2mcp.applescript
index b0733cd814..7fdd1dfce0 100755
--- a/docs/mac/M8xml2mcp.applescript
+++ b/docs/mac/M8xml2mcp.applescript
@@ -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