Fix so the value given to wxTextEntryDialog::SetValue will actually be

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

diff --git a/docs/mac/M5mcp2xml.applescript b/docs/mac/M5mcp2xml.applescript
index 6902cfb38327547ae05a30ee4ead2306d9669a3a..9a7179c4f58a83c36566fcf7f06a27b0215e886e 100644 (file)
--- a/docs/mac/M5mcp2xml.applescript
+++ b/docs/mac/M5mcp2xml.applescript
@@ -40,6 +40,8 @@ tell me to display dialog "Exported " & theProjectSuccessCount & " projects out
 on ExportProjects(inFolder)
        global theProjectCount, theProjectSuccessCount
        
 on ExportProjects(inFolder)
        global theProjectCount, theProjectSuccessCount
        

+       tell application "Finder" to update inFolder
+       

        try
                tell application "Finder" to set theProject to ((the first file of inFolder whose name ends with gProjectSuffix) as string)
        on error
        try
                tell application "Finder" to set theProject to ((the first file of inFolder whose name ends with gProjectSuffix) as string)
        on error


@@ -82,7 +84,7 @@ on ExportProjects(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
                ExportProjects(theFolder)
        end repeat
        repeat with theFolder in theSubFolders
                ExportProjects(theFolder)
        end repeat