More style issues

[wxWidgets.git] / docs / mac / M5xml2mcp.applescript

diff --git a/docs/mac/M5xml2mcp.applescript b/docs/mac/M5xml2mcp.applescript
index 9d993d6e747a5a86e35b21fd9f06f6f750a9ebcd..d1eb0e3a1fe238299c764183a30d0d70bf9e43dc 100644 (file)
--- a/docs/mac/M5xml2mcp.applescript
+++ b/docs/mac/M5xml2mcp.applescript
@@ -40,6 +40,8 @@ tell me to display dialog "Imported " & theXmlSuccessCount & " xml files out of
 on ImportProjects(inFolder)
        global theXmlCount, theXmlSuccessCount
        
 on ImportProjects(inFolder)
        global theXmlCount, theXmlSuccessCount
        

+       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
        try
                tell application "Finder" to set theXml to ((the first file of inFolder whose name ends with gXmlSuffix) as string)
        on error


@@ -78,7 +80,7 @@ on ImportProjects(inFolder)
                end tell
        end if
        
                end tell
        end if
        

-       tell application "Finder" to set theSubFolders to every folder of inFolder
+       tell application "Finder" to set theSubFolders to every folder of inFolder whose name does not end with " Data"

        repeat with theFolder in theSubFolders
                ImportProjects(theFolder)
        end repeat
        repeat with theFolder in theSubFolders
                ImportProjects(theFolder)
        end repeat