Changeset 74 for trunk/lingosource

Timestamp:

12/06/07 23:17:27 (4 years ago)

Author:

alex

Message:

consolidate beta branch to trunk try 1

Location:

trunk/lingosource

Files:

• castlib1/OSCmenu_Utilities.ls (modified) (24 diffs)
• castlib1/alexUtilities.ls (modified) (7 diffs)
• castlib1/bbedit_Utilities.ls (added)
• castlib1/convert_Lingo_2_CSS_Html.ls (modified) (1 diff)
• castlib1/memberInfo.xml (modified) (18 diffs)
• castlib1/svn_Utilities.ls (added)
• castlib2/FileIOFunktionen.ls (modified) (6 diffs)
• castlib2/GetSetPrefs.ls (modified) (2 diffs)
• castlib2/PseudoXMLPS.ls (modified) (6 diffs)
• castlib2/commonMovieScript.ls (modified) (3 diffs)
• castlib2/memberInfo.xml (modified) (7 diffs)

trunk/lingosource/castlib1/OSCmenu_Utilities.ls

@@ -22 +22 @@
   
   subli.add("Insert current date")
-  pLookUpCommandList.setaprop("Insert current date", "pasteDate me")
+  pLookUpCommandList.setaprop("Insert current date", ["pasteDate me", "alexUtilities"])
   
   subli.add("Insert divider")
-  pLookUpCommandList.setaprop("Insert divider", "pasteDivider me")
+  pLookUpCommandList.setaprop("Insert divider", ["pasteDivider me", "alexUtilities"])
   
   li.add("")
@@ -36 +36 @@
     
     subli.add("Edit in BBEdit")
-    pLookUpCommandList.setaprop("Edit in BBEdit", "mOpen_text_with_BBedit me")
+    pLookUpCommandList.setaprop("Edit in BBEdit", ["mOpen_text_with_BBedit me", "bbedit_Utilities"])
     
     subli.add("Open linked script")
-    pLookUpCommandList.setaprop("Open linked script", "mOpen_Linked_Script_With_BBedit me")
+    pLookUpCommandList.setaprop("Open linked script", ["mOpen_Linked_Script_With_BBedit me", "bbedit_Utilities"])
     
     subli.add("Diff selected script")
-    pLookUpCommandList.setaprop("Diff selected script", "mBBDiff_LiveCompare_SelectedScript me")
+    pLookUpCommandList.setaprop("Diff selected script", ["mBBDiff_LiveCompare_SelectedScript me", "bbedit_Utilities"])
     
     subli.add("Batch compare selected scripts")
-    pLookUpCommandList.setaprop("Batch compare selected scripts", "mCompareSelectedScriptmembersBatch me")
+    pLookUpCommandList.setaprop("Batch compare selected scripts", ["mCompareSelectedScriptmembersBatch me", "bbedit_Utilities"])
     
   end if
@@ -56 +56 @@
   
   subli.add("Choose file...")
-  pLookUpCommandList.setaprop("Choose file...", "mGetFilePathFromUser me")
+  pLookUpCommandList.setaprop("Choose file...", ["mGetFilePathFromUser me", "alexUtilities"])
   
   subli.add("Choose folder...")
-  pLookUpCommandList.setaprop("Choose folder...", "mGetFolderPathFromUser me")
+  pLookUpCommandList.setaprop("Choose folder...", ["mGetFolderPathFromUser me", "alexUtilities"])
   
   subli.add("Read text from file...")
-  pLookUpCommandList.setaprop("Read text from file...", "mGetTextFromFile me, filepath_optional")
+  pLookUpCommandList.setaprop("Read text from file...", ["mGetTextFromFile me, filepath_optional", "alexUtilities"])
   
   subli.add("Get file list from folder...")
-  pLookUpCommandList.setaprop("Get file list from folder...", "mGetFileList me, folderpath_optional")
+  pLookUpCommandList.setaprop("Get file list from folder...", ["mGetFileList me, folderpath_optional", "alexUtilities"])
   
   subli.add("Get folder list from folder...")
-  pLookUpCommandList.setaprop("Get folder list from folder...", "mGetFolderList me, folderpath_optional")
+  pLookUpCommandList.setaprop("Get folder list from folder...", ["mGetFolderList me, folderpath_optional", "alexUtilities"])
   
   
@@ -77 +77 @@
   
   subli.add("Read XML file...")
-  pLookUpCommandList.setaprop("Read XML file...", "mReadXML_2_List me")
+  pLookUpCommandList.setaprop("Read XML file...", ["mReadXML_2_List me", "alexUtilities"])
   
   subli.add("Export list to XML file...")
-  pLookUpCommandList.setaprop("Export list to XML file...", "mSaveList_2_XML me, theList")
+  pLookUpCommandList.setaprop("Export list to XML file...", ["mSaveList_2_XML me, theList", "alexUtilities"])
   
   
@@ -89 +89 @@
   
   subli.add("Convert to bitmap")
-  pLookUpCommandList.setaprop("Convert to bitmap", "mConvertToBitmap me")
+  pLookUpCommandList.setaprop("Convert to bitmap", ["mConvertToBitmap me", "alexUtilities"])
   
   
@@ -98 +98 @@
   
   subli.add("Find in GPDL...")
-  pLookUpCommandList.setaprop("Find in GPDL...", "mFindInGPDL me, str_optional")
+  pLookUpCommandList.setaprop("Find in GPDL...", ["mFindInGPDL me, str_optional", "alexUtilities"])
   
   subli.add("Select member in score...")
-  pLookUpCommandList.setaprop("Select member in score...", "mSelectInScore me, startframe_optional, endframe_optional")
+  pLookUpCommandList.setaprop("Select member in score...", ["mSelectInScore me, startframe_optional, endframe_optional", "alexUtilities"])
   
   li.add("")
@@ -112 +112 @@
   
   subli.add("Unlink bitmap members")
-  pLookUpCommandList.setaprop("Unlink bitmap members", "mUnlinkBitmaps me")
+  pLookUpCommandList.setaprop("Unlink bitmap members", ["mUnlinkBitmaps me", "alexUtilities"])
   
   subli.add("")
   subli.add("Link selected text...")
-  pLookUpCommandList.setaprop("Link selected text...", "mLinkSelectedText me")
+  pLookUpCommandList.setaprop("Link selected text...", ["mLinkSelectedText me", "alexUtilities"])
   
   subli.add("Update all linked texts")
-  pLookUpCommandList.setaprop("Update all linked texts", "mUpdateAllLinkedTexts me")
+  pLookUpCommandList.setaprop("Update all linked texts", ["mUpdateAllLinkedTexts me", "alexUtilities"])
   
   
@@ -128 +128 @@
   
   subli.add("Export selcetd text as...")
-  pLookUpCommandList.setaprop("Export selcetd text as...", "mExportSelectedText me, theType_optional")
+  pLookUpCommandList.setaprop("Export selcetd text as...", ["mExportSelectedText me, theType_optional", "alexUtilities"])
   
   subli.add("")
   subli.add("Export selected bitmaps...")
-  pLookUpCommandList.setaprop("Export selected bitmaps...", "mExportSelectedBMs me, theType_optional, compr_optional, thePath_optional")
+  pLookUpCommandList.setaprop("Export selected bitmaps...", ["mExportSelectedBMs me, theType_optional, compr_optional, thePath_optional", "alexUtilities"])
   
   subli.add("Export to bitmap...")
-  pLookUpCommandList.setaprop("Export to bitmap...", "mExportBM me, theMember, thePath_optional, theType_optional, compr_optional")
+  pLookUpCommandList.setaprop("Export to bitmap...", ["mExportBM me, theMember, thePath_optional, theType_optional, compr_optional", "alexUtilities"])
   
   
@@ -145 +145 @@
   
   subli.add("Delete Members By Name...")
-  pLookUpCommandList.setaprop("Delete Members By Name...", "mDeleteMembersByName me, startString")
+  pLookUpCommandList.setaprop("Delete Members By Name...", ["mDeleteMembersByName me, startString", "alexUtilities"])
   
   subli.add("")
   subli.add("Name Members...")
-  pLookUpCommandList.setaprop("Name Members...", "mNameMemberNames me, newName")
+  pLookUpCommandList.setaprop("Name Members...", ["mNameMemberNames me, newName", "alexUtilities"])
   
   subli.add("Prefix/Suffix Names...")
-  pLookUpCommandList.setaprop("Prefix/Suffix Names...", "mChangeMemName me, praefix, suffix")
+  pLookUpCommandList.setaprop("Prefix/Suffix Names...", ["mChangeMemName me, praefix, suffix", "alexUtilities"])
   
   subli.add("Make numbered names...")
-  pLookUpCommandList.setaprop("Make numbered names...", "mNumberMemberNames me, numberOfDigits, startnum, theDelimiter, stepSize")
+  pLookUpCommandList.setaprop("Make numbered names...", ["mNumberMemberNames me, numberOfDigits, startnum, theDelimiter, stepSize", "alexUtilities"])
   
   subli.add("Replace in name...")
-  pLookUpCommandList.setaprop("Replace in name...", "mReplaceInMemName me, searchstr, replacestring")
+  pLookUpCommandList.setaprop("Replace in name...", ["mReplaceInMemName me, searchstr, replacestring", "alexUtilities"])
   
   subli.add("")
   subli.add("Fill empty castslots with dummy members")
-  pLookUpCommandList.setaprop("Fill empty castslots with dummy members", "mFillDummyMember me")
+  pLookUpCommandList.setaprop("Fill empty castslots with dummy members", ["mFillDummyMember me", "alexUtilities"])
   
   subli.add("Erase dummy members")
-  pLookUpCommandList.setaprop("Erase dummy members", "mRemoveDummyMember me")
+  pLookUpCommandList.setaprop("Erase dummy members", ["mRemoveDummyMember me", "alexUtilities"])
   
   
@@ -177 +177 @@
   
   subli.add("Put script stats")
-  pLookUpCommandList.setaprop("Put script stats", "GetScriptlines me")
+  pLookUpCommandList.setaprop("Put script stats", ["GetScriptlines me", "alexUtilities"])
   
   subli.add("Find all Puts")
-  pLookUpCommandList.setaprop("Find all Puts", "mListallPuts me")
+  pLookUpCommandList.setaprop("Find all Puts", ["mListallPuts me", "alexUtilities"])
   
   
@@ -189 +189 @@
   
   subli.add("Lingo help...")
-  pLookUpCommandList.setaprop("Lingo help...", "mGetHelp me, theText")
+  pLookUpCommandList.setaprop("Lingo help...", ["mGetHelp me, theText", "alexUtilities"])
   
   subli.add("Create help files from selected members")
-  pLookUpCommandList.setaprop("Create help files from selected members", "makeHelpEntries me")
+  pLookUpCommandList.setaprop("Create help files from selected members", ["makeHelpEntries me", "alexUtilities"])
   
   subli.add("Create members for help files from selected script")
-  pLookUpCommandList.setaprop("Create members for help files from selected script", "makeHelpFilesFromScript me, memref_optional, onlyHandlerWithComments_optional")
+  pLookUpCommandList.setaprop("Create members for help files from selected script", ["makeHelpFilesFromScript me, memref_optional, onlyHandlerWithComments_optional", "alexUtilities"])
   
   
@@ -205 +205 @@
     subli = []
     li.add(subli)
-    subli.add("mLinkScripts me")
-    subli.add("mUnLinkScripts me")
-    subli.add("mUnLinkAllScripts me")
+    subli.add("Link selected alex-linked-library-scripts")
+    pLookUpCommandList.setaprop("Link selected alex-linked-library-scripts", ["mLinkScripts me", "bbedit_Utilities"])
+    
+    subli.add("UnLink selected alex-linked-library-scripts")
+    pLookUpCommandList.setaprop("UnLink selected alex-linked-library-scripts", ["mUnLinkScripts me", "bbedit_Utilities"])
+    
+    subli.add("UnLink all alex-linked-library-scripts")
+    pLookUpCommandList.setaprop("UnLink all alex-linked-library-scripts", ["mUnLinkAllScripts me", "bbedit_Utilities"])
+    
     subli.add("")
-    subli.add("mBBedit me")
-    subli.add("mCheckLSChange me")
+    subli.add("Open original of selected alex-linked-library-script in BBEdit")
+    pLookUpCommandList.setaprop("Open original of selected alex-linked-library-script in BBEdit", ["mBBedit me", "bbedit_Utilities"])
+    
+    subli.add("Check changes in selected alex-linked-library-scripts")
+    pLookUpCommandList.setaprop("Check changes in selected alex-linked-library-scripts", ["mCheckLSChange me", "bbedit_Utilities"])
+    
     subli.add("")
-    subli.add("mRefreshScripts me")
+    subli.add("Refresh selected alex-linked-library-scripts")
+    pLookUpCommandList.setaprop("Refresh selected alex-linked-library-scripts", ["mRefreshScripts me", "bbedit_Utilities"])
+    
     subli.add("")
-    subli.add("mExportListOfUsedLinkedScripts me")
+    subli.add("Export a list of used alex-linked-library-scripts")
+    pLookUpCommandList.setaprop("Export a list of used alex-linked-library-scripts", ["mExportListOfUsedLinkedScripts me", "bbedit_Utilities"])
     
     
@@ -223 +236 @@
     li.add(subli)
     subli.add("Compare selected scripts with Working Copy...")
-    pLookUpCommandList.setaprop("Compare selected scripts with Working Copy...", "mCompareCurrentScriptToWorkingCopy me, convertLineBreaksToUnix")
+    pLookUpCommandList.setaprop("Compare selected scripts with Working Copy...", ["mCompareCurrentScriptToWorkingCopy me, convertLineBreaksToUnix", "svn_Utilities"])
     
     subli.add("Export selected script to Working Copy and Open...")
-    pLookUpCommandList.setaprop("Export selected script to Working Copy and Open...", "mExportCurrentScriptToWorkingCopyAndOpen me, convertLineBreaksToUnix")
+    pLookUpCommandList.setaprop("Export selected script to Working Copy and Open...", ["mExportCurrentScriptToWorkingCopyAndOpen me, convertLineBreaksToUnix", "svn_Utilities"])
     
     
@@ -241 +254 @@
   svn_subli.add(subli)
   subli.add("Export scripts to SVN working copy...")
-  pLookUpCommandList.setaprop("Export scripts to SVN working copy...", "mExportScriptsToFolder me, skipIcons_optional, selectionOnly_optional, convertLineBreaksToUnix, chooseNewPath_optional")
+  pLookUpCommandList.setaprop("Export scripts to SVN working copy...", ["mExportScriptsToFolder me, skipIcons_optional, selectionOnly_optional, convertLineBreaksToUnix, chooseNewPath_optional", "svn_Utilities"])
   
   subli.add("Import script from file...")
-  pLookUpCommandList.setaprop("Import script from file...", "mImportScriptWithThumbnail me, thePath_optional, castlibNumber_optional, dontWarn_optional, infolist_optional")
+  pLookUpCommandList.setaprop("Import script from file...", ["mImportScriptWithThumbnail me, thePath_optional, castlibNumber_optional, dontWarn_optional, infolist_optional", "svn_Utilities"])
   
   subli.add("")
   subli.add("SVN Update ScriptText in Working Copy...")
-  pLookUpCommandList.setaprop("SVN Update ScriptText in Working Copy...", "mSVN_Update_Working_Copy_ScriptText me, chooseNewPath_optional")
+  pLookUpCommandList.setaprop("SVN Update ScriptText in Working Copy...", ["mSVN_Update_Working_Copy_ScriptText me, chooseNewPath_optional", "svn_Utilities"])
   
   subli.add("")
   subli.add("SVN Import Scripts, Text and Fields from working copy...")
-  pLookUpCommandList.setaprop("SVN Import Scripts, Text and Fields from working copy...", "mSVN_Update_And_Import_ScriptsFromFolder me, chooseNewPath_optional, selectionOnly_optional")
+  pLookUpCommandList.setaprop("SVN Import Scripts, Text and Fields from working copy...", ["mSVN_Update_And_Import_ScriptsFromFolder me, chooseNewPath_optional, selectionOnly_optional", "svn_Utilities"])
   
   
   subli.add("")
   subli.add("SVN Commit ScriptText only...")
-  pLookUpCommandList.setaprop("SVN Commit ScriptText only...", "mSVN_Commit_CurrentScripts_ScriptText me, selected_Members_Only_optional")
+  pLookUpCommandList.setaprop("SVN Commit ScriptText only...", ["mSVN_Commit_CurrentScripts_ScriptText me, selected_Members_Only_optional", "svn_Utilities"])
   
   subli.add("")
   subli.add("SVN Delete Selected Scripts...")
-  pLookUpCommandList.setaprop("SVN Delete Selected Scripts...", "mSVN_Delete_Selected_Scripts me, chooseNewPath_optional")
+  pLookUpCommandList.setaprop("SVN Delete Selected Scripts...", ["mSVN_Delete_Selected_Scripts me, chooseNewPath_optional", "svn_Utilities"])
   
   
@@ -273 +286 @@
   
   subli.add("Export text members to SVN working copy...")
-  pLookUpCommandList.setaprop("Export text members to SVN working copy...", "mExportTextAndFieldsToFolder me, skipIcons_optional, selectionOnly_optional, convertLineBreaksToUnix, chooseNewPath_optional")
+  pLookUpCommandList.setaprop("Export text members to SVN working copy...", ["mExportTextAndFieldsToFolder me, skipIcons_optional, selectionOnly_optional, convertLineBreaksToUnix, chooseNewPath_optional", "svn_Utilities"])
   
   subli.add("Import text from SVN working copy...")
-  pLookUpCommandList.setaprop("Import text from SVN working copy...", "mImportTextAndFields me, thePath_optional, castlibNumber_optional, dontWarn_optional, infolist_optional")
+  pLookUpCommandList.setaprop("Import text from SVN working copy...", ["mImportTextAndFields me, thePath_optional, castlibNumber_optional, dontWarn_optional, infolist_optional", "svn_Utilities"])
   
   subli.add("")
   subli.add("SVN Import Scripts, Text and Fields from working copy...")
-  pLookUpCommandList.setaprop("SVN Import Scripts, Text and Fields from working copy...", "mSVN_Update_And_Import_ScriptsFromFolder me, chooseNewPath_optional, selectionOnly_optional")
+  pLookUpCommandList.setaprop("SVN Import Scripts, Text and Fields from working copy...", ["mSVN_Update_And_Import_ScriptsFromFolder me, chooseNewPath_optional, selectionOnly_optional", "alexUtilities"])
   
   
@@ -292 +305 @@
   
   subli.add("SVN Update selected castlib...")
-  pLookUpCommandList.setaprop("SVN Update selected castlib...", "mSVN_Update_SelectedCastlib me, chooseNewPath_optional, onlyUpdate_SVN_WorkingFolder_optional")
+  pLookUpCommandList.setaprop("SVN Update selected castlib...", ["mSVN_Update_SelectedCastlib me, chooseNewPath_optional, onlyUpdate_SVN_WorkingFolder_optional", "svn_Utilities"])
   
   subli.add("SVN Update Current Movie...")
-  pLookUpCommandList.setaprop("SVN Update Current Movie...", "mSVN_Update_CurrentMovie_Binaries me, chooseNewPath_optional, onlyUpdate_SVN_WorkingFolder_optional")
+  pLookUpCommandList.setaprop("SVN Update Current Movie...", ["mSVN_Update_CurrentMovie_Binaries me, chooseNewPath_optional, onlyUpdate_SVN_WorkingFolder_optional", "svn_Utilities"])
   
   subli.add("")
   subli.add("SVN Commit selected castlib...")
-  pLookUpCommandList.setaprop("SVN Commit selected castlib...", "mSVN_Commit_SelectedCastlib me, chooseNewPath_optional, commitMsg")
+  pLookUpCommandList.setaprop("SVN Commit selected castlib...", ["mSVN_Commit_SelectedCastlib me, chooseNewPath_optional, commitMsg", "svn_Utilities"])
   
   subli.add("SVN Commit current Movie...")
-  pLookUpCommandList.setaprop("SVN Commit current Movie...", "mSVN_Commit_CurrentMovie_Binaries me, chooseNewPath_optional, commitMsg")
+  pLookUpCommandList.setaprop("SVN Commit current Movie...", ["mSVN_Commit_CurrentMovie_Binaries me, chooseNewPath_optional, commitMsg", "svn_Utilities"])
   
   ----------------------------------------------------
@@ -312 +325 @@
   
   subli.add("SVN Commit selected Castlib AND Scripttext...")
-  pLookUpCommandList.setaprop("SVN Commit selected Castlib AND Scripttext...", "mSVN_Commit_SelectedCastlib_AND_Scripttext me, chooseNewPath_optional, commitMsg, selectionList_optional")
+  pLookUpCommandList.setaprop("SVN Commit selected Castlib AND Scripttext...", ["mSVN_Commit_SelectedCastlib_AND_Scripttext me, chooseNewPath_optional, commitMsg, selectionList_optional", "svn_Utilities"])
   
   subli.add("SVN Commit current Movie AND Scripttext...")
-  pLookUpCommandList.setaprop("SVN Commit current Movie AND Scripttext...", "mSVN_Commit_CurrentMovie_Binaries_AND_Scripttext me, chooseNewPath_optional, commitMsg")
+  pLookUpCommandList.setaprop("SVN Commit current Movie AND Scripttext...", ["mSVN_Commit_CurrentMovie_Binaries_AND_Scripttext me, chooseNewPath_optional, commitMsg", "svn_Utilities"])
   
   ----------------------------------------------------
@@ -327 +340 @@
   
   subli.add("Convert textmember to HTML + copy to clipboard")
-  pLookUpCommandList.setaprop("Convert textmember to HTML + copy to clipboard", "mCopyConvert2HTML")
+  pLookUpCommandList.setaprop("Convert textmember to HTML + copy to clipboard", ["mCopyConvert2HTML", "alexUtilities"])
   
   
   ---------------------------------------------------
   subli.add("Fix colors in scriptlists (SES 10 -> SES 9)")
-  pLookUpCommandList.setaprop("Fix colors in scriptlists (SES 10 -> SES 9)", "Authoring_ExchangeScriptListColorsToRGBs me")
+  pLookUpCommandList.setaprop("Fix colors in scriptlists (SES 10 -> SES 9)", ["Authoring_ExchangeScriptListColorsToRGBs me", "alexUtilities"])
   
   
@@ -343 +356 @@
   
   subli.add("Make castlib label...")
-  pLookUpCommandList.setaprop("Make castlib label...", "makeLabel me, theContent, theBackgroundColor_optional, memberRef_optional")
+  pLookUpCommandList.setaprop("Make castlib label...", ["makeLabel me, theContent, theBackgroundColor_optional, memberRef_optional", "alexUtilities"])
   
   
@@ -352 +365 @@
   else fnd = "Explorer"
   li.add("Open containing folder in" && fnd)
-  pLookUpCommandList.setaprop("Open containing folder in" && fnd, "mOpenContainingFolder me")
+  pLookUpCommandList.setaprop("Open containing folder in" && fnd, ["mOpenContainingFolder me", "alexUtilities"])
   
   
@@ -406 +419 @@
     
     -- some of the functions are "translated" and appear in a lookup list, in order to have nicer names
-    cmdli = string(pLookUpCommandList.getaprop(theName))
-    if length(cmdli) < 1 then cmdli = theName
+    cmdli = pLookUpCommandList.getaprop(theName)
+    if not(listP(cmdli)) then
+    cmdli = [theName, "alexUtilities"]
+    else
+    if count(cmdli) < 1 then exit
+    if count(cmdli) < 2 then cmdli.add("alexUtilities")
+    theName = string(cmdli[1])
+    end if
     
     
@@ -421 +440 @@
     else
       
-      cmd = cmdli.word[1]
-      delete word 1 of cmdli
+      cmdStr = cmdli[1]
+      targetScriptName = cmdli[2]
+      
+      cmd = cmdStr.word[1]
+      delete word 1 of cmdStr
       
       glob = xscr().mGetGlobalList()
@@ -428 +450 @@
       olddelim = the itemdelimiter
       the itemdelimiter = ","
-      delete item 1 of cmdli
+      delete item 1 of cmdStr
       the itemdelimiter = olddelim
       
@@ -436 +458 @@
       glob[#copy2ClipBoard] = 0
       
-      alexUtilities = new(script "alexUtilities")
-      alexUtilities.setaprop(#pHandlerMenuWindowName, (the activewindow).name)
-      glob[#theTargetInstance] = alexUtilities
-      
-      if cmdli.word.count then
-        mShowMui cmdli
+      targetScriptObject = new(script targetScriptName)
+      targetScriptObject.setaprop(#pHandlerMenuWindowName, (the activewindow).name)
+      glob[#theTargetInstance] = targetScriptObject
+      
+      if cmdStr.word.count then
+        mShowMui cmdStr
       else
         mDoCmd

trunk/lingosource/castlib1/alexUtilities.ls

@@ -159 +159 @@
     if (voidP(pfad) or (pfad = "")) then
       if mCheckForXtra(me, "BudAPI") = 1 then
+        
+        resetUNames = 0
+        if baSysFolder("prefs") starts "/" then
+          baReturnUnixNames(0)
+          resetUNames = 1
+        end if
+        
         startfolder = string(startfolder)
         if length(startfolder) > 0 then
@@ -165 +172 @@
           pfad = baGetFilename("save", "", theDefaultName, "", 524288+4+2+4194304, theTitle, false, -1, -1)
         end if
+        
+        if resetUNames = 1 then baReturnUnixNames(1)
+        
       else
         pfad = fio.displaySave(theTitle, theDefaultName)
@@ -315 +325 @@
   theTitle = "Save text"
   if mCheckForXtra(me, "BudAPI") = 1 then
+    
+    resetUNames = 0
+    if baSysFolder("prefs") starts "/" then
+      baReturnUnixNames(0)
+      resetUNames = 1
+    end if
+    
     pfad = baGetFilename("save", "", theDefaultName, "", 524288+4+2+4194304, theTitle, false, -1, -1)
+    
+    if resetUNames = 1 then baReturnUnixNames(1)
+    
   else
     fio = new(xtra "fileio")
@@ -376 +396 @@
   
   if mCheckForXtra(me, "BudAPI") = 1 then -- if buddy is present...
+    
+    resetUNames = 0
+    if baSysFolder("prefs") starts "/" then
+      baReturnUnixNames(0)
+      resetUNames = 1
+    end if
+    
     retval = baGetFolder( "", "Select a folder", 3, "", 50, 50 )
+    
+    if resetUNames = 1 then baReturnUnixNames(1)
+    
   else if mCheckForXtra(me, "FileXtra4") = 1 then -- if not buddy then try filextra
     fx = (xtra "filextra4").new()
@@ -409 +439 @@
   
   if mCheckForXtra(me, "BudAPI") = 1 then -- if buddy is present...
+    
+    -- currently there is a bug in buddy beta with bafilelist, so we hack here...
+    
+    retval = []
+    n = 1
+    this = getnthfilenameinfolder(folderpath, n)
+    repeat while length(this) > 0
+      if length(getnthfilenameinfolder(folderpath & this, 1)) = 0 then retval.add(this)
+      n = n + 1
+      this = getnthfilenameinfolder(folderpath, n)
+    end repeat
+    
     --  -- budApi version:
-    retval = baFileList(folderpath, "*.*")
+    -- retval = baFileList(folderpath, "*.*")
     
   else if mCheckForXtra(me, "FileXtra4") = 1 then -- if not buddy then try filextra
@@ -2153 +2195 @@
 
 
--- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
-on _______________BBEDIT_SCRIPTS end
-end
--- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
-
-on mOpen_Linked_Script_With_BBedit me
-  
-  if not(the platform contains "mac") then
-    alert "Sorry, BBEdit is a mac application!" & RETURN & "If you change this handler to match something appropriate for Windows, please drop me a note. alex@farbflash.de"
-    exit
-  end if
-  
-  if mCheckForXtra(me, "Shell") = 0 then
-    mShellXtraMissing me
-    exit
-  end if
-  
-  cl = the activecastlib
-  sel = the selection of castlib cl
-  
-  clistr = "bbedit"
-  
-  repeat with sub in sel
-    repeat with mem = sub[1] to sub[2]
-      memref = member(mem,cl)   
-      if memref.type = #script then
-        fname = memref.filename
-        if fname.length then
-          ppath = shell_cmd("osascript -e " & QUOTE & "return POSIX path of \" & QUOTE & fname & "\" & QUOTE & QUOTE)
-          if charToNum(the last char of ppath) = 10 then delete the last char of ppath
-          put " " & QUOTE & ppath & QUOTE after clistr
-        end if
-      end if
-    end repeat
-  end repeat
-  
-  shell_cmd(clistr)
-end
-
--- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
-
-on mOpen_text_with_BBedit me
-  
-  if not(the platform contains "mac") then
-    alert "Sorry, BBEdit is a mac application!" & RETURN & "If you change this handler to match something appropriate for Windows, please drop me a note. alex@farbflash.de"
-    exit
-  end if
-  
-  if mCheckForXtra(me, "Shell") = 0 then
-    mShellXtraMissing me
-    exit
-  end if
-  
-  cl = the activecastlib
-  sel = the selection of castlib cl
-  
-  
-  repeat with sub in sel
-    repeat with mem = sub[1] to sub[2]
-      
-      memref = member(mem,cl)
-      
-      theText = ""
-      theType = memref.type
-      if theType = #script then
-        theText = memref.scripttext
-      else if theType = #text then
-        theText = memref.html
-      else if theType = #field then
-        theText = memref.text
-      end if
-      
-      if length(theText) > 0 then
-        
-        ---------------------
-        -- create a temporary file from scripttext:
-        -- tempSrcPath = shell_cmd_list("mktemp -t temp_BBEdit_file.ls")
-        -- tempSrcPath = tempSrcPath[1]
-        tempSrcPath = "/tmp/temp_BBEdit_file.ls"
-        tempSrcHFSPath = shell_cmd_list("osascript -e" && QUOTE & "return POSIX file \" & QUOTE & tempSrcPath & "\" & QUOTE & " as string" & QUOTE)
-        tempSrcHFSPath = tempSrcHFSPath[1]
-        theResult = mSaveTextToTempFile(me, theText, tempSrcHFSPath)
-        ---------------------
-        
-        shell_cmd("bbedit --wait --resume " & tempSrcPath)
-        
-        theText = mGetTextFromFile(me, tempSrcHFSPath)
-        
-        if theType = #script then
-          memref.scripttext = theText
-        else if theType = #text then
-          memref.html = theText
-        else if theType = #field then
-          memref.text = theText
-        end if
-        
-        --        neuer = new(#field)
-        --        neuer.text = theText
-        --        
-        --        oldclipboardNum = new(#field)
-        --        oldclipboardNum.pasteClipBoardInto()
-        --        
-        --        copyToClipBoard(neuer)
-        --        
-        --        shell_cmd("pbpaste | bbedit")
-        --        
-        --        if oldclipboardNum.type <> #empty then copyToClipBoard(oldclipboardNum)
-        --        oldclipboardNum.erase()
-        --        neuer.erase()
-        --        
-        --        exit
-        
-      end if
-    end repeat
-  end repeat
-  
-end
-
--- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
-
-on mCompareSelectedScriptmembersBatch me
-  
-  if not(the platform contains "mac") then
-    alert "Sorry, BBEdit is a mac application!" & RETURN & "If you change this handler to match something appropriate for Windows, please drop me a note. alex@farbflash.de"
-    exit
-  end if
-  
-  if mCheckForXtra(me, "Shell") = 0 then
-    mShellXtraMissing me
-    exit
-  end if
-  
-  bbdiffpath = shell_cmd_list("which bbdiff")
-  if count(bbdiffpath) > 0 then
-    bbdiffpath = bbdiffpath[1]
+
+-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
+on _______________SHELL_COMMAND me
+end
+-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
+
+
+on mDoShellCmd me, cmd, returnList
+  
+  if  mCheckForXtra(me, "ff_shell") = 0 then
+    if mCheckForXtra(me, "Shell") = 0 then
+      mShellXtraMissing me
+      return ""
+    else
+      if returnList = 1 then
+        return shell_cmd_list(cmd)
+      else
+        return shell_cmd(cmd)
+      end if
+    end if
   else
-    bbdiffpath = ""
-    alert "Consider installing BBEdits command line tools. If we could use bbdiff it would be way nicer."
-  end if
-  
-  if length(bbdiffpath) > 0 then
-    if mCheckForXtra(me, "FileIO") = 0 then
-      alert "FileIO Xtra missing!"
-      exit
-    end if
-  end if
-  
-  textlist = []
-  
-  cl = the activecastlib
-  sel = the selection of castlib cl
-  
-  memberlist = []
-  repeat with sub in sel
-    repeat with mem = sub[1] to sub[2]
-      memberlist.add(member(mem,cl))
-    end repeat
-  end repeat
-  
-  cnt = count(memberlist)
-  if (cnt mod 2) or (cnt = 0) then
-    alert "Must be an even number of selected members"
-    exit
-  end if
-  cnt = cnt/2
-  
-  doit = 0
-  
-  repeat with n = 1 to cnt
-    
-    theText = ""
-    
-    memref = memberlist[n]
-    if memref.type = #script then
-      theText = memref.scripttext
-    else if [#text, #field].getPos(memref.type) > 0 then
-      theText = memref.text
-    end if
-    
-    
-    
-    if length(theText) > 0 then
-      
-      
-      fname = memref.name
-      if length(fname) > 24 then
-        fname = fname.char[1 .. 20] & "..." & fname.char[length(fname)]
-      end if
-      fname = fname & "___" & memref.membernum
-      
-      
-      theText2 = ""
-      
-      memref2 = memberlist[n+cnt]
-      if memref2.type = #script then
-        theText2 = memref2.scripttext
-      else if [#text, #field].getPos(memref2.type) > 0 then
-        theText2 = memref2.text
-      end if
-      
-      if length(theText2) > 0 then
-        
-        name1 = memref.name
-        if length(name1) < 1 then name1 = string(memref)
-        name2 = memref2.name
-        if length(name2) < 1 then name2 = string(memref2)
-        
-        if theText = theText2 then
-          
-          put "Members " & name1 & " and " & name2 & " are identical"
-          
-        else
-          
-          put "Members " & name1 & " and " & name2 & " differ"
-          
-          if length(bbdiffpath) < 1 then
-            
-            --------------------------------------------- the old version created new documents in bbedit and I selected "diff" for each from the menu
-            --------------------------------------------- bbdiff is cooler ;-)
-            oldclipboardNum = new(#field)
-            oldclipboardNum.pasteClipBoardInto()
-            
-            neuer = new(#field)
-            
-            neuer.text = theText
-            copyToClipBoard(neuer)
-            shell_cmd("pbpaste | bbedit")
-            
-            
-            neuer.text = theText2
-            copyToClipBoard(neuer)
-            shell_cmd("pbpaste | bbedit")
-            
-            
-            
-            if oldclipboardNum.type <> #empty then copyToClipBoard(oldclipboardNum)
-            oldclipboardNum.erase()
-            neuer.erase()
-            --------------------------------------------
-            
-          else
-            
-            if doit = 0 then
-              
-              tempSrcPath = shell_cmd_list("mktemp -d -t temp_BBDiff_folder1")
-              tempSrcPath = tempSrcPath[1] & "/"
-              tempSrcHFSPath = shell_cmd_list("osascript -e" && QUOTE & "return POSIX file \" & QUOTE & tempSrcPath & "\" & QUOTE & " as string" & QUOTE)
-              tempSrcHFSPath = tempSrcHFSPath[1]
-              
-              
-              tempTgtPath = shell_cmd_list("mktemp -d -t temp_BBDiff_folder2")
-              tempTgtPath = tempTgtPath[1] & "/"
-              tempTgtHFSPath = shell_cmd_list("osascript -e" && QUOTE & "return POSIX file \" & QUOTE & tempTgtPath & "\" & QUOTE & " as string" & QUOTE)
-              tempTgtHFSPath = tempTgtHFSPath[1]
-              
-              
-              doit = 1
-            end if
-            
-            mSaveTextToTempFile(me, theText, tempSrcHFSPath & fname)
-            mSaveTextToTempFile(me, theText2, tempTgtHFSPath & fname)
-            
-          end if
-          
-        end if
-        
-      else
-        put "skipping" && memref && "and" && memref2 && "because the length of the text of" && memref2 && "is 0"
-      end if
-      
+    ff_shellxtra = new(xtra "ff_shell")
+    li = ff_shellxtra.ff_shell(cmd)
+    ff_shellxtra = 0
+    if returnList = 1 then
+      retlist = []
+      if listP(li) then
+        cnt = count(li)
+        repeat with n = 1 to cnt
+          this = li[n]
+          if the last char of this = RETURN then delete the last char of this
+          if charToNum(the last char of this) = 10 then delete the last char of this
+          retlist.add(this)
+        end repeat
+      end if
+      return retlist
     else
-      put "skipping" && memref && "because the length of the text is 0"
-    end if
-    
-  end repeat
-  
-  --  put "mCompareSelectedScriptmembers 7"
-  
-  if doit = 1 then
-    --    put bbdiffpath && QUOTE & tempSrcPath & QUOTE && QUOTE & tempTgtPath & QUOTE
-    shell_cmd(bbdiffpath && QUOTE & tempSrcPath & QUOTE && QUOTE & tempTgtPath & QUOTE)
-    
-  else
-    
-    --    put "doit = 0"
-    
-    if length(bbdiffpath) > 0 then
-      alert "No differences found"
-    end if
-    
-  end if
-  
-end
-
-
--- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
-
-
-on mBBDiff me, memref1, memref2
-  
-  memref1 = member(memref1)
-  
-  
-  if not(the platform contains "mac") then
-    alert "Sorry, BBEdit is a mac application!" & RETURN & "If you change this handler to match something appropriate for Windows, please drop me a note. alex@farbflash.de"
-    exit
-  end if
-  
-  if mCheckForXtra(me, "Shell") = 0 then
-    mShellXtraMissing me
-    exit
-  end if
-  
-  --  bbdiffpath = shell_cmd_list("which bbdiff")
-  --  if count(bbdiffpath) > 0 then
-  --    bbdiffpath = bbdiffpath[1]
-  --  else
-  --    bbdiffpath = ""
-  --    alert "Consider installing BBEdits command line tools. If we could use bbdiff it would be way nicer."
-  --  end if
-  
-  
-  bbdiffpath = shell_cmd_list("which bbdiff")
-  
-  if count(bbdiffpath) > 0 then
-    bbdiffpath = bbdiffpath[1]
-  else
-    alert "This function only works with BBDiff, a command line tool provided by BBEdit. Consider installing BBEdits command line tools, it is really helpful."
-    exit 
-  end if
-  
-  ---------------------
-  -- create a temporary file from scripttext:
-  --  tempSrcPath = shell_cmd_list("mktemp -t temp_BBDiff_file1")
-  --  tempSrcPath = tempSrcPath[1]
-  tempSrcPath = "/tmp/temp_BBDiff_file1.ls"
-  tempSrcHFSPath = shell_cmd_list("osascript -e" && QUOTE & "return POSIX file \" & QUOTE & tempSrcPath & "\" & QUOTE & " as string" & QUOTE)
-  tempSrcHFSPath = tempSrcHFSPath[1]
-  
-  st1 = memref1.scripttext
-  theResult = mSaveTextToTempFile(me, st1, tempSrcHFSPath)
-  ---------------------
-  
-  
-  
-  if not(voidP(memref2)) then memref2 = member(memref2)
-  
-  ----------- there are 2 options for this handler:
-  
-  if ilk(memref2) = #member then -- option 1: we have a second member and diff against the second member
-    
-    st2 = memref2.scripttext
-    if st1 = st2 then
-      put "identical scripttext"
-      exit
-    end if
-    
-    ---------------------
-    -- create a temporary file from scripttext:
-    --    tempSrcPath2 = shell_cmd_list("mktemp -t temp_BBDiff_file2")
-    --    tempSrcPath2 = tempSrcPath2[1]
-    tempSrcPath2 = "/tmp/temp_BBDiff_file2.ls"
-    tempSrcHFSPath2 = shell_cmd_list("osascript -e" && QUOTE & "return POSIX file \" & QUOTE & tempSrcPath2 & "\" & QUOTE & " as string" & QUOTE)
-    tempSrcHFSPath2 = tempSrcHFSPath2[1]
-    comm = tempSrcPath2
-    
-    theResult = mSaveTextToTempFile(me, st2, tempSrcHFSPath2)
-    ---------------------
-    
-  else -- option 2: we have NO second member and diff against the file at the path in the member comments (=> alex linked scripts UNIX(!) path)
-    comm = memref1.comments
-    
-  end if
-  
-  
-  
-  if comm.length then -- comm is our second file, we only diff, if there is either a second member OR a path in member.comments
-    
-    if char 1 of comm = "~" then
-      put shell_Cmd("echo -n $HOME") into char 1 of comm
-    end if
-    
-    shell_cmd(bbdiffpath & " --ignore-curly-quotes --ignore-spaces --wait --resume " &QUOTE& tempSrcPath &QUOTE&&QUOTE& comm &QUOTE)
-    
-    -- since we used the --wait and the --resume switch, we will only come to this line AFTER the diff process in bbedit is finished
-    
-    
-    -------- now write the results of the BBEdit diff back into the script members
-    memref1.scripttext = mGetTextFromTempFile(me, tempSrcHFSPath)
-    
-    if ilk(memref2) = #member then
-      memref2.scripttext = mGetTextFromTempFile(me, tempSrcHFSPath2)
-    end if
-    
-    
-  else
-    
-    alert "member has no comments!"
-    
-  end if
-  
-end
-
--- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
-
-on mBBDiff_LiveCompare_SelectedScript me
-  cl = the activecastlib
-  sel = the selection of castlib cl
-  if count(sel) > 0 then
-    memref1 = member(sel[1][1], cl)
-    if sel[1][2] <> sel[1][1] then
-      memref2 = member(sel[1][2], cl)
-    else
-      if count(sel) < 2 then
-        alert "Please select two castmembers!"
-        exit
-      end if
-      memref2 = member(sel[2][1], cl)
-    end if
-    mBBDiff me, memref1, memref2
-  end if
-end
-
-
--- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
--- xxxxxxxxxxxxxxxxxx Write text out to a file
---------------------- helper for the above bbdiff handler
-
-on mSaveTextToTempFile me, theText, pfad
-  
-  retval = 0
-  
-  if ilk(theText) <> #string then return retval
-  
-  fio = new(xtra "fileio")
-  if not objectP(fio) then return retval
-  
-  if ilk(pfad) = #string then
-    if pfad.length > 0 then
-      
-      fio.openFile(pfad, 0)
-      if fio.status() = 0 then fio.delete()
-      
-      fio.createFile(pfad)
-      if fio.status() = 0 then
-        
-        fio.openFile(pfad, 2)
-        if fio.status() = 0 then
-          
-          fio.writeString(theText)
-          
-          if fio.status() = 0 then retval = pfad
-          
-          fio.closeFile()
-        end if
-      end if
-    end if
-  end if
-  
-  fio = 0
-  
-  return retval
-end
-
--- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
--- xxxxxxxxxxxxxxxxxx Read text from file
---------------------- helper for the above bbdiff handler
-
-on mGetTextFromTempFile me, pfad
-  retval = ""
-  
-  if the runmode contains "Plugin" then return retval
-  
-  fio = new(xtra "fileio")
-  
-  if not objectP(fio) then return retval
-  if (voidP(pfad) or (pfad = "")) then return retval
-  
-  if ilk(pfad) = #string then
-    if pfad.length > 0 then
-      fio.openFile(pfad, 1)
-      if fio.status() = 0 then
-        retval = fio.readFile()
-        fio.closeFile()
-      end if
-    end if
-  end if
-  fio = void
-  
-  return retval
-  
-end
-
-
-
--- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
-on _______________LINKED_SCRIPTS_HANDLERS me
-end
--- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
-
-
--- LINKED SCRIPTS
--- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
-
--- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
--- refresh the linked member after the source of the linked script was changed
-
-on mRefreshScripts me
-  cl = the activecastlib
-  sel = the selection of castlib cl
-  anz = sel.count
-  repeat with n = 1 to anz
-    repeat with m = sel[n][1] to sel[n][2]
-      memref = member(m, cl)
-      if length(memref.filename) then memref.filename = memref.filename
-    end repeat
-  end repeat
-end
-
-
--- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
--- unlink all linked scripts from all castlibs (when transferring a movie to another machine or before publishing)
-
-on mUnLinkAllScripts me
-  cnum = the number of castlibs
-  repeat with l = 1 to cnum
-    mnum = the number of members of castlib l
-    repeat with n = 1 to mnum
-      memref = member(n, l)
-      if memref.type = #script then
-        if (memref.linked = 1) then memref.linked = 0
-      end if
-    end repeat
-  end repeat
-end
-
--- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
--- unlink the selected scriptmembers
-
-on mUnLinkScripts me
-  cl = the activecastlib
-  sel = the selection of castlib cl
-  anz = sel.count
-  repeat with n = 1 to anz
-    repeat with m = sel[n][1] to sel[n][2]
-      memref = member(m, cl)
-      if memref.type = #script then
-        if (memref.linked = 1) then memref.linked = 0
-      end if
-    end repeat
-  end repeat
-end
-
--- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
--- link the selected scriptmembers to the files specified in the first line of the members comments
-
-on mLinkScripts me
-  
-  cl = the activecastlib
-  sel = the selection of castlib cl
-  
-  mp = the moviepath
-  if length(mp) < 1 then mp = the applicationpath
-  delim = the last char of mp
-  olddelim = the itemdelimiter
-  the itemdelimiter = delim
-  
-  isMac = (delim = ":")
-  if isMac then CurrentOSXUserName = mGetCurrentOSXUserName(me)
-  
-  repeat with sub in sel
-    repeat with mem = sub[1] to sub[2]
-      memref = member(mem,cl)    
-      if memref.type = #script then
-        memname = memref.name
-        comm = memref.comments
-        if comm.length then
-          
-          
-          if comm starts "~" then -- OSX current user directory
-            if isMac then
-              put "/Users/"&CurrentOSXUserName into char 1 of comm
-            else
-              offs = offset("/", comm)
-              repeat while offs > 0
-                put "\" into char offs of comm
-                offs = offset("/", comm)
-              end repeat
-              put baSysFolder("personal") into char 1 to 2 of comm
-              aPath = comm
-            end if
-          end if
-          
-          if comm starts "/" then -- OSX/Unix style path
-            
-            if isMac then
-              hdname = getOsDirectory()
-              hdname = hdname.item[1]
-              the itemdelimiter = "/"
-              delete item 1 of comm
-              itemCnt = comm.item.count
-              repeat with i = 1 to itemCnt
-                put delim & comm.item[i] after hdname
-              end repeat
-              
-              aPath = hdname
-              
-            else
-              
-              if comm starts "/Users/alex/" then
-                put baSysFolder("personal") into char 1 to 12 of comm
-              end if
-              aPath = comm
-              
-            end if
-            
-            
-          else if comm starts "@" then -- relative path with @
-            
-            if delim <> ":" then
-              offs = offset(":", comm)
-              repeat while offs > 0
-                put delim into char offs of comm
-                offs = offset(":", comm)
-              end repeat
-            end if
-            
-            if delim <> "\" then
-              offs = offset("\", comm)
-              repeat while offs > 0
-                put delim into char offs of comm
-                offs = offset("\", comm)
-              end repeat
-            end if
-            
-            offs = offset("/", comm)
-            repeat while offs > 0
-              put delim into char offs of comm
-              offs = offset("/", comm)
-            end repeat
-            
-            delete char 1 of comm
-            if char 1 of comm = delim then delete char 1 of comm
-            
-            if char 1 of comm = delim then
-              delete the last item of mp
-              repeat while char 1 of comm = delim
-                delete the last item of mp
-                delete char 1 of comm
-              end repeat
-              put delim after mp
-              aPath = mp & comm
-            end if
-            
-          else -- absolute path
-            aPath = comm
-          end if
-          
-          fio = (xtra "fileio").new()
-          if objectP(fio) then
-            fio.openFile(aPath, 0)
-            if fio.status() = 0 then
-              fio.closeFile()
-              
-              scomm = memref.comments
-              stype = memref.scripttype
-              sthumb = memref.thumbnail
-              --                memref.linkAs(aPath)
-              memref.filename = aPath
-              
-              memref.thumbnail = sthumb
-              memref.scripttype = stype
-              memref.comments = scomm 
-              
-            end if
-          end if
-          fio = 0
-          
-          
-        else
-          
-          if memname.length then
-            
-            hdname = getOsDirectory()
-            anfp = hdname.item[1] & delim & "Users"& delim & CurrentOSXUserName & delim & "Documents"& delim
-            aPath = anfp & "Scripts"& delim & "lingo"& delim & memname & ".ls"
-            
-            fio = (xtra "fileio").new()
-            if objectP(fio) then
-              fio.openFile(aPath, 0)
-              if fio.status() = 0 then
-                fio.closeFile()
-                
-                
-                stype = memref.scripttype
-                sthumb = memref.thumbnail
-                
-                memref.filename = aPath
-                
-                memref.thumbnail = sthumb
-                memref.scripttype = stype
-                
-                --                memref.comments = "/Users/"&mGetCurrentOSXUserName()&"/Documents/Scripts/lingo/" & memname & ".ls"
-                memref.comments = "~/Documents/Scripts/lingo/" & memname & ".ls"
-                
-              else
-                
-                aPath = anfp & "ALIEN"& delim & "myLinkedScripts"& delim & memname & ".ls"
-                
-                fio.openFile(aPath, 0)
-                if fio.status() = 0 then
-                  fio.closeFile()
-                  
-                  
-                  stype = memref.scripttype
-                  sthumb = memref.thumbnail
-                  
-                  memref.filename = aPath
-                  
-                  memref.thumbnail = sthumb
-                  memref.scripttype = stype
-                  --                  memref.comments = "/Users/"&mGetCurrentOSXUserName()&"/Documents/ALIEN/myLinkedScripts/" & memname & ".ls"
-                  memref.comments = "~/Documents/ALIEN/myLinkedScripts/" & memname & ".ls"
-                  
-                else
-                  put "member: " & memname && "doesn't have a comment nor a linked script with the member name !"
-                end if
-                
-                
-              end if
-            end if
-            fio = 0
-            
-          end if
-          
-        end if
-      end if
-    end repeat
-  end repeat
-  
-  the itemdelimiter = olddelim
-  
-end
-
-
--- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
-
-on mGetCurrentOSXUserName me
-  
-  if mCheckForXtra(me, "FileXtra4") = 1 then
-    xtraInstance = new(xtra "FileXtra4")
-    theUser = xtraInstance.fx_FolderGetSpecialPath("kCurrentUserFolderType")
-    xtraInstance = 0
-    
-    olddelim = the itemdelimiter
-    the itemdelimiter = the last char of the applicationpath
-    delete the last item of theUser
-    theUser = the last item of theUser
-    the itemdelimiter = olddelim
-    
-  else if mCheckForXtra(me, "Shell") = 1 then
-    theUser = shell_cmd("whoami")
-    if chartonum(the last char of theUser) = 10 then delete the last char of theUser
-    
-  else
-    theUser = ""
-    
-  end if
-  
-  return theUser
-  
-end
-
-
--- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
--- compare selected scripts to the .ls script which is defined in their members comments
--- if a difference is found some lines will get put into the message window to open the script in bbedit to do a file compare
-
-on mCheckLSChange me
-  
-  
-  --  if not(the platform contains "mac") then
-  --    alert "Sorry, BBEdit is a mac application!" & RETURN & "If you change this handler to match something appropriate for Windows, please drop me a note. alex@farbflash.de"
-  --    exit
-  --  end if
-  --  
-  --  if mCheckForXtra(me, "Shell") = 0 then
-  --    mShellXtraMissing me
-  --    exit
-  --  end if
-  
-  
-  bbdiffpath = ""
-  if the platform contains "mac" then
-    
-    if mCheckForXtra(me, "Shell") = 1 then
-      bbdiffpath = shell_cmd_list("which bbdiff")
-      if count(bbdiffpath) > 0 then
-        bbdiffpath = bbdiffpath[1]
-      else
-        bbdiffpath = ""
-        alert "Consider installing BBEdits command line tools. If we could use bbdiff it would be way nicer."
-      end if
-    end if
-    
-    if length(bbdiffpath) > 0 then
-      if mCheckForXtra(me, "FileIO") = 0 then
-        alert "FileIO Xtra missing!"
-        exit
-      end if
-    end if
-    
-  end if
-  
-  
-  
-  
-  
-  cl = the activecastlib
-  sel = the selection of castlib cl
-  
-  mp = the moviepath
-  if not mp.length then mp = the applicationpath
-  delim = the last char of mp
-  olddelim = the itemdelimiter
-  the itemdelimiter = delim
-  
-  isMac = (delim = ":")
-  if isMac then CurrentOSXUserName = mGetCurrentOSXUserName(me)
-  
-  repeat with sub in sel
-    repeat with mem = sub[1] to sub[2]
-      memref = member(mem,cl)    
-      if memref.type = #script then
-        memname = memref.name
-        comm = memref.comments
-        if comm.length then
-          
-          if comm starts "~" then -- OSX current user directory
-            put "/Users/"&CurrentOSXUserName into char 1 of comm
-          end if
-          
-          if comm starts "/" then -- OSX/Unix style path
-            
-            hdname = getOsDirectory()
-            hdname = hdname.item[1]
-            the itemdelimiter = "/"
-            delete item 1 of comm
-            itemCnt = comm.item.count
-            repeat with i = 1 to itemCnt
-              put delim & comm.item[i] after hdname
-            end repeat
-            
-            aPath = hdname
-            
-          else if comm starts "@" then -- relative path with @
-            
-            if delim <> ":" then
-              offs = offset(":", comm)
-              repeat while offs > 0
-                put delim into char offs of comm
-                offs = offset(":", comm)
-              end repeat
-            end if
-            
-            if delim <> "\" then
-              offs = offset("\", comm)
-              repeat while offs > 0
-                put delim into char offs of comm
-                offs = offset("\", comm)
-              end repeat
-            end if
-            
-            offs = offset("/", comm)
-            repeat while offs > 0
-              put delim into char offs of comm
-              offs = offset("/", comm)
-            end repeat
-            
-            delete char 1 of comm
-            if char 1 of comm = delim then delete char 1 of comm
-            
-            if char 1 of comm = delim then
-              delete the last item of mp
-              repeat while char 1 of comm = delim
-                delete the last item of mp
-                delete char 1 of comm
-              end repeat
-              put delim after mp
-              aPath = mp & comm
-            end if
-            
-          else -- absolute path
-            aPath = comm
-          end if
-          
-          fio = (xtra "fileio").new()
-          if objectP(fio) then
-            fio.openFile(aPath, 0)
-            if fio.status() = 0 then
-              vergText = fio.readFile()
-              fio.closeFile()
-              memscr = memref.scripttext
-              if vergText <> memscr then
-                
-                isEqual = 0
-                if mCheckForXtra(me, "Pregex") = 1 then
-                  
-                  memscrLi = [memscr]
-                  pregex_replace(memscrLi, "\s", "ig", "")
-                  memscrLi = memscrLi[1]
-                  
-                  vergTextLi = [vergText]
-                  pregex_replace(vergTextLi, "\s", "ig", "")
-                  vergTextLi = vergTextLi[1]
-                  
-                  isEqual = (memscrLi = vergTextLi)
-                end if
-                
-                if isEqual = 0 then
-                  
-                  if length(bbdiffpath) < 1 then
-                    
-                    
-                    if not(the platform contains "mac") then
-                      put "-------------------------------------------------------"
-                      put RETURN&"neuer = new(#field)"&RETURN&"neuer.text = "&memref&".scripttext"&RETURN&"neuer.copyToClipBoard()"&RETURN&"neuer.erase()"&RETURN
-                      put RETURN&"shell_cmd("&QUOTE&"PBPaste | BBedit ; BBedit "&memref.comments&QUOTE&")"&RETURN
-                    else
-                      
-                      if mCheckForXtra(me, "Shell") = 0 then
-                        put "-------------------------------------------------------"
-                        put RETURN&"neuer = new(#field)"&RETURN&"neuer.text = "&memref&".scripttext"&RETURN&"neuer.copyToClipBoard()"&RETURN&"neuer.erase()"&RETURN
-                        put RETURN&"shell_cmd("&QUOTE&"PBPaste | BBedit ; BBedit "&memref.comments&QUOTE&")"&RETURN
-                        
-                      else
-                        
-                        neuer = new(#field)
-                        neuer.text = memscr
-                        neuer.copyToClipBoard()
-                        neuer.erase()
-                        shell_cmd("PBPaste | BBedit ; BBedit "&memref.comments)
-                        
-                      end if
-                      
-                    end if
-                    
-                  else
-                    
-                    
-                    tempSrcPath = shell_cmd_list("mktemp -t temp_BBDiff_file1")
-                    tempSrcPath = tempSrcPath[1]
-                    tempSrcHFSPath = shell_cmd_list("osascript -e" && QUOTE & "return POSIX file \" & QUOTE & tempSrcPath & "\" & QUOTE & " as string" & QUOTE)
-                    tempSrcHFSPath = tempSrcHFSPath[1]
-                    
-                    mSaveTextToTempFile(me, memref.scripttext, tempSrcHFSPath)
-                    
-                    --                    comm = memref.comments
-                    --                    if comm.length then
-                    --                      if char 1 of comm = "~" then
-                    --                        put shell_Cmd("echo -n $HOME") into char 1 of comm
-                    --                      end if
-                    --                    end if
-                    
-                    shell_cmd(bbdiffpath & " --ignore-curly-quotes --ignore-spaces --wait --resume " &QUOTE& tempSrcPath &QUOTE&&QUOTE& comm &QUOTE)
-                    
-                    memref.scripttext = mGetTextFromFile(me, tempSrcHFSPath)
-                    
-                  end if
-                  
-                end if
-                
-                
-              end if
-              
-            end if
-            
-          end if
-        end if
-        fio = 0
-        
-      end if
-      
-    end repeat
-  end repeat
-  
-  the itemdelimiter = olddelim
-  
-  
-end
-
-
--- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
-
--- open the associated .ls, which is found in the member comments in bbedit
-on mBBedit me
-  
-  if not(the platform contains "mac") then
-    alert "Sorry, BBEdit is a mac application!" & RETURN & "If you change this handler to match something appropriate for Windows, please drop me a note. alex@farbflash.de"
-    exit
-  end if
-  
-  if mCheckForXtra(me, "Shell") = 0 then
-    mShellXtraMissing me
-    exit
-  end if
-  
-  cl = the activecastlib
-  sel = the selection of castlib cl
-  
-  clistr = "bbedit"
-  
-  home = shell_Cmd("echo -n $HOME")
-  
-  repeat with sub in sel
-    repeat with mem = sub[1] to sub[2]
-      memref = member(mem,cl)    
-      if memref.type = #script then
-        memname = memref.name
-        comm = memref.comments
-        if comm.length then
-          if char 1 of comm = "~" then
-            put home into char 1 of comm
-          end if
-          put " "&comm after clistr
-        end if
-      end if
-    end repeat
-  end repeat
-  
-  shell_cmd(clistr)
-  
-end
-
-
--- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
-
-on mExportListOfUsedLinkedScripts me
-  
-  str = ""
-  clnum = the number of castlibs
-  repeat with cl = 1 to clnum
-    anz = the number of members of castlib cl
-    repeat with n = 1 to anz
-      memref = member(n, cl)
-      if memref.type = #script then
-        comm = memref.comments
-        if length(comm) > 0 then put "Membername:" && memref.name & TAB & "("&comm&")" & Return after str
-      end if
-    end repeat
-  end repeat
-  delete the last char of str
-  
-  mn = the moviename
-  offs = offset(".", mn)
-  if offs > 0 then mn = mn.char[1 .. offs-1]
-  
-  mSaveToTextFile me, str, "", "Save list of used linked scripts", mn & "_linkedScripts_List.txt"
-  
-end
-
-
--- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
-on _______________SVN_SCRIPT_TEXT me
-end
--- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
-
-
-on mCompareCurrentScriptToWorkingCopy me, convertLineBreaksToUnix
-  
-  
-  if not(the platform contains "mac") then
-    alert "This function only works with BBDiff, a command line tool provided by the OSX app BBEdit. I am sure, something similar exists for windows too, but you'll need to change this script yourself for windows"
-    exit
-  end if
-  
-  if mCheckForXtra(me, "Shell") = 0 then
-    mShellXtraMissing me
-    exit
-  end if
-  
-  
-  bbdiffpath = mFindUnixAppInPath(me, "bbdiff")
-  if length(bbdiffpath) < 1 then
-    alert "This function only works with BBDiff, a command line tool provided by BBEdit. Consider installing BBEdits command line tools, it is really helpful."
-    exit
-  end if
-  
-  
-  
-  cl = the activecastlib
-  sel = the selection of castlib cl
-  
-  repeat with sub in sel
-    repeat with mem = sub[1] to sub[2]
-      memref = member(mem,cl)
-      
-      memtype = memref.type
-      if [#script, #field, #text].getPos(memtype) > 0 then
-        
-        case memtype of
-            
-            -----------------------
-          #script:
-            ext = ".ls"
-            st = memref.scripttext
-            
-            -----------------------
-          #field:
-            ext = ".txt"
-            st = memref.text
-            
-            -----------------------
-          #text:
-            ext = ".html"
-            st = memref.html
-            
-            -----------------------
-          otherwise:
-            ext = ".txt"
-            st = memref.text
-            
-        end case
-        
-        
-        thePath = mFindWorkingCopyCounterpart(me, memref, ext)
-        
-        if length(thePath) < 1 then
-          
-          put "Corresponding file for member " & memref.name && "(" & memref & ") was not found"
-          
-          
-        else
-          
-          
-          
-          ---------------------
-          -- create a temporary file from scripttext:
-          tempSrcPath = shell_cmd_list("mktemp -t temp_BBDiff_file1")
-          tempSrcPath = tempSrcPath[1]
-          
-          if mCheckForXtra(me, "budapi") = 0 then
-            tempSrcHFSPath = shell_cmd_list("osascript -e" && QUOTE & "return POSIX file \" & QUOTE & tempSrcPath & "\" & QUOTE & " as string" & QUOTE)
-            tempSrcHFSPath = tempSrcHFSPath[1]
-          else
-            tempSrcHFSPath = baHFSName(tempSrcPath)
-          end if
-          
-          
-          
-          ------------------------------------------ trac subversion support works better with unix linebreaks...
-          if voidP(convertLineBreaksToUnix) then convertLineBreaksToUnix = 1
-          if convertLineBreaksToUnix = "" then convertLineBreaksToUnix = 1
-          
-          if convertLineBreaksToUnix = 1 then
-            
-            if mCheckForXtra(me, "Pregex") = 1 then
-              
-              scrTextLi = [st]
-              pregex_replace(scrTextLi, "\x0D\x0A?", "g", "\x0A")
-              st = scrTextLi[1]
-              
-            else
-              
-              fndStr = numToChar(13) & numToChar(10)
-              offs = offset(fndStr, st)
-              repeat while offs > 0
-                delete char offs of st
-                offs = offset(fndStr, st)
-              end repeat
-              
-              fndStr = numToChar(13)
-              offs = offset(fndStr, st)
-              repeat while offs > 0
-                put numToChar(10) into char offs of st
-                offs = offset(fndStr, st)
-              end repeat
-              
-            end if
-          end if
-          -----------------------------------------
-          
-          
-          
-          theResult = mSaveTextToTempFile(me, st, tempSrcHFSPath)
-          ---------------------
-          
-          
-          
-          if mCheckForXtra(me, "budapi") = 0 then
-            comm = thePath
-            offs = offset(":", comm)
-            repeat while offs
-              put "/" into char offs of comm
-              offs = offset(":", comm)
-            end repeat
-            put "/Volumes/" before comm
-          else
-            comm = baUnixName(thePath)
-          end if
-          
-          theResult = shell_cmd_list(bbdiffpath & " --ignore-curly-quotes --ignore-spaces --wait --resume " &QUOTE& tempSrcPath &QUOTE&&QUOTE& comm &QUOTE && "2>&1")
-          
-          -- since we used the --wait and the --resume switch, we will only come to this line AFTER the diff process in bbedit is finished
-          
-          if count(theResult) > 0 then
-            put "No differences found for member: " & memref.name && "(" & memref & ")"
-            
-          else
-            
-            -------- now write the results of the BBEdit diff back into the script members
-            scrText = mGetTextFromTempFile(me, tempSrcHFSPath)
-            
-            
-            if convertLineBreaksToUnix = 1 then
-              ------------------------------------------ trac subversion support works better with unix linebreaks...
-              if mCheckForXtra(me, "Pregex") = 1 then
-                
-                scrTextLi = [scrText]
-                if the platform contains "mac" then
-                  pregex_replace(scrTextLi, "\x0D?\x0A", "g", "\x0D")
-                else
-                  pregex_replace(scrTextLi, "\x0D([^\x0A])", "g", "\x0D\x0A\1")
-                  pregex_replace(scrTextLi, "([^\x0D])\x0A", "g", "\1\x0D\x0A")
-                end if
-                scrText = scrTextLi[1]
-                
-              else
-                
-                if the platform contains "mac" then
-                  
-                  -- first convert windows to mac
-                  fndStr = numToChar(13) & numToChar(10)
-                  offs = offset(fndStr, scrText)
-                  repeat while offs > 0
-                    put numToChar(13) into char offs to offs+1 of scrText
-                    offs = offset(fndStr, scrText)
-                  end repeat
-                  
-                  -- now convert unix to mac
-                  fndStr = numToChar(10)
-                  offs = offset(fndStr, scrText)
-                  repeat while offs > 0
-                    put numToChar(13) into char offs of scrText
-                    offs = offset(fndStr, scrText)
-                  end repeat
-                  
-                else
-                  
-                  fndStr = numToChar(13) & numToChar(10)
-                  offs = offset(fndStr, scrText)
-                  repeat while offs > 0
-                    put "ÀÀÀ" into char offs+1 of scrText
-                    offs = offset(fndStr, scrText)
-                  end repeat
-                  
-                  
-                  fndStr = numToChar(10)
-                  offs = offset(fndStr, scrText)
-                  repeat while offs > 0
-                    put "ÀÀÀ" into char offs of scrText
-                    offs = offset(fndStr, scrText)
-                  end repeat
-                  
-                  
-                  
-                  fndStr = numToChar(13) & "ÀÀÀ"
-                  offs = offset(fndStr, scrText)
-                  repeat while offs > 0
-                    put numToChar(13) & numToChar(10) into char offs to offs+3 of scrText
-                    offs = offset(fndStr, scrText)
-                  end repeat
-                  
-                  
-                  
-                  fndStr = "ÀÀÀ"
-                  offs = offset(fndStr, scrText)
-                  repeat while offs > 0
-                    put numToChar(13) & numToChar(10) into char offs to offs+2 of scrText
-                    offs = offset(fndStr, scrText)
-                  end repeat
-                  
-                end if
-                
-              end if
-              -----------------------------------------
-            end if
-            
-            
-            
-            case memtype of
-                
-                -----------------------
-              #script:
-                memref.scripttext = scrText
-                
-                -----------------------
-              #field:
-                memref.text = scrText
-                
-                -----------------------
-              #text:
-                memref.html = scrText
-                
-                -----------------------
-              otherwise:
-                memref.text = scrText
-                
-            end case
-            
-            
-            
-            
-          end if
-          
-          -- exit -- we only proceed one script member, WHY ???
-          
-          
-        end if
-        
-      end if -- corresponding file not found for this member
-      
-    end repeat
-  end repeat
-  
-  
-end
-
--- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
-
-on mFindUnixAppInPath me, whichBinaryName
-  
-  binaryPath = []
-  
-  binaryPath = shell_cmd_list("for thisBinPath in /usr/bin /bin /usr/sbin /sbin /usr/local/sbin /usr/local/bin /opt/sbin /opt/bin /opt/local/sbin /opt/local/bin /sw/bin /sw/sbin ; do find $thisBinPath -name " & whichBinaryName & " ; done")
-  
-  if count(binaryPath) > 0 then return binaryPath[1]
-  
+      str = ""
+      if listP(li) then
+        cnt = count(li)
+        repeat with n = 1 to cnt
+          this = li[n]
+          if the last char of this <> RETURN then put RETURN after this
+          put this after str
+        end repeat
+        if length(str) > 0 then delete the last char of str
+      end if
+      return str
+    end if
+  end if
   return ""
   
@@ -3497 +2251 @@
 
 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
--- this can be used to open the corresponding script in bbedit and svn compare it to head
-
-on mExportCurrentScriptToWorkingCopyAndOpen me, convertLineBreaksToUnix
-  
-  mExportScriptsToFolder me, 1, 1, convertLineBreaksToUnix
-  
-  cl = the activecastlib
-  sel = the selection of castlib cl
-  
-  repeat with sub in sel
-    repeat with mem = sub[1] to sub[2]
-      memref = member(mem,cl)   
-      memtype = memref.type
-      if [#script, #field, #text].getPos(memtype) > 0 then
-        
-        case memtype of
-            
-            -----------------------
-          #script:
-            ext = ".ls"
-            st = memref.scripttext
-            
-            -----------------------
-          #field:
-            ext = ".txt"
-            st = memref.text
-            
-            -----------------------
-          #text:
-            ext = ".html"
-            st = memref.html
-            
-            -----------------------
-          otherwise:
-            ext = ".txt"
-            st = memref.text
-            
-        end case
-        
-        
-        thePath = mFindWorkingCopyCounterpart(me, memref, ext)
-        
-        if length(thePath) < 1 then
-          alert "Corresponding member was not found"
-          exit  
-        end if
-        
-        ------------------- export will now be done in "mExportScriptsToFolder"
-        --        st = memref.scripttext
-        --        mSaveToTextFile me, st, thePath
-        
-        if the platform contains "mac" then
-          if (mCheckForXtra(me, "budapi") + mCheckForXtra(me, "shell")) = 2 then
-            
-            bbeditBinary = mFindUnixAppInPath(me, "bbedit")
-            if length(bbeditBinary) > 0 then
-              shell_cmd(bbeditBinary && QUOTE & baUnixName(thePath) & QUOTE)
-              exit
-            end if
-            
-          end if
-        end if
-        
-        open thePath
-        exit
-        
-      end if
-      
-    end repeat
-  end repeat
-  
-end
-
--- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
-
-on mFindWorkingCopyCounterpart me, memref, file_extension
-  
-  file_extension = string(file_extension)
-  if length(file_extension) < 1 then file_extension = ".ls"
-  
-  workingCopies = value(getPref("svn_workingCopies_paths.txt"))
-  if ilk(workingCopies) <> #proplist then workingCopies = [:]
-  
-  theFolder = mGetWorkingCopyPath(me, the moviepath & the moviename, 0, workingCopies, "No working copy is specified for this movies scripttext. Please select a working copy for the scripttext now.")
-  --  put "mFindWorkingCopyCounterpart: theFolder:" && theFolder
-  
-  if length(theFolder) < 1 then return ""
-  
-  
-  m = memref.castlibnum
-  
-  delim = the last char of the applicationpath
-  olddelim = the itemdelimiter
-  the itemdelimiter = delim
-  theFoldername = theFolder
-  if the last char of theFoldername = delim then delete the last char of theFoldername
-  else put delim after theFolder
-  theFoldername = the last item of theFoldername
-  the itemdelimiter = olddelim
-  
-  infolist = 0
-  
-  if theFoldername <> "castlib" & m then
-    
-    newPath = theFolder & "castlib" & m & delim
-    
-    if baFolderExists(newPath) = 0 then
-      
-      infolistPath = theFolder & "memberInfo.xml"
-      
-      infolist = mReadXML_2_List(me, infolistPath)
-      
-      if ilk(infolist) <> #proplist then
-        
-        alert "The specified folder doesn't seem to contain info for this castlib: file memberInfo.xml missing."
-        return ""
-        
-      else
-        
-        if count(infolist) < 1 then
-          
-          alert "The specified folder doesn't seem to contain info for this castlib: file memberInfo.xml missing."
-          return ""
-          
-        else
-          theFolder = newPath
-        end if
-        
-      end if
-      
-    else
-      
-      theFolder = newPath
-      
-    end if
-    
-  end if
-  
-  
-  if infolist = 0 then
-    
-    infolistPath = theFolder & "memberInfo.xml"
-    infolist = mReadXML_2_List(me, infolistPath)
-    
-    if ilk(infolist) <> #proplist then
-      
-      alert "The specified folder doesn't seem to contain info for this castlib: file memberInfo.xml missing."
-      return ""
-      
-    end if
-    
-  end if
-  
-  
-  cnt = count(infolist)
-  
-  repeat with l = 1 to cnt
-    li = infolist[l]
-    --    put "memberName:" && li.getaprop(#memberName)
-    if li.getaprop(#memberName) = memref.name then
-      
-      fname = string(infolist[l].getaprop(#fname))
-      if length(fname) < 1 then fname = string(infolist.getpropat(l))
-      fpath = theFolder & fname & file_extension
-      
-      --      put "path:" && fpath 
-      if length(baShortFilename(fpath)) > 0 then return fpath
-      
-      -- if baFileExists(fpath) then return fpath
-      
-    end if
-  end repeat
-  
-  
-  return ""
-  
-end
-
--- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
--- export all scripts into a folder (I use this to compare to versions of a movie, open movie 1, export all scripts, open movie 2 and export all scripts and then compare with bbdiff both folders)
-
-on mExportScriptsToFolder me, skipIcons, selectionOnly, convertLineBreaksToUnix, chooseNewPath
-  
-  mExportAllScriptsToDiskWithFolder me, skipIcons, selectionOnly, convertLineBreaksToUnix, void, chooseNewPath
-  
-end
-
--- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
-
-on mExportAllScriptsToDiskWithFolder me, skipIcons, selectionOnly, convertLineBreaksToUnix, theFolder, chooseNewPath
-  
-  theFolder = string(theFolder)
-  if length(theFolder) < 1 then
-    
-    if chooseNewPath <> 1 then
-      workingCopies = value(getPref("svn_workingCopies_paths.txt"))
-      if ilk(workingCopies) <> #proplist then workingCopies = [:]
-      
-      theFolder = mGetWorkingCopyPath(me, the moviepath & the moviename, chooseNewPath, workingCopies, "No working copy is specified for this movies scripttext. Please select a working copy for the scripttext now.")
-    end if
-    
-    if length(theFolder) < 1 then
-      
-      theFolder = mGetFolderPathFromUser(me)
-      
-    end if
-    
-  end if
-  
-  if length(theFolder) < 1 then exit
-  
-  if ilk(selectionOnly) = #castlib then
-    firstCastNum = selectionOnly.number
-    lastCastNum = firstCastNum
-    selectionOnly = 0
-    
-  else
-    if selectionOnly = 1 then
-      cl = the activecastlib
-      sel = the selection of castlib cl
-      
-      firstCastNum = cl
-      lastCastNum = cl    
-      
-    else
-      firstCastNum = 1
-      lastCastNum = the number of castlibs
-    end if
-  end if
-  
-  
-  DirectImageInstance = 0
-  if skipIcons <> 1 then
-    if mCheckForXtra(me, "DirectImage") = 1 then
-      if the platform contains "mac" then
-        DirectImageInstance = new(xtra "DirectImage", 234521832)
-      else
-        DirectImageInstance = new(xtra "DirectImage", 228285877)
-      end if
-    else if mCheckForXtra(me, "SharpExport") = 1 then
-      SharpExportInst = new(xtra "SharpExport")
-    else
-      skipIcons = 1
-    end if
-  end if
-  
-  
-  
-  
-  isMac = (the platform contains "mac") -- we need the differentiation because of the dreaded 31 char limit
-  
-  doit = 0
-  
-  
-  statusSwitched = mSwitchToStatusMode(me, 1)
-  
-  repeat with m = firstCastNum to lastCastNum
-    
-    thisFolder = theFolder & "castlib" & m
-    if baFolderExists(thisFolder) <> 1 then
-      err = baCreateFolder(thisFolder)
-      if err <> 1 then
-        alert "Failed to create directory:" && thisFolder
-        if statusSwitched = 1 then statusSwitched = mSwitchToStatusMode(me, 0)
-        DirectImageInstance = 0
-        exit
-      end if
-    end if
-    
-    thisFolder = thisFolder & the last char of the applicationpath
-    
-    
-    doit = 0
-    infolistPath = thisFolder & "memberInfo.xml"
-    infolist = mReadXML_2_List(me, infolistPath)
-    if ilk(infolist) <> #proplist then infolist = [:]
-    
-    
-    if selectionOnly = 1 then
-      sel = the selection of castlib m
-    else
-      cnt = the number of members of castlib m
-      sel = [[1, cnt]]
-    end if
-    
-    repeat with sub in sel
-      repeat with n = sub[1] to sub[2]   
-        
-        memref = member(n, m)
-        
-        memtype = memref.type
-        
-        -- if [#script].getPos(memtype) > 0 then
-        if [#script, #field, #text].getPos(memtype) > 0 then
-          
-          case memtype of
-              
-              -----------------------
-            #script:
-              ext = ".ls"
-              scrText = memref.scripttext
-              scrtype = memref.scripttype
-              -----------------------
-            #field:
-              ext = ".txt"
-              scrText = memref.text
-              scrtype = #field
-              -----------------------
-            #text:
-              ext = ".html"
-              scrText = memref.html
-              convertLineBreaksToUnix = 0
-              scrtype = #text
-              -----------------------
-            otherwise:
-              ext = ".txt"
-              scrText = memref.text
-              scrtype = #field
-          end case
-          
-          
-          
-          memname = memref.name
-          
-          
-          mDisplayWaitStatusText me, "Processing member:" && memname
-          
-          
-          -- scrText = memref.scripttext
-          
-          
-          ------------- once I thought about adding the support for metadata directly to the script
-          ------------- metadata like thumbnail path, script type etc. 
-          ------------- but currently I stick to the memberInfo.xml approach to store the metadata
-          ------------- so the following is disabled ... meanwhile...
-          ------------- the "memberInfo.xml" approach is more svn like anyway
-          
-          
-          --          ------------------------------ check for existing meta data
-          --          
-          --          export_meta_data = scrText&""
-          --          offs = offset("-- -- -- export_meta_data", export_meta_data)
-          --          if offs > 0 then
-          --            delete char 1 to offs + 24 of export_meta_data
-          --            offs = offset("-- -- -- // export_meta_data", export_meta_data)
-          --            if offs > 0 then
-          --              delete char offs to length(export_meta_data) of export_meta_data
-          --            end if
-          --            numlines = export_meta_data.line.count
-          --            repeat with l = 1 to numlines
-          --              thisLine = export_meta_data.line[l]
-          --              
-          --            end repeat
-          --          end if
-          --          
-          --          ------------------------------
-          
-          
-          theDefaultName = memname
-          
-          doit = 1
-          
-          if length(theDefaultName) < 1 then
-            theDefaultName =  "member" & n & "_" & m
-            memref.name = theDefaultName
-            -- alert memref && "has no membername! Member without names will cause trouble when re-importing the scripts."
-            put "renamed member" && memref && "to member(" & QUOTE & theDefaultName & QUOTE & ") as member without names are not supported"
-            
-          else
-            
-            if memref <> member(theDefaultName, m) then
-              put "Member" && memref && "is duplicate. Member with duplicate names are not supported"
-              next repeat
-            end if
-            
-          end if
-          
-          
-          
-          -- if offset(".", theDefaultName) < 1 then put ".ls" after theDefaultName
-          
-          theDefaultName = mStripFunnyCharsFromFileName(me, theDefaultName)
-          
-          
-          origname = theDefaultName&""
-          if length(theDefaultName) > 25 and isMac then
-            
-            ms = string(the milliseconds)
-            mlen = length(ms)
-            ms = char mlen - 6 to mlen of ms
-            
-            theDefaultName = char 1 to 18 of theDefaultName
-            theDefaultName = theDefaultName & ms -- trim filenames as the mac version of fileio wants to deal with 31 chars
-            
-          end if
-          
-          
-          
-          ------------------------------------------ trac subversion support works better with unix linebreaks...
-          if voidP(convertLineBreaksToUnix) then convertLineBreaksToUnix = 1
-          if convertLineBreaksToUnix = "" then convertLineBreaksToUnix = 1
-          
-          if convertLineBreaksToUnix = 1 then
-            
-            if mCheckForXtra(me, "Pregex") = 1 then
-              
-              scrTextLi = [scrText]
-              pregex_replace(scrTextLi, "\x0D\x0A?", "g", "\x0A")
-              scrText = scrTextLi[1]
-              
-            else
-              
-              fndStr = numToChar(13) & numToChar(10)
-              offs = offset(fndStr, scrText)
-              repeat while offs > 0
-                delete char offs of scrText
-                offs = offset(fndStr, scrText)
-              end repeat
-              
-              fndStr = numToChar(13)
-              offs = offset(fndStr, scrText)
-              repeat while offs > 0
-                put numToChar(10) into char offs of scrText
-                offs = offset(fndStr, scrText)
-              end repeat
-              
-            end if
-          end if
-          -----------------------------------------
-          
-          
-          if theDefaultName <> origname then
-            alterText = ""
-            snam = baShortFileName(thisFolder & origname & ext)
-            if length(snam) > 0 then
-              alterText = mGetTextFromFile(me, thisFolder & origname & ext)
-            end if
-          else
-            alterText = mGetTextFromFile(me, thisFolder & theDefaultName & ext)
-          end if
-          
-          if alterText <> scrText then
-            
-            --------------------- compare without whitespaces:
-            noChanges = (mRemoveWhiteSpaces(me, scrText&"") = mRemoveWhiteSpaces(me, alterText&""))
-            
-            if noChanges = 0 then
-              
-              
-              mSaveToTextFile me, scrText, thisFolder & theDefaultName & ext
-              
-              
-              bmexp = 0
-              if skipIcons <> 1 then
-                
-                thumbmember = new(#bitmap)
-                thumbmember.picture = memref.thumbnail
-                
-                if thumbmember.width > 0 then
-                  bmexp = 1
-                  if baFileExists(thisFolder & theDefaultName & ".png") then baDeleteFile(thisFolder & theDefaultName & ".png")
-                  
-                  if objectP(DirectImageInstance) then
-                    
-                    DirectImageInstance.imageLoadFromMember(thumbmember)
-                    DirectImageInstance.imageSaveToFile(thisFolder & theDefaultName & ".png", 100, 1,1)
-                    
-                  else if objectP(SharpExportInst) then
-                    mExportBM me, thumbmember, thisFolder & theDefaultName & ".png", "png", 100, SharpExportInst
-                    
-                  end if
-                  
-                end if
-                
-                thumbmember.erase()
-                
-              end if
-              
-              
-              if theDefaultName <> origname then
-                
-                snam = baShortFileName(thisFolder & origname & ext)
-                if length(snam) > 0 then baDeleteFile(snam)
-                erg = baRenameFile(thisFolder & theDefaultName & ext, thisFolder & origname & ext)
-                if erg <> 1 then put "Couldn't rename file " & thisFolder & theDefaultName & ext & " to " & thisFolder & origname & ext
-                if bmexp = 1 then
-                  snam = baShortFileName(thisFolder & origname & ".png")
-                  if length(snam) > 0 then baDeleteFile(snam)
-                  erg = baRenameFile(thisFolder & theDefaultName & ".png", thisFolder & origname & ".png")
-                  if erg <> 1 then put "Couldn't rename file " & thisFolder & theDefaultName & ".png to " & thisFolder & origname & ".png"
-                end if
-                
-              end if
-              
-              if origname <> memname then
-                put "Renamed member" && memref && "to" && origname & ". Scriptmember names must not be emoty or contain illegal characters (SPACE, /, :, \, &)"
-              end if
-              
-            end if
-          end if
-          
-          
-          infolist.setaprop(symbol(origname), [#scripttype: scrtype, #comments: memref.comments, #membername: memname, #fname: origname])
-          -- we need to store origname as string additionally to symbol, as the symbol may change the case (although only ufs is case sensitive
-          -- I am more comfortable with not relying on case insensitivity of filesystems)
-          
-        end if
-        
-        
-      end repeat
-    end repeat
-    
-    if doit = 1 then
-      --      mSaveList_2_XML me, infolist, infolistPath
-      
-      mRefreshMemberInfoList me, thisFolder, m, infolist
-    end if
-    
-    
-  end repeat
-  
-  DirectImageInstance = 0
-  SharpExportInst = 0
-  
-  if statusSwitched = 1 then statusSwitched = mSwitchToStatusMode(me, 0)
-  
-end
-
--- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
-
-on mRefreshMemberInfoList me, thisFolder, theCastlibNumber, infolist
-  
-  infolistPath = thisFolder & "memberInfo.xml"
-  
-  if ilk(infolist) <> #proplist then infolist = mReadXML_2_List(me, infolistPath)
-  if ilk(infolist) <> #proplist then infolist = [:]
-  newInfolist = [:]
-  
-  isMac = (the platform contains "mac")
-  
-  cnt = the number of members of castlib theCastlibNumber
-  
-  repeat with n = 1 to cnt 
-    
-    memref = member(n, theCastlibNumber)
-    
-    memtype = memref.type
-    
-    -- if [#script].getPos(memtype) > 0 then
-    if [#script, #field, #text].getPos(memtype) > 0 then
-      
-      case memtype of
-          
-          -----------------------
-        #script:
-          ext = ".ls"
-          scrtype = memref.scripttype
-          -----------------------
-        #field:
-          ext = ".txt"
-          scrtype = #field
-          -----------------------
-        #text:
-          ext = ".html"
-          scrtype = #text
-          -----------------------
-        otherwise:
-          ext = ".txt"
-          scrtype = #field
-          
-      end case
-      
-      memname = memref.name
-      
-      theDefaultName = memname
-      
-      doit = 1
-      
-      if length(theDefaultName) < 1 then
-        
-        put "Member" && memref && "has no name, therefore skipped"
-        
-        --      if length(theDefaultName) < 1 then
-        --        theDefaultName =  "member" & n & "_" & theCastlibNumber
-        --        alert memref && "has no membername! Member without names will cause trouble when re-importing the scripts." 
-        --      end if
-        
-      else
-        
-        if memref <> member(theDefaultName, theCastlibNumber) then
-          put "Member" && memref && "is duplicate. Member with duplicate names are not supported"
-          
-        else
-          theDefaultName = mStripFunnyCharsFromFileName(me, theDefaultName)
-          
-          
-          origname = theDefaultName&""
-          
-          oldlist = infolist.getaprop(symbol(origname))
-          if not(listP(oldlist)) then
-            oldlist = [:]
-            fname = origname
-            snam = baShortFileName(thisFolder & origname & ext)
-            if length(snam) < 1 then
-              put "Something seems wrong here. baShortFileName for " & thisFolder & origname & ext && "returned false. The file doesn't seem to exist!"
-            end if
-            oldlist.setaprop(#fname, origname)
-          end if
-          oldlist.setaprop(#scripttype, scrtype)
-          oldlist.setaprop(#comments, memref.comments)
-          oldlist.setaprop(#membername, memname)
-          
-          
-          newInfolist.setaprop(symbol(origname), oldlist)
-          -- we need to store origname as string additionally to symbol, as the symbol may change the case (although only ufs is case sensitive
-          -- I am more comfortable with not relying on case insensitivity of filesystems)
-          
-        end if
-      end if
-    end if
-    
-  end repeat
-  
-  if doit = 1 then mSaveList_2_XML me, newInfolist, infolistPath
-  
-  
-end
-
--- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
-
-on mStripFunnyCharsFromFileName me, theFileName
-  
-  offs = offset(" ", theFileName)
-  repeat while offs > 0
-    put "_" into char offs of theFileName
-    offs = offset(" ", theFileName)
-  end repeat
-  
-  offs = offset("/", theFileName)
-  repeat while offs > 0
-    put "_" into char offs of theFileName
-    offs = offset("/", theFileName)
-  end repeat
-  
-  offs = offset(":", theFileName)
-  repeat while offs > 0
-    put "_" into char offs of theFileName
-    offs = offset(":", theFileName)
-  end repeat
-  
-  offs = offset("\", theFileName)
-  repeat while offs > 0
-    put "_" into char offs of theFileName
-    offs = offset("\", theFileName)
-  end repeat
-  
-  offs = offset("&", theFileName)
-  repeat while offs > 0
-    put "_" into char offs of theFileName
-    offs = offset("&", theFileName)
-  end repeat
-  
-  return theFileName
-  
-end
-
-
--- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
-
-on mRemoveWhiteSpaces me, theText
-  
-  if mCheckForXtra(me, "Pregex") = 1 then
-    
-    theText = [theText]
-    PRegEx_Replace(theText, "\s" , "g", "")
-    return theText[1]
-    
-  else
-    whitespaces = [" ", RETURN]
-    repeat with ws = count(whitespaces) down to 1
-      theText = mReplaceChunk(me, theText, whitespaces[ws], "")
-    end repeat
-  end if
-  
-  return theText
-  
-end
--- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
-
--- using offset() -> no pregex
-on mReplaceChunk me, srcText, fromChunk, toChunk
-  
-  stelle = offset(fromChunk, srcText)
-  
-  if stelle then
-    
-    len = fromChunk.length
-    newtext = ""
-    replText = toChunk
-    
-    repeat while stelle
-      
-      if stelle > 1 then put char 1 to (stelle - 1) of srcText & replText after newtext
-      else put replText after newtext
-      
-      delete char 1 to (stelle + len - 1) of srcText
-      
-      stelle = offset(fromChunk, srcText)
-      
-      if stelle = 0 then put srcText after newtext
-      
-    end repeat
-    
-  else -- no match
-    
-    return srcText
-  end if
-  
-  return newtext
-end
-
-
-
--- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
-
-on mSVN_Update_And_Import_ScriptsFromFolder me, chooseNewPath, selectionOnly
-  
-  if selectionOnly = 1 then
-    mUpdateSelectedScriptsFromFolder me, chooseNewPath
-    exit
-  end if
-  
-  
-  workingCopies = value(getPref("svn_workingCopies_paths.txt"))
-  if ilk(workingCopies) <> #proplist then workingCopies = [:]
-  
-  if chooseNewPath = 1 then
-    thePath = ""
-  else
-    thePath = string(mGetWorkingCopyPath(me, the moviepath & the moviename, chooseNewPath, workingCopies, "No working copy is specified for this movies scripttext. Please select a working copy for the scripttext now."))
-  end if
-  
-  
-  if length(thePath) < 1 then thePath = mGetFolderPathFromUser(me)
-  
-  if length(thePath) < 1 then exit
-  
-  if mCheckForXtra(me, "budapi") then
-    
-    statusSwitched = mSwitchToStatusMode(me, 1)
-    
-    if baFileExists(thePath & "memberInfo.xml") then
-      mUpdateScriptCastlibFromFolder me, thePath
-    else
-      folderlist = bafolderlist(thePath)
-      delim = the last char of the applicationpath
-      cnt = count(folderlist)
-      repeat with n = 1 to cnt
-        if folderlist[n] starts "castlib" then
-          mUpdateScriptCastlibFromFolder me, thePath & folderlist[n] & delim
-        end if
-      end repeat
-    end if
-    
-    if statusSwitched = 1 then statusSwitched = mSwitchToStatusMode(me, 0)
-    
-  else
-    
-    alert "Hey, buddyAPI not found! Please install this must-have xtra. And try again."
-    
-  end if
-  
-end
-
-
--- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
-
-on mUpdateScriptCastlibFromFolder me, thePath
-  
-  infoList = mReadXML_2_List(me, thePath & "memberInfo.xml")
-  
-  if ilk(infoList) <> #proplist then
-    alert thePath && "memberInfo.xml has no data! Can't update folder:" & thePath
-    return false
-  end if
-  
-  olddelim = the itemdelimiter
-  delim = the last char of the applicationpath
-  the itemdelimiter = delim
-  fd = thePath
-  if the last char of fd = delim then delete the last char of fd
-  fd = the last item of fd
-  the itemdelimiter = olddelim
-  
-  if not(fd starts "castlib") then
-    alert thePath && "does not seem to be valid, as its name doesn't start with " & QUOTE & "castlib" & QUOTE
-    return false
-  end if
-  
-  delete char 1 to 7 of fd
-  fd = integer(word 1 of fd)
-  
-  if not(integerP(fd)) then
-    alert thePath && "does not seem to be valid, as its name doesn't yield a castlib number:" && fd
-    return false
-  end if
-  
-  
-  if fd > the number of castlibs then
-    alert thePath && "points to a non-existant castlib (castlib" && fd & "). Please create the castlib before improting the scripts."
-    return false
-  end if
-  
-  cnt = count(infoList)
-  repeat with n = 1 to cnt
-    thisMemberInfo = infoList[n]
-    fname = string(thisMemberInfo.getaprop(#fname))
-    if length(fname) < 1 then fname = string(infoList.getPropAt(n))
-    fpath = thePath & fname
-    
-    scrtype = thisMemberInfo.getaprop(#scripttype)
-    case scrtype of
-      #field: ext = ".txt"
-      #text: ext = ".html"
-      otherwise: ext = ".ls"
-    end case
-    
-    mImportScriptWithThumbnail me, fpath & ext, fd, 1, thisMemberInfo
-    
-  end repeat
-  
-  
-  return true
-end
-
-
--- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
-
-on mUpdateSelectedScriptsFromFolder me, chooseNewPath
-  
-  workingCopies = value(getPref("svn_workingCopies_paths.txt"))
-  if ilk(workingCopies) <> #proplist then workingCopies = [:]
-  
-  if chooseNewPath = 1 then
-    thePath = ""
-  else
-    thePath = string(mGetWorkingCopyPath(me, the moviepath & the moviename, chooseNewPath, workingCopies, "No working copy is specified for this movies scripttext. Please select a working copy for the scripttext now."))
-  end if
-  
-  
-  if length(thePath) < 1 then thePath = mGetFolderPathFromUser(me)
-  
-  if length(thePath) < 1 then exit
-  
-  cl = the activecastlib
-  
-  olddelim = the itemdelimiter
-  the itemdelimiter = the last char of the applicationpath
-  fname = thePath
-  delete the last item of fname
-  fname = the last item of fname
-  the itemdelimiter = olddelim
-  
-  infolist = 0
-  
-  if fname <> "castlib" & the number of castlib cl then
-    
-    newPath = thePath & "castlib" & the number of castlib cl & the last char of the applicationpath
-    
-    if baFolderExists(newPath) = 0 then
-      
-      infolistPath = thePath & "memberInfo.xml"
-      
-      infolist = mReadXML_2_List(me, infolistPath)
-      
-      if ilk(infolist) <> #proplist then
-        
-        alert "The specified folder doesn't seem to contain info for this castlib: file memberInfo.xml missing."
-        return 0
-        
-      else
-        
-        thePath = newPath
-        
-      end if
-      
-    else
-      
-      thePath = newPath
-      
-    end if
-    
-  end if
-  
-  
-  if infolist = 0 then
-    
-    infolistPath = thePath & "memberInfo.xml"
-    infolist = mReadXML_2_List(me, infolistPath)
-    
-    if ilk(infolist) <> #proplist then
-      
-      alert "The specified folder (" & infolistPath & ") doesn't seem to contain info for this castlib: file memberInfo.xml missing."
-      return 0
-      
-    end if
-    
-  end if
-  
-  
-  if count(infolist) < 1 then
-    
-    alert "The specified folder (" & infolistPath & ") doesn't seem to contain info for this castlib: file memberInfo.xml missing."
-    return 0
-    
-  end if
-  
-  
-  cl = the activecastlib
-  sel = the selection of castlib cl
-  anz = sel.count
-  cnt = count(infolist)
-  
-  --  put "mUpdateSelectedScriptsFromFolder: infolist = " & infolist
-  
-  repeat with n = 1 to anz
-    repeat with m = sel[n][1] to sel[n][2]
-      memref = member(m, cl)
-      dertyp = memref.type
-      
-      if [#script, #text, #field].getPos(dertyp) > 0 then
-        
-        found = 0
-        repeat with l = 1 to cnt
-          li = infolist[l]
-          if li.getaprop(#memberName) = memref.name then
-            
-            fname = string(infolist[l].getaprop(#fname))
-            if length(fname) < 1 then fname = string(infolist.getpropat(l))
-            
-            case dertyp of
-              #text: ext = ".html"
-              #field: ext = ".txt"
-              otherwise: ext = ".ls"    
-            end case
-            
-            fpath = thePath & fname & ext
-            
-            found = 1
-            
-            if baFileExists(fpath) then
-              mImportScriptWithThumbnail me, fpath, the number of castlib cl, 1, li
-              
-              put "mUpdateSelectedScriptsFromFolder: imported scripttext of" && memref && "from" && fpath
-              
-            else
-              put "mUpdateSelectedScriptsFromFolder: file doesn't exist ?? fpath = " & fpath
-              
-            end if
-            
-          end if
-        end repeat
-        
-        
-        if found = 0 then
-          put "Info for member" && memref && "was not found in memberinfo.xml"
-        end if
-        
-      end if
-    end repeat
-  end repeat
-  
-  
-  
-  return 1
-  
-end
-
--- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
-
-on mImportScriptWithThumbnail me, thePath, castlibNumber, dontWarn, infolist
-  
-  -- <castlibNumber> is optional and will replace an existing script, if it exists
-  
-  castlibNumber = integer(castlibNumber)
-  if ilk(castlibNumber, #number) <> 1 then castlibNumber = 0
-  if castlibNumber > the number of castlibs or castlibNumber = 0 then
-    cl = the activecastlib
-    castlibNumber = the number of castlib cl
-  end if
-  
-  
-  thePath = string(thePath)
-  if length(thePath) < 1 then thePath = mGetFilePathFromUser(me)
-  
-  if length(thePath) < 1 then exit
-  
-  if mCheckForXtra(me, "budapi") then
-    buddyApiPresent = 1
-    spath = bashortfilename(thePath)
-    if length(spath) < 1 then
-      alert "file does not exist:" && spath
-      exit
-    end if
-  else
-    buddyApiPresent = 0
-    spath = thePath
-  end if
-  
-  
-  mDisplayWaitStatusText me, "Importing file:" && spath
-  
-  
-  scrtext = mGetTextFromFile(me, spath)
-  
-  if length(scrtext) < 1 then
-    alert "file not found:" && spath
-    return 0
-  end if
-  
-  oldd = the itemdelimiter
-  the itemdelimiter = the last char of the applicationpath
-  fname = the last item of thePath
-  delete the last item of thePath
-  put the itemdelimiter after thePath
-  
-  extension = ""
-  repeat while length(fname)
-    put the last char of fname before extension
-    delete the last char of fname
-    if char 1 of extension = "." then exit repeat
-  end repeat
-  if char 1 of extension <> "." then
-    put extension after fname
-    extension = ""
-  end if
-  
-  if ilk(infolist) <> #proplist then
-    infolistPath = thePath & "memberInfo.xml"
-    infolist = mReadXML_2_List(me, infolistPath)
-    if ilk(infolist) <> #proplist then infolist = [:]
-    
-    infolist = infolist.getaprop(symbol(fname))
-    if ilk(infolist) <> #proplist then infolist = [:]
-  end if
-  
-  scrtype = infolist.getaprop(#scripttype)
-  if ilk(scrtype) <> #symbol then
-    ident = "-- scripttype = "
-    scrtype = offset(ident, scrtext)
-    if scrtype > 0 then
-      scrtype = scrtext.word[scrtext.char[1 .. scrtype+length(ident) - 1].word.count + 1]
-      scrtype = value(scrtype)
-      if ilk(scrtype) <> #symbol then scrtype = 0
-    end if
-  end if
-  
-  
-  cmts = infolist.getaprop(#comments)
-  if voidP(cmts) then
-    ident = "-- comments = "
-    cmts = offset(ident, scrtext)
-    if cmts > 0 then
-      cmts = scrtext.line[scrtext.char[1 .. cmts+length(ident) - 1].line.count]
-      delete char 1 to length(ident) - 1 of cmts
-    end if
-  end if
-  
-  
-  theIcon = thePath & fname & ".png"
-  
-  --  if length(fname & ".png") > 31 and (the platform contains "mac") then
-  --    
-  --    unixname = baUnixName(theIcon)
-  --    if length(unixname) > 0 then
-  --      tempSrcPath = shell_cmd_list("mktemp -t temp_icon_file.XXXX")
-  --      tempSrcPath = tempSrcPath[1] & ".png"
-  --      shell_cmd_list("cp " & QUOTE & unixname & QUOTE && QUOTE& tempSrcPath &QUOTE)
-  --      theIcon = baHFSName(tempSrcPath)
-  --    else
-  --      theIcon = ""
-  --    end if
-  --    
-  --  end if
-  
-  if buddyApiPresent = 1 then theIcon = bashortfilename(theIcon)
-  
-  
-  fio = new(xtra "fileio")
-  if length(theIcon) > 0 then
-    fio.openFile(theIcon, 1)
-    if fio.status() = 0 then
-      i = new(#bitmap)
-      i.importFileInto(theIcon)
-      theIcon = i.picture
-      fio.closeFile()
-    end if
-  end if
-  
-  
-  membername = infolist.getaprop(#membername)
-  if voidP(membername) then
-    scrname = fname
-  else
-    scrname = string(membername)
-  end if
-  
-  
-  case scrtype of
-    #field, #text: memtype = scrtype
-    otherwise: memtype = #script
-  end case
-  
-  
-  askreplace = 1
-  scr = member(scrname, castlibNumber)
-  if voidP(scr) then
-    scr = new(memtype, castlib(castlibNumber))
-    askreplace = 0
-  end if
-  if scr.type <> #script then
-    scr = new(memtype, castlib(castlibNumber))
-    askreplace = 0
-  end if
-  
-  if dontWarn = 1 then askreplace = 0
-  
-  if askreplace = 1 then
-    if buddyApiPresent = 1 then
-      if baMsgBox("Replace member" && scrname, "Replace", "Yesno", "Warning", 1) = "No" then
-        if ilk(i) = #member then i.erase()
-        fio = 0
-        return 0
-      end if
-    end if
-  end if
-  
-  scr.name = scrname
-  
-  
-  
-  ------------------------------------------ trac subversion support works better with unix linebreaks...
-  if mCheckForXtra(me, "Pregex") = 1 then
-    
-    scrTextLi = [scrText]
-    if the platform contains "mac" then
-      pregex_replace(scrTextLi, "\x0D?\x0A", "g", "\x0D")
-    else
-      pregex_replace(scrTextLi, "\x0D([^\x0A])", "g", "\x0D\x0A\1")
-      pregex_replace(scrTextLi, "([^\x0D])\x0A", "g", "\1\x0D\x0A")
-    end if
-    scrText = scrTextLi[1]
-    
-  else
-    
-    if the platform contains "mac" then
-      
-      -- first convert windows to mac
-      fndStr = numToChar(13) & numToChar(10)
-      offs = offset(fndStr, scrText)
-      repeat while offs > 0
-        put numToChar(13) into char offs to offs+1 of scrText
-        offs = offset(fndStr, scrText)
-      end repeat
-      
-      -- now convert unix to mac
-      fndStr = numToChar(10)
-      offs = offset(fndStr, scrText)
-      repeat while offs > 0
-        put numToChar(13) into char offs of scrText
-        offs = offset(fndStr, scrText)
-      end repeat
-      
-    else
-      
-      
-      --      fndStr = numToChar(13) & numToChar(10)
-      --      offs = offset(fndStr, scrText)
-      --      repeat while offs > 0
-      --        delete char offs of scrText
-      --        offs = offset(fndStr, scrText)
-      --      end repeat
-      
-      fndStr = numToChar(13) & numToChar(10)
-      offs = offset(fndStr, scrText)
-      repeat while offs > 0
-        put numToChar(13) into char offs+1 of scrText
-        offs = offset(fndStr, scrText)
-      end repeat
-      
-      
-      fndStr = numToChar(10)
-      offs = offset(fndStr, scrText)
-      repeat while offs > 0
-        put numToChar(13) into char offs of scrText
-        offs = offset(fndStr, scrText)
-      end repeat
-      
-    end if
-    
-  end if
-  -----------------------------------------
-  
-  
-  
-  case scrtype of
-    #field: scr.text = scrtext
-    #text: scr.html = scrtext
-    otherwise: scr.scripttext = scrtext
-  end case
-  
-  
-  if [#movie, #parent, #score].getPos(scrtype) > 0 then scr.scripttype = scrtype
-  if cmts <> 0 then scr.comments = cmts
-  if ilk(theIcon) = #picture then scr.thumbnail = theIcon
-  
-  if ilk(i) = #member then i.erase()
-  fio = 0
-  
-  
-  mDisplayWaitStatusText me, "Imported file:" && spath && "into member" && scr
-  
-  
-  return 1
-  
-end
-
-
--- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
-on _______________SVN_FIELD_TEXT me
-end
--- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
-
-on mExportTextAndFieldsToFolder me, skipIcons_optional, selectionOnly_optional, convertLineBreaksToUnix, chooseNewPath_optional
-  mExportScriptsToFolder me, skipIcons_optional, selectionOnly_optional, convertLineBreaksToUnix, chooseNewPath_optional
-end
-
--- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
-
-on mImportTextAndFields me, thePath_optional, castlibNumber_optional, dontWarn_optional, infolist_optional
-  mImportScriptWithThumbnail me, thePath_optional, castlibNumber_optional, dontWarn_optional, infolist_optional
-end
-
--- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
-on _______________SVN_SUPPORT me
-end
--- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
-
-on mSVN_Update_Working_Copy_ScriptText me, chooseNewPath
-  
-  workingCopies = value(getPref("svn_workingCopies_paths.txt"))
-  if ilk(workingCopies) <> #proplist then workingCopies = [:]
-  
-  svnBinary = mGetSVNBinaryPath(me, workingCopies)
-  if length(svnBinary) < 1 then exit
-  
-  workingFolder = mGetWorkingCopyPath(me, the moviepath & the moviename, chooseNewPath, workingCopies, "No working copy is specified for this movies scripttext. Please select a working copy for the scripttext now.")
-  if length(workingFolder) < 1 then exit
-  
-  if the platform contains "mac" then
-    svnBinary = baUnixName(svnBinary)
-    workingFolder = baUnixName(workingFolder)
-  else
-    if the last char of workingFolder = the last char of the applicationpath then delete the last char of workingFolder
-  end if
-  
-  statusSwitched = mSwitchToStatusMode(me, 1)
-  mDisplayWaitStatusText me, "Updating folder:" && workingFolder
-  
-  theresult = shell_cmd_list(svnBinary && "update" && QUOTE & workingFolder & QUOTE)
-  
-  if statusSwitched = 1 then statusSwitched = mSwitchToStatusMode(me, 0)
-  
-  if count(theresult) > 0 then
-    put theresult[1]
-    alert "Done, see the results of the svn operation in the message window."
-  else
-    alert "svn application did not respond, something seems to have failed. :-("
-  end if
-  
-  setPref("svn_workingCopies_paths.txt", string(workingCopies))
-  
-end
-
-
--- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
-
-on mSVN_Delete_Selected_Scripts me, chooseNewPath
-  
-  
-  workingCopies = value(getPref("svn_workingCopies_paths.txt"))
-  if ilk(workingCopies) <> #proplist then workingCopies = [:]
-  
-  svnBinary = mGetSVNBinaryPath(me, workingCopies)
-  if length(svnBinary) < 1 then exit
-  
-  workingFolder = mGetWorkingCopyPath(me, the moviepath & the moviename, chooseNewPath, workingCopies, "No working copy is specified for this movies scripttext. Please select a working copy for the scripttext now.")
-  if length(workingFolder) < 1 then exit
-  
-  
-  if the platform contains "mac" then
-    isMac = 1
-    svnBinary = baUnixName(svnBinary)
-    
-  else
-    isMac = 0
-    
-  end if
-  
-  
-  thePath = workingFolder
-  
-  cl = the activecastlib
-  
-  pathdelim = the last char of the applicationpath
-  olddelim = the itemdelimiter
-  the itemdelimiter = pathdelim
-  fname = thePath
-  delete the last item of fname
-  fname = the last item of fname
-  the itemdelimiter = olddelim
-  
-  infolist = 0
-  
-  if fname <> "castlib" & the number of castlib cl then
-    
-    newPath = thePath & "castlib" & the number of castlib cl
-    
-    if baFolderExists(newPath) = 0 then
-      
-      infolistPath = thePath & pathdelim & "memberInfo.xml"
-      
-      infolist = mReadXML_2_List(me, infolistPath)
-      
-      if ilk(infolist) <> #proplist then
-        
-        alert "The specified folder doesn't seem to contain info for this castlib: file memberInfo.xml missing."
-        return 0
-        
-      else
-        
-        thePath = newPath & pathdelim
-        
-      end if
-      
-    else
-      
-      thePath = newPath & pathdelim
-      
-    end if
-  end if
-  
-  
-  if infolist = 0 then
-    
-    infolistPath = thePath & "memberInfo.xml"
-    infolist = mReadXML_2_List(me, infolistPath)
-    
-    if ilk(infolist) <> #proplist then
-      
-      alert "The specified folder doesn't seem to contain info for this castlib: file memberInfo.xml missing."
-      return 0
-      
-    end if
-    
-  end if
-  
-  if ilk(infolist) <> #proplist then
-    
-    alert "The specified folder doesn't seem to contain info for this castlib: file memberInfo.xml missing."
-    return 0
-    
-  end if
-  
-  if count(infolist) < 1 then
-    
-    alert "The specified folder doesn't seem to contain info for this castlib: file memberInfo.xml missing."
-    return 0
-    
-  end if
-  
-  doCommit = 0
-  saveRequired = 0
-  
-  cl = the activecastlib
-  sel = the selection of castlib cl
-  anz = sel.count
-  cnt = count(infolist)
-  repeat with n = 1 to anz
-    repeat with m = sel[n][1] to sel[n][2]
-      memref = member(m, cl)
-      dertyp = memref.type
-      
-      put "processing member" && memref
-      
-      if [#script, #field, #text].getPos(dertyp) then
-        
-        putstr = ""
-        repeat with l = 1 to cnt
-          li = infolist[l]
-          
-          -- put "listref  =" && li
-          
-          if li.getaprop(#memberName) = memref.name then
-            
-            theFilename = string(li.getaprop(#fname))
-            if length(theFilename) < 1 then theFilename = string(infolist.getpropat(l))
-            
-            scrtype = li.getaprop(#scripttype)
-            case scrtype of
-              #field: ext = ".txt"
-              #text: ext = ".html"
-              otherwise: ext = ".ls"
-            end case
-            
-            fpath = thePath & theFilename & ext
-            
-            put "checking for file" && fpath
-            
-            if isMac = 1 then
-              sname = baShortFileName(fpath)
-            else
-              sname = fpath
-            end if
-            
-            if baFileExists(fpath) then
-              
-              if isMac = 1 then
-                ufpath =  baUnixName(fpath)
-              else
-                ufpath =  fpath
-              end if
-              
-              theresult = shell_cmd_list(svnBinary && "delete" && QUOTE & ufpath & QUOTE)
-              if count(theresult) < 1 then
-                put "failed to svn delete member " & memref & " no result from svn?!"
-              else
-                put theresult[1]
-                doCommit = 1
-              end if
-              
-              infolist.deleteAt(l)
-              memref.erase()
-              saveRequired = 1
-              put "Erase member:" && memref.name
-              
-              putstr = ""
-              
-              exit repeat
-              
-            else
-              
-              putstr = "No corresponding file o disk was found for member" && memref.name && "(" & memref & ") erase the member manually:" & RETURN & memref & ".erase()" & RETURN
-              
-            end if
-            
-          end if
-          
-        end repeat
-        
-        if length(putstr) then put putstr
-        
-      end if
-    end repeat
-  end repeat
-  
-  
-  if saveRequired = 1 then
-    
-    if (baMsgBoxEx("The movie has been changed. Save changes to this movie?", "Save changes?", "Save", "Don't save", "", "Question", 1, "left", "Arial", 14, 4, -2, -2) = "Save") then
-      saveMovie()
-    end if
-    
-    mRefreshMemberInfoList me, thePath, castlib(cl).number
-    
-  end if
-  
-  
-  if doCommit = 1 then
-    
-    msg = baPrompt("Commit message", "Enter commit message", "Commitmessage", 0, -2, -2)
-    
-    if length(msg) < 1 then
-      alert "You must enter a message for the commit action."
-      exit
-    end if
-    
-    if isMac = 1 then
-      workingFolder = baUnixName(workingFolder)
-    else
-      if the last char of workingFolder = the last char of the applicationpath then delete the last char of workingFolder
-    end if
-    
-    theresult = shell_cmd_list(svnBinary && "ci --message" && QUOTE & msg & QUOTE && QUOTE & workingFolder & QUOTE)
-    
-    if count(theresult) > 0 then
-      put theresult[1]
-      alert "Done, see the results of the svn operation in the message window."
-    else
-      alert "svn application did not respond, something seems to have failed. :-("
-    end if
-    
-  else
-    
-    alert "Nothing has been committed!"
-    
-  end if
-  
-  return 1
-  
-end
-
-
--- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
-
-on mSVN_Commit_CurrentMovie_Binaries_AND_Scripttext me, chooseNewPath, commitMsg
-  
-  commitMsg = string(commitMsg)
-  if length(commitMsg) < 1 then
-    commitMsg = baPrompt("Commit message", "Enter commit message", "Commitmessage", 0, -2, -2)
-    
-    if length(commitMsg) < 1 then
-      alert "You must enter a message for the commit action."
-      exit
-    end if
-  end if
-  
-  
-  theResult = mSVN_Commit_CurrentScripts_ScriptText(me, 0, chooseNewPath, commitMsg, 1)
-  
-  theResult = mSVN_Commit_CurrentMovie_Binaries(me, chooseNewPath, commitMsg, 1)
-  
-  
-end
-
--- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
-
-on mSVN_Commit_SelectedCastlib_AND_Scripttext me, chooseNewPath, commitMsg, selectionList
-  
-  commitMsg = string(commitMsg)
-  if length(commitMsg) < 1 then
-    commitMsg = baPrompt("Commit message", "Enter commit message", "Commitmessage", 0, -2, -2)
-    
-    if length(commitMsg) < 1 then
-      alert "You must enter a message for the commit action."
-      exit
-    end if
-  end if
-  
-  
-  theResult = mSVN_Commit_CurrentScripts_ScriptText(me, castlib(the activecastlib), chooseNewPath, commitMsg, 1, selectionList)
-  
-  theResult = mSVN_Commit_SelectedCastlib(me, chooseNewPath, commitMsg, 1, 0, selectionList)
-  
-  
-end
-
--- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
-
-on mSVN_Commit_SelectedCastlib me, chooseNewPath, commitMsg, dontSave, dontShowAlert, selectionList
-  
-  
-  castlibList = 0
-  selectionList = string(selectionList)
-  if length(selectionList) > 0 then
-    if char 1 of selectionList <> "[" then put "[" before selectionList
-    if the last char of selectionList <> "]" then put "]" after selectionList
-    selectionList = value(selectionList)
-    if listP(selectionList) then
-      clnum = the number of castlibs + 1
-      castlibList = []
-      selectionListCnt = count(selectionList)
-      repeat with n = 1 to selectionListCnt
-        int = integer(selectionList[n])
-        if integerP(int) then
-          if clnum > int then
-            if castlibList.getPos(int) < 1 then castlibList.add(int)
-          end if
-        end if
-      end repeat
-    end if
-  end if
-  
-  if castlibList = 0 then
-    castlibList = []
-    actCL = the activecastlib
-    castlibList.add(actCL)
-  end if
-  
-  
-  mpname = the moviepath & the moviename
-  isInternal = 0
-  repeat with cl in castlibList
-    if castlib(cl).filename = mpname then
-      isInternal = 1
-      exit repeat
-    end if
-  end repeat
-  
-  
-  if count(castlibList) < 1 then
-    alert "No castlib selected. The parameter didn't yiled a valid list. Make sure, that you provide a linear list with integers, specifying a number of a castlib each."
-    return 0
-  end if
-  
-  
-  
-  put "Committing castlibs:" && castlibList
-  
-  
-  workingCopies = value(getPref("svn_wCopies_paths_Binary.txt"))
-  if ilk(workingCopies) <> #proplist then workingCopies = [:]
-  
-  svnBinary = mGetSVNBinaryPath(me, workingCopies)
-  if length(svnBinary) < 1 then return 0
-  
-  workingFolder = mGetWorkingCopyPath(me, the moviepath & the moviename, chooseNewPath, workingCopies, "No working copy is specified for this movies binaries (director files). Please select a working copy of the director files.")
-  if length(workingFolder) < 1 then return 0
-  
-  
-  ---------------------------------------
-  msg = string(commitMsg)
-  if length(msg) < 1 then
-    msg = baPrompt("Commit message", "Enter commit message", "Commitmessage", 0, -2, -2)
-    
-    if length(msg) < 1 then
-      alert "You must enter a message for the commit action."
-      return 0
-    end if
-  end if
-  ---------------------------------------
-  
-  
-  ---------------------------------------
-  if dontSave <> 1 then
-    -- this flag is only for the case, we come here from the combined commit call "mSVN_Commit_CurrentMovie_Binaries_AND_Scripttext"
-    -- as the movie was already saved in "mSVN_Commit_CurrentScripts_ScriptText"
-    
-    if workingCopies.getaprop(#dontWarnWhenSaving) <> 1 then
-      answer = baMsgBoxEx("The castlib will be saved before committing.", "Save castlib?", "Save", "Cancel", "Always save", "Question", 1, "left", "Arial", 14, 4, -2, -2)
-      if answer = "Cancel" then return 0
-      if answer = "Always save" then workingCopies.setaprop(#dontWarnWhenSaving, 1)
-    end if
-    
-    --    if the moviepath & the moviename = castlib(actCL).filename then
-    --      savemovie()
-    --    else
-    --      castlib(actCL).save()
-    --   end if
-    
-    if isInternal = 1 then
-      savemovie()
-    else
-      repeat with cl in castlibList
-        castlib(cl).save()
-      end repeat
-    end if
-    
-  end if
-  ----------------------------------------
-  
-  
-  statusSwitched = mSwitchToStatusMode(me, 1)
-  mDisplayWaitStatusText me, "Committing castlibs:" && castlibList
-  
-  
-  
-  --  fname = castlib(actCL).filename
-  
-  
-  ---------------------------------------
-  if workingFolder <> the moviepath then
-    
-    mp = the moviepath
-    mplen = length(mp)
-    olddelim = the itemdelimiter
-    the itemdelimiter = mp
-    
-    
-    castlibListCnt = count(castlibList)
-    repeat with r = 1 to castlibListCnt
-      cl = castlibList[r]
-      
-      fname = castlib(cl).filename
-      
-      if length(fname) > 0 then
-        
-        offs = offset(mp, fname)
-        if offs <> 1 then
-          alert "Castlib" && castlib(actCL) && "is not within your current moviepath. This is not supported."
-          if statusSwitched = 1 then statusSwitched = mSwitchToStatusMode(me, 0)
-          return 0
-        end if
-        
-        relpath = fname
-        delete char 1 to mplen of relpath
-        
-        newpath = workingFolder & relpath
-        newpathDir = newpath
-        delete the last item of newpathDir
-        if baFolderExists(newpathDir) <> 1 then baCreateFolder(newpathDir)
-        baCopyFileProgress(fname, newpath, "Always", "Copying castlib " & actCL & " to working folder", "", 33)
-        
-        castlibList[r] = [cl, fname, newpath, newpathDir]
-        
-      else
-        
-        -- must be something REALLY wrong, as the filename should ALWAYS be of any length (internal castlibs )
-        if statusSwitched = 1 then statusSwitched = mSwitchToStatusMode(me, 0)
-        return 0
-        
-      end if
-      
-    end repeat
-    
-    
-    the itemdelimiter = olddelim
-    
-  else
-    
-    castlibListCnt = count(castlibList)
-    repeat with r = 1 to castlibListCnt
-      cl = castlibList[r]
-      newpath = fname
-      castlibList[cl] = [cl, fname, fname]
-    end repeat
-    
-  end if
-  ---------------------------------------
-  
-  
-  ---------------------------------------
-  if the platform contains "mac" then
-    svnBinary = baUnixName(svnBinary)
-    workingFolder = baUnixName(workingFolder)
-    
-    castlibListCnt = count(castlibList)
-    repeat with r = 1 to castlibListCnt
-      castlibList[r][3] = baUnixName(castlibList[r][3])
-    end repeat
-    
-  else
-    if the last char of workingFolder = the last char of the applicationpath then delete the last char of workingFolder
-  end if
-  ---------------------------------------
-  
-  
-  isChanged = 0
-  castlibListCnt = count(castlibList)
-  repeat with r = 1 to castlibListCnt
-    --    cl = castlibList[r]
-    --  repeat with cl in castlibList
-    ---------------------------------------
-    
-    mDisplayWaitStatusText me, "SVN update of:" && castlibList[r][3]
-    
-    theresult = shell_cmd_list(svnBinary && "update" && QUOTE & castlibList[r][3] & QUOTE)
-    
-    if count(theresult) < 1 then
-      theresult = shell_cmd_list(svnBinary && "update" && QUOTE & castlibList[r][3] & QUOTE && "2>&1")
-      if count(theresult) < 1 then
-        theError = theresult[1]
-      else
-        theError = "svn did not respond at all."
-      end if
-      alert "Can't proceed svn error while trying to update:" && theError
-      if statusSwitched = 1 then statusSwitched = mSwitchToStatusMode(me, 0)
-      return 0  
-    end if
-    ---------------------------------------
-    
-    
-    
-    theresult = shell_cmd_list(svnBinary && "status" && QUOTE & castlibList[r][3] & QUOTE)
-    
-    cnt = count(theresult)
-    if cnt > 0 then
-      isChanged = 1
-      --      alert "Apparently there are no changes to the most recent version in the svn repository: svn status is empty"
-      --      return 0
-    end if
-    
-  end repeat
-  
-  if isChanged = 0 then
-    alert "Apparently there are no changes to the most recent version in the svn repository: svn status is empty"
-    if statusSwitched = 1 then statusSwitched = mSwitchToStatusMode(me, 0)
-    return 0 
-  end if
-  
-  
-  pathStr = ""
-  castlibListCnt = count(castlibList)
-  repeat with r = 1 to castlibListCnt
-    put " " & QUOTE & castlibList[r][3] & QUOTE after pathStr
-  end repeat
-  
-  
-  mDisplayWaitStatusText me, "SVN commit for:" && pathStr
-  
-  theresult = shell_cmd_list(svnBinary && "ci --message" && QUOTE & msg & QUOTE & pathStr)
-  
-  
-  ---------------------------------------
-  if count(theresult) > 0 then
-    theResult = theresult[1]
-    
-    put theResult
-    if dontShowAlert <> 1 then alert "Done, see the results of the svn operation in the message window."
-    
-  else
-    if dontShowAlert <> 1 then alert "svn application did not respond, something seems to have failed. :-("
-  end if
-  ---------------------------------------
-  
-  setPref("svn_wCopies_paths_Binary.txt", string(workingCopies))
-  
-  if statusSwitched = 1 then statusSwitched = mSwitchToStatusMode(me, 0)
-  
-  return 1
-  
-end
-
--- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
-
-on mSVN_Commit_CurrentMovie_Binaries me, chooseNewPath, commitMsg, dontSave, dontShowAlert
-  
-  workingCopies = value(getPref("svn_wCopies_paths_Binary.txt"))
-  if ilk(workingCopies) <> #proplist then workingCopies = [:]
-  
-  svnBinary = mGetSVNBinaryPath(me, workingCopies)
-  if length(svnBinary) < 1 then return 0
-  
-  workingFolder = mGetWorkingCopyPath(me, the moviepath & the moviename, chooseNewPath, workingCopies, "No working copy is specified for this movies binaries (director files). Please select a working copy of the director files.")
-  if length(workingFolder) < 1 then return 0
-  
-  
-  ---------------------------------------
-  msg = string(commitMsg)
-  if length(msg) < 1 then
-    msg = baPrompt("Commit message", "Enter commit message", "Commitmessage", 0, -2, -2)
-    
-    if length(msg) < 1 then
-      alert "You must enter a message for the commit action."
-      return 0
-    end if
-  end if
-  ---------------------------------------
-  
-  
-  ---------------------------------------
-  if dontSave <> 1 then
-    -- this flag is only for the case, we come here from the combined commit call "mSVN_Commit_CurrentMovie_Binaries_AND_Scripttext"
-    -- as the movie was already saved in "mSVN_Commit_CurrentScripts_ScriptText"
-    
-    if workingCopies.getaprop(#dontWarnWhenSaving) <> 1 then
-      answer = baMsgBoxEx("The movie will be saved before committing.", "Save movie?", "Save", "Cancel", "Always save", "Question", 1, "left", "Arial", 14, 4, -2, -2)
-      if answer = "Cancel" then return 0
-      if answer = "Always save" then workingCopies.setaprop(#dontWarnWhenSaving, 1)
-    end if
-    
-    statusSwitched = mSwitchToStatusMode(me, 1)
-    
-    mDisplayWaitStatusText me, "Saving movie..."
-    
-    saveMovie()
-    
-  else
-    
-    statusSwitched = mSwitchToStatusMode(me, 1)
-    
-  end if
-  ----------------------------------------
-  
-  
-  
-  ---------------------------------------
-  if workingFolder <> the moviepath then
-    erg = baCopyFileProgress(the moviepath & the moviename, workingFolder & the moviename, "Always", "Copying movie to working folder", "", 33)
-    if erg <> 0 then
-      alert "An error occurred during copying the movie:" && erg
-      if statusSwitched = 1 then statusSwitched = mSwitchToStatusMode(me, 0)
-      return 0
-    end if
-    clnum = the number of castlibs
-    mp = the moviepath
-    mplen = length(mp)
-    olddelim = the itemdelimiter
-    the itemdelimiter = mp
-    repeat with n = 2 to clnum
-      fname = castlib(n).filename
-      if length(fname) > 0 then
-        
-        if the moviepath & the moviename <> fname then
-          offs = offset(mp, fname)
-          if offs <> 1 then
-            alert "Castlib" && castlib(n) && "is not within your current moviepath. This is not supported."
-            if statusSwitched = 1 then statusSwitched = mSwitchToStatusMode(me, 0)
-            return 0
-          end if
-          relpath = fname
-          delete char 1 to mplen of relpath
-          
-          newpath = workingFolder & relpath
-          newpathDir = newpath
-          delete the last item of newpathDir
-          if baFolderExists(newpathDir) <> 1 then baCreateFolder(newpathDir)
-          baCopyFileProgress(fname, newpath, "Always", "Copying castlib " & n & " to working folder", "", 33)
-          
-        end if
-        
-      end if
-    end repeat
-    the itemdelimiter = olddelim
-  end if
-  ---------------------------------------
-  
-  ---------------------------------------
-  if the platform contains "mac" then
-    svnBinary = baUnixName(svnBinary)
-    workingFolder = baUnixName(workingFolder)
-  else
-    if the last char of workingFolder = the last char of the applicationpath then delete the last char of workingFolder
-  end if
-  ---------------------------------------
-  
-  
-  ---------------------------------------
-  mDisplayWaitStatusText me, "SVN update for:" && workingFolder
-  
-  theresult = shell_cmd_list(svnBinary && "update" && QUOTE & workingFolder & QUOTE)
-  
-  if count(theresult) < 1 then
-    theresult = shell_cmd_list(svnBinary && "update" && QUOTE & workingFolder & QUOTE && "2>&1")
-    if count(theresult) < 1 then
-      theError = theresult[1]
-    else
-      theError = "svn did not respond at all."
-    end if
-    alert "Can't proceed svn error while trying to update:" && theError
-    if statusSwitched = 1 then statusSwitched = mSwitchToStatusMode(me, 0)
-    return 0  
-  end if
-  ---------------------------------------
-  
-  
-  ------- NOW, basically there are two options, one is only commiting the files, which we have copied (director movie and castlibs)
-  ------- OR commit the whole folder (-> everything, which is changed or added to <workingFolder>)
-  ------- The problem regarding option #1, is that it would be a new revision for each file -> ugly
-  ------- #2 however "messes" with files, which the user may not expect...
-  ------- I for one prefer #2 anyway, therefore I didn't even implement #1
-  ------- in order to implement #1 you can use a repeat loop just like the above repeat, which goes thorugh each castlib
-  
-  theresult = shell_cmd_list(svnBinary && "status" && QUOTE & workingFolder & QUOTE)
-  
-  cnt = count(theresult)
-  if cnt < 1 then
-    alert "Apparently there are no changes to the most recent version in the svn repository: svn status is empty"
-    if statusSwitched = 1 then statusSwitched = mSwitchToStatusMode(me, 0)
-    return 0
-  end if
-  
-  repeat with n = 1 to cnt
-    answ = theresult[n]
-    meth = word 1 of answ
-    delete word 1 of answ
-    
-    case meth of
-      "!": -- deleted file (missing here, but in the repository present)
-        -- I don't think, it is a good idea to delete the file in the repository in this case
-        -- as it may also be the case, that we only have a subset of the castlibs/scripts
-        -- therefore I just skip these files and leave it to the user what to do with them in his svn client application
-        -- we only put a message, so the user is made aware of this fact
-        put "Missing file!" && answ && "is missing here, but present in the repository"
-        mDisplayWaitStatusText me, "Missing file!" && answ && "is missing here, but present in the repository"
-        
-      "?": -- newly added file
-        shell_cmd_list(svnBinary && "add" && QUOTE & answ & QUOTE)
-        
-        put "Added file" && answ && "to the repository"
-        mDisplayWaitStatusText me, "Added file" && answ && "to the repository"
-        
-      "m":
-        -- just log the changes:
-        put "Update file:" && answ
-        mDisplayWaitStatusText me, "Update file:" && answ
-        
-    end case
-    
-  end repeat
-  
-  mDisplayWaitStatusText me, "SVN commit of:" && workingFolder
-  
-  theresult = shell_cmd_list(svnBinary && "ci --message" && QUOTE & msg & QUOTE && QUOTE & workingFolder & QUOTE)
-  
-  
-  ---------------------------------------
-  if count(theresult) > 0 then
-    theResult = theresult[1]
-    
-    put theResult
-    if dontShowAlert <> 1 then alert "Done, see the results of the svn operation in the message window."
-    
-  else
-    if dontShowAlert <> 1 then alert "svn application did not respond, something seems to have failed. :-("
-  end if
-  ---------------------------------------
-  
-  setPref("svn_wCopies_paths_Binary.txt", string(workingCopies))
-  
-  if statusSwitched = 1 then statusSwitched = mSwitchToStatusMode(me, 0)
-  
-  return 1
-end
-
--- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
-
-on mSVN_Update_SelectedCastlib me, chooseNewPath, onlyUpdate_SVN_WorkingFolder, dontShowAlert
-  
-  actCL = the activecastlib
-  
-  workingCopies = value(getPref("svn_wCopies_paths_Binary.txt"))
-  if ilk(workingCopies) <> #proplist then workingCopies = [:]
-  
-  svnBinary = mGetSVNBinaryPath(me, workingCopies)
-  if length(svnBinary) < 1 then exit
-  
-  workingFolder = mGetWorkingCopyPath(me, the moviepath & the moviename, chooseNewPath, workingCopies, "No working copy is specified for this movies binaries (director files). Please select a working copy of the director files.")
-  if length(workingFolder) < 1 then exit
-  
-  
-  
-  oldmoviepath = the moviepath
-  oldmovie = oldmoviepath & the moviename
-  
-  
-  fname = castlib(actCL).filename
-  
-  ---------------------------------------
-  if workingFolder <> the moviepath then
-    
-    mp = the moviepath
-    mplen = length(mp)
-    olddelim = the itemdelimiter
-    the itemdelimiter = mp
-    
-    if length(fname) > 0 then
-      
-      offs = offset(mp, fname)
-      if offs <> 1 then
-        alert "Castlib" && castlib(actCL) && "is not within your current moviepath. This is not supported."
-        return 0
-      end if
-      
-      relpath = fname
-      delete char 1 to mplen of relpath
-      
-      newpath = workingFolder & relpath
-      newpathDir = newpath
-      delete the last item of newpathDir
-      -- if baFolderExists(newpathDir) <> 1 then baCreateFolder(newpathDir)
-      -- baCopyFileProgress(fname, newpath, "Always", "Copying castlib " & actCL & " to working folder", "", 33)
-      
-    else
-      
-      -- musty something REALLY wrong, as the filename should ALWAYS be of any length (internal castlibs )
-      return 0
-      
-    end if
-    
-    the itemdelimiter = olddelim
-    
-  else
-    
-    newpath = fname
-  end if
-  ---------------------------------------
-  
-  
-  statusSwitched = mSwitchToStatusMode(me, 1)
-  
-  
-  doReturnToOldMovie = 0
-  
-  if (onlyUpdate_SVN_WorkingFolder <> 1) or (the moviepath contains workingFolder) then
-    
-    mDisplayWaitStatusText me, "Temporary switch to new movie in order to replace files"
-    
-    ------------------------------
-    -- close this movie by issuing a "new movie..." command
-    -- in order to replace the current movie, with the updated movie
-    dispatchcommand(4097)
-    ------------------------------
-    
-    doReturnToOldMovie = 1
-    
-  end if
-  
-  
-  
-  if the platform contains "mac" then
-    svnBinary = baUnixName(svnBinary)
-    workingFolderUnix = baUnixName(workingFolder)
-    newpathUnix = baUnixName(newpath)
-  else
-    newpathUnix = newpath
-    workingFolderUnix = workingFolder
-    if the last char of workingFolderUnix = the last char of the applicationpath then delete the last char of workingFolderUnix
-  end if
-  
-  
-  mDisplayWaitStatusText me, "SVN update:" && newpathUnix
-  
-  theresult = shell_cmd_list(svnBinary && "update" && QUOTE & newpathUnix & QUOTE)
-  
-  
-  if count(theresult) > 0 then
-    
-    -------- reload the refreshed movie:
-    if the moviepath contains workingFolder then
-      
-      -- go to movie the moviepath & the moviename
-      
-    else
-      
-      if onlyUpdate_SVN_WorkingFolder <> 1 then
-        
-        -------------------------- now get the updated movies over here:
-        if the last char of workingFolder <> the last char of the applicationpath then put the last char of the applicationpath after workingFolder
-        
-        put "Copy file from " & workingFolder & " to " & oldmoviepath
-        
-        
-        erg = baCopyFileProgress(newpath, fname, "Always", "Replacing castlib with the version of the working folder", "", 33)
-        if erg <> 0 then
-          alert "An error occurred during copying the file (" & newpath & "). Error:" && erg
-        else
-          put "Replaced file:" && newpath
-        end if
-        
-        
-        ----------------------------------
-        
-      end if
-      
-    end if
-    
-    put theresult[1]
-    
-    if doReturnToOldMovie = 1 then go to movie oldmovie
-    
-    if dontShowAlert <> 1 then alert "Done, see the results of the svn operation in the message window."
-    
-  else
-    
-    if doReturnToOldMovie = 1 then go to movie oldmovie
-    
-    if dontShowAlert <> 1 then alert "svn application did not respond, something seems to have failed. :-("
-  end if
-  
-  
-  setPref("svn_wCopies_paths_Binary.txt", string(workingCopies))
-  
-  if statusSwitched = 1 then statusSwitched = mSwitchToStatusMode(me, 0)
-  
-end
-
--- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
-
-on mSVN_Update_CurrentMovie_Binaries me, chooseNewPath, onlyUpdate_SVN_WorkingFolder, dontShowAlert
-  
-  workingCopies = value(getPref("svn_wCopies_paths_Binary.txt"))
-  if ilk(workingCopies) <> #proplist then workingCopies = [:]
-  
-  svnBinary = mGetSVNBinaryPath(me, workingCopies)
-  if length(svnBinary) < 1 then exit
-  
-  workingFolder = mGetWorkingCopyPath(me, the moviepath & the moviename, chooseNewPath, workingCopies, "No working copy is specified for this movies binaries (director files). Please select a working copy of the director files.")
-  if length(workingFolder) < 1 then exit
-  
-  
-  statusSwitched = mSwitchToStatusMode(me, 1)
-  
-  
-  if the platform contains "mac" then
-    svnBinary = baUnixName(svnBinary)
-    workingFolderUnix = baUnixName(workingFolder)
-  else
-    workingFolderUnix = workingFolder
-    if the last char of workingFolderUnix = the last char of the applicationpath then delete the last char of workingFolderUnix
-  end if
-  
-  oldmoviepath = the moviepath
-  oldmovie = oldmoviepath & the moviename
-  
-  
-  doReturnToOldMovie = 0
-  
-  if (onlyUpdate_SVN_WorkingFolder <> 1) or (the moviepath contains workingFolder) then
-    
-    
-    mDisplayWaitStatusText me, "Temporary switch to new movie in order to replace files"
-    
-    ------------------------------
-    -- close this movie by issuing a "new movie..." command
-    -- in order to replace the current movie, with the updated movie
-    dispatchcommand(4097)
-    ------------------------------
-    
-    doReturnToOldMovie = 1
-    
-  end if
-  
-  mDisplayWaitStatusText me, "SVN update:" && workingFolderUnix
-  
-  theresult = shell_cmd_list(svnBinary && "update" && QUOTE & workingFolderUnix & QUOTE)
-  
-  if count(theresult) > 0 then
-    
-    -------- reload the refreshed movie:
-    if the moviepath contains workingFolder then
-      
-      -- go to movie the moviepath & the moviename
-      
-    else
-      
-      if onlyUpdate_SVN_WorkingFolder <> 1 then
-        
-        -------------------------- now get the updated movies over here:
-        if the last char of workingFolder <> the last char of the applicationpath then put the last char of the applicationpath after workingFolder
-        
-        put "Copy files from " & workingFolder & " to " & oldmoviepath
-        mCopyAllFiles(me, workingFolder, oldmoviepath)
-        
-        ----------------------------------
-        
-      end if
-      
-    end if
-    
-    put theresult[1]
-    
-    if doReturnToOldMovie = 1 then go to movie oldmovie
-    
-    if dontShowAlert <> 1 then alert "Done, see the results of the svn operation in the message window."
-    
-  else
-    
-    if doReturnToOldMovie = 1 then go to movie oldmovie
-    
-    if dontShowAlert <> 1 then alert "svn application did not respond, something seems to have failed. :-("
-  end if
-  
-  
-  setPref("svn_wCopies_paths_Binary.txt", string(workingCopies))
-  
-  
-  if statusSwitched = 1 then statusSwitched = mSwitchToStatusMode(me, 0)
-  
-end
-
--- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
-
-on mCopyAllFiles me, fromFolder, toFolder
-  
-  flist = baFolderList(fromFolder)
-  flistCnt = count(flist)
-  repeat with n = flistCnt down to 1
-    thisFolder = flist[n]
-    if thisFolder starts ".svn" then next repeat
-    if not(baFolderExists(toFolder & thisFolder)) then
-      put "Attempting to create folder:" && toFolder & thisFolder
-      erg = baCreateFolder(toFolder & thisFolder)
-      
-      if erg = 0 then put "successfully created folder"
-      else put "Unable to create folder."
-      
-    else
-      erg = 1
-    end if
-    
-    if erg = 1 then
-      mCopyAllFiles me, fromFolder & thisFolder & the last char of toFolder, toFolder & thisFolder & the last char of toFolder
-    else
-      alert "Unable to create folder (" & thisFolder & "). Error:" && erg
-    end if
-    
-  end repeat
-  
-  
-  
-  flist = baFileList(fromFolder, "")
-  flistCnt = count(flist)
-  repeat with n = 1 to flistCnt
-    thisFile = flist[n]
-    if thisFile starts ".svn" then next repeat
-    erg = baCopyFileProgress(fromFolder & thisFile, toFolder & thisFile, "Always", "Replacing movie with the version of the working folder", "", 33)
-    if erg <> 0 then
-      alert "An error occurred during copying the file (" & thisFile & "). Error:" && erg
-    else
-      put "Replaced file:" && thisFile
-    end if
-  end repeat
-  
-  
-end
-
-
--- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
-
-on mSVN_Commit_CurrentScripts_ScriptText me, selected_Members_Only, chooseNewPath, commitMsg, dontShowAlert, selectionList
-  
-  workingCopies = value(getPref("svn_workingCopies_paths.txt"))
-  if ilk(workingCopies) <> #proplist then workingCopies = [:]
-  
-  svnBinary = mGetSVNBinaryPath(me, workingCopies)
-  if length(svnBinary) < 1 then return 0
-  
-  workingFolder = mGetWorkingCopyPath(me, the moviepath & the moviename, chooseNewPath, workingCopies, "No working copy is specified for this movies scripttext. Please select a working copy for the scripttext now.")
-  if length(workingFolder) < 1 then return 0
-  
-  msg = string(commitMsg)
-  
-  
-  if length(msg) < 1 then
-    
-    msg = baPrompt("Commit message", "Enter commit message", "Commitmessage", 0, -2, -2)
-    
-    if length(msg) < 1 then
-      alert "You must enter a message for the commit action."
-      return 0
-    end if
-    
-  end if
-  
-  
-  if workingCopies.getaprop(#dontWarnWhenSaving) <> 1 then
-    answer = baMsgBoxEx("The movie will be saved before committing.", "Save movie?", "Save", "Cancel", "Always save", "Question", 1, "left", "Arial", 14, 4, -2, -2)
-    if answer = "Cancel" then return 0
-    if answer = "Always save" then workingCopies.setaprop(#dontWarnWhenSaving, 1)
-  end if
-  
-  
-  
-  statusSwitched = mSwitchToStatusMode(me, 1)
-  
-  clibfolder = ""
-  
-  castlibList = 0
-  
-  
-  
-  -------- if we work on only one castlib:
-  
-  if ilk(selected_Members_Only) = #castLib then
-    
-    
-    -----------------------------------------------------
-    
-    selectionList = string(selectionList)
-    if length(selectionList) > 0 then
-      
-      if char 1 of selectionList <> "[" then put "[" before selectionList
-      if the last char of selectionList <> "]" then put "]" after selectionList
-      
-      selectionList = value(selectionList)
-      if listP(selectionList) then
-        clnum = the number of castlibs + 1
-        castlibList = []
-        selectionListCnt = count(selectionList)
-        repeat with n = 1 to selectionListCnt
-          int = integer(selectionList[n])
-          if integerP(int) then
-            if clnum > int then
-              if castlibList.getPos(int) < 1 then castlibList.add(int)
-            end if
-          end if
-        end repeat
-      end if
-    end if
-    
-    if castlibList = 0 then
-      castlibList = []
-      castlibList.add(selected_Members_Only.number)
-    end if
-    
-    
-    mpname = the moviepath & the moviename
-    isInternal = 0
-    repeat with cl in castlibList
-      if castlib(cl).filename = mpname then
-        isInternal = 1
-        exit repeat
-      end if
-    end repeat
-    
-    
-    if count(castlibList) < 1 then
-      alert "No castlib selected. The parameter didn't yiled a valid list. Make sure, that you provide a linear list with integers, specifying a number of a castlib each."
-      if statusSwitched = 1 then statusSwitched = mSwitchToStatusMode(me, 0)
-      return 0
-    end if
-    
-    
-    
-    mDisplayWaitStatusText me, "Commiting scripttext for castlibs:" && castlibList
-    
-    put "Commiting scripttext for castlibs:" && castlibList
-    -----------------------------------------------------
-    
-    delim = the last char of the applicationpath
-    
-    olddelim = the itemdelimiter
-    the itemdelimiter = delim
-    
-    repeat with n = count(castlibList) down to 1
-      
-      selected_Members_Only = castlib(castlibList[n])
-      
-      mDisplayWaitStatusText me, "Saving castlib:" && selected_Members_Only
-      
-      selected_Members_Only.save()
-      
-      
-      
-      if the last item of workingFolder = "castlib" & selected_Members_Only.number then
-        clibfolder = workingFolder
-      else
-        if the last char of workingFolder <> delim then put delim after workingFolder
-        clibfolder = workingFolder & "castlib" & selected_Members_Only.number
-      end if
-      
-      castlibList[n] = [castlibList[n], clibfolder, workingFolder]
-      --------
-      
-      
-      mExportAllScriptsToDiskWithFolder me, 1, selected_Members_Only, 1, workingFolder
-      
-    end repeat
-    
-    the itemdelimiter = olddelim
-    
-    
-    
-  else -- treat all:
-    
-    mDisplayWaitStatusText me, "Saving movie..."
-    
-    saveMovie()
-    
-    mExportAllScriptsToDiskWithFolder me, 1, selected_Members_Only, 1, workingFolder
-    
-    castlibList = 0
-    
-  end if
-  
-  
-  
-  if castlibList = 0 then
-    
-    -------- if we work on only one castlib:
-    if length(clibfolder) > 0 then workingFolder = clibfolder
-    --------
-    
-    
-    if the platform contains "mac" then
-      svnBinary = baUnixName(svnBinary)
-      workingFolder = baUnixName(workingFolder)
-    else
-      if the last char of workingFolder = the last char of the applicationpath then delete the last char of workingFolder
-    end if
-    
-    
-    workingFolder = " " & QUOTE & workingFolder & QUOTE
-    
-  else
-    
-    if the platform contains "mac" then svnBinary = baUnixName(svnBinary)
-    cnt = count(castlibList)
-    
-    workingFolder = ""
-    
-    repeat with n = 1 to cnt
-      
-      if the platform contains "mac" then
-        castlibList[n][3] = baUnixName(castlibList[n][3])
-      else
-        str = castlibList[n][3]
-        if the last char of str = the last char of the applicationpath then
-          delete the last char of str
-          castlibList[n][3] = str
-        end if
-      end if
-      
-      put " " & QUOTE & castlibList[n][3] & QUOTE after workingFolder
-      
-    end repeat
-    
-  end if
-  
-  
-  mDisplayWaitStatusText me, "SVN update of:" && workingFolder
-  
-  
-  theresult = shell_cmd_list(svnBinary && "update" & workingFolder)
-  
-  
-  if count(theresult) < 1 then
-    theresult = shell_cmd_list(svnBinary && "update" & workingFolder && "2>&1")
-    if count(theresult) < 1 then
-      theError = theresult[1]
-    else
-      theError = "svn did not respond at all."
-    end if
-    alert "Can't proceed svn error while trying to update:" && theError
-    if statusSwitched = 1 then statusSwitched = mSwitchToStatusMode(me, 0)
-    return 0  
-  end if
-  
-  theresult = shell_cmd_list(svnBinary && "status" & workingFolder)
-  
-  cnt = count(theresult)
-  if cnt < 1 then
-    alert "Apparently there are no changes to the scripts of the most recent version in the svn repository: svn status is empty"
-    if statusSwitched = 1 then statusSwitched = mSwitchToStatusMode(me, 0)
-    return 0
-  end if
-  
-  repeat with n = 1 to cnt
-    answ = theresult[n]
-    meth = word 1 of answ
-    delete word 1 of answ
-    
-    case meth of
-      "!": -- deleted file (missing here, but in the repository present)
-        -- I don't think, it is a good idea to delete the file in the repository in this case
-        -- as it may also be the case, that we only have a subset of the castlibs/scripts
-        -- therefore I just skip these files and leave it to the user what to do with them in his svn client application
-        -- we only put a message, so the user is made aware of this fact
-        put "Missing file!" && answ && "is missing here, but present in the repository"
-        
-        mDisplayWaitStatusText me, "Missing file!" && answ && "is missing here, but present in the repository"
-        
-        
-      "?": -- newly added file
-        shell_cmd_list(svnBinary && "add" && QUOTE & answ & QUOTE)
-        
-        put "Added file" && answ && "to the repository"
-        
-        mDisplayWaitStatusText me, "Added file" && answ && "to the repository"
-        
-      "m":
-        -- just log the changes:
-        put "Update file:" && answ
-        
-        mDisplayWaitStatusText me, "Update file:" && answ
-        
-    end case
-    
-  end repeat
-  
-  mDisplayWaitStatusText me, "SVN commit:" && workingFolder
-  
-  theresult = shell_cmd_list(svnBinary && "ci --message" && QUOTE & msg & QUOTE & workingFolder)
-  
-  
-  if count(theresult) > 0 then
-    theResult = theresult[1]
-    
-    put theResult
-    
-    
-    if dontShowAlert <> 1 then
-      alert "Done, see the results of the svn operation in the message window."
-    end if
-    
-  else
-    alert "svn application did not respond, something seems to have failed, while commiting the scripttext. :-("
-  end if
-  
-  
-  setPref("svn_workingCopies_paths.txt", string(workingCopies))
-  
-  
-  if statusSwitched = 1 then statusSwitched = mSwitchToStatusMode(me, 0)
-  
-  return 1
-  
-end
-
-
-
--- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
----------- svn helper handlers
-
-on mGetSVNBinaryPath me, workingCopies
-  
-  if (mCheckForXtra(me, "budapi") + mCheckForXtra(me, "shell")) < 2 then
-    alert "You need the shell xtra and the buddyApi xtra in order to proceed"
-    return ""
-  end if
-  
-  savePrefs = 0
-  if ilk(workingCopies) <> #proplist then
-    workingCopies = value(getPref("svn_workingCopies_paths.txt"))
-    if ilk(workingCopies) <> #proplist then workingCopies = [:]
-    savePrefs = 1
-  end if
-  
-  
-  if the platform contains "mac" then
-    svnBinary = baHFSName(string(workingCopies.getaprop(#svnBinary)))
-  else
-    svnBinary = string(workingCopies.getaprop(#svnBinary))
-  end if
-  
-  if the platform contains "mac" then -- dunno how to check on windows, if svn is installed, anyone ?
-    
-    if baFileExists(svnBinary) <> 1 then svnBinary = ""
-    
-    
-    if length(svnBinary) < 1 then
-      
-      svnBinary = []
-      
-      svnBinary = shell_cmd_list("for thisBinPath in /usr/bin /bin /usr/sbin /sbin /usr/local/sbin /usr/local/bin /opt/sbin /opt/bin /opt/local/sbin /opt/local/bin /sw/bin /sw/sbin ; do find $thisBinPath -name svn ; done")
-      -- end if
-      
-      if count(svnBinary) < 1 then
-        alert "svn binary not found in your binaries folder. Where is the svn binary?"
-        svnBinary = mGetFilePathFromUser(me)
-        if length(svnBinary) < 1 then return ""
-        
-      else
-        svnBinary = baHFSName(svnBinary[1])
-        
-      end if
-      
-      
-    end if
-    
-    if baFileExists(svnBinary) <> 1 then
-      alert "The path to the svn binary seems to have changed. Please try again in order to search the path."
-      svnBinary = ""
-    end if
-    
-    
-  else
-    -- dunno how to check on windows, if svn is installed, anyone ?
-    svnBinary = "svn"
-  end if
-  
-  
-  workingCopies.setaprop(#svnBinary, svnBinary)
-  
-  if savePrefs = 1 then setPref("svn_workingCopies_paths.txt", string(workingCopies))
-  
-  return svnBinary
-  
-end
-
--- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
-
-on mGetWorkingCopyPath me, movieIdentifier, chooseNewPath, workingCopies, selectMsg
-  
-  movieIdentifier = string(movieIdentifier)
-  if length(movieIdentifier) < 1 then
-    movieIdentifier = the moviepath & the moviename
-  end if
-  
-  savePrefs = 0
-  if ilk(workingCopies) <> #proplist then
-    workingCopies = value(getPref("svn_workingCopies_paths.txt"))
-    if ilk(workingCopies) <> #proplist then workingCopies = [:]
-    savePrefs = 1
-  end if
-  
-  workingFolder = string(workingCopies.getaprop(movieIdentifier))
-  
-  if length(workingFolder) > 0 then
-    if baFolderExists(workingFolder) <> 1 then
-      workingFolder = ""
-    end if
-  end if
-  
-  
-  if chooseNewPath = 1 then
-    workingFolder = baGetFolder(the moviepath, "Please select a working copy for SVN update", 3, "Select working copy", -2, -2)
-  end if
-  
-  if workingFolder = "" then
-    
-    selectMsg = string(selectMsg)
-    if length(selectMsg) < 1 then selectMsg = "No working copy is specified for this movie. Please select a working copy now."
-    
-    alert selectMsg
-    
-    workingFolder = baGetFolder(the moviepath, "Please select a working copy for SVN update", 3, "Select working copy", -2, -2)
-  end if
-  
-  if length(workingFolder) < 1 then return ""
-  
-  delim = the last char of the applicationpath
-  if the last char of workingFolder <> delim then put delim after workingFolder
-  
-  if baFolderExists(workingFolder & ".svn") <> 1 then
-    
-    alert workingFolder && "does not appear to be a svn working copy."
-    
-    workingCopies.deleteprop(movieIdentifier)
-    
-    return ""
-  end if
-  
-  workingCopies.setaprop(movieIdentifier, workingFolder)
-  
-  if savePrefs = 1 then setPref("svn_workingCopies_paths.txt", string(workingCopies))
-  
-  return workingFolder
-  
-end
-
-
-
--- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
 on _______________GLOSSARY_ITEMS me
 end
 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
 
-
-
--- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
 
 on pasteDate me

trunk/lingosource/castlib1/convert_Lingo_2_CSS_Html.ls

@@ -22 +22 @@
     sel = the selection of castlib cl
     if not sel.count then
-      alert "Please select a #text member to convert"
+      alert "Please copy+paste scripttext into a #text member and select the #text member to convert the lingo into html with CSS."
       exit
     end if
     memref = member(sel[1][1], cl)
     if [#text, #field].getPos(memref.type) < 1 then
-      alert "Please select a #text member to convert"
+      alert "Please copy+paste scripttext into a #text member and select the #text member to convert the lingo into html with CSS."
       exit
     end if

trunk/lingosource/castlib1/memberInfo.xml

@@ -5 +5 @@
                 <comments></comments>
                 <memberName>thisMoviesScript</memberName>
-                <fName>thisMoviesScript</fName>
+                <fname>thisMoviesScript</fname>
         </thisMoviesScript>
         <keyboardNavigation_FrameLoop>
@@ -11 +11 @@
                 <comments></comments>
                 <memberName>keyboardNavigation_FrameLoop</memberName>
-                <fName>keyboardNavigation_FrameLoop</fName>
+                <fname>keyboardNavigation_FrameLoop</fname>
         </keyboardNavigation_FrameLoop>
         <menu1_button>
@@ -17 +17 @@
                 <comments></comments>
                 <memberName>menu1_button</memberName>
-                <fName>menu1_button</fName>
+                <fname>menu1_button</fname>
         </menu1_button>
         <menu2_button>
@@ -23 +23 @@
                 <comments></comments>
                 <memberName>menu2_button</memberName>
-                <fName>menu2_button</fName>
+                <fname>menu2_button</fname>
         </menu2_button>
         <simpleBMMenu>
@@ -29 +29 @@
                 <comments></comments>
                 <memberName>simpleBMMenu</memberName>
-                <fName>simpleBMMenu</fName>
+                <fname>simpleBMMenu</fname>
         </simpleBMMenu>
         <OSCmenu_Utilities>
@@ -35 +35 @@
                 <comments></comments>
                 <memberName>OSCmenu_Utilities</memberName>
-                <fName>OSCmenu_Utilities</fName>
+                <fname>OSCmenu_Utilities</fname>
         </OSCmenu_Utilities>
         <alexUtilities>
@@ -41 +41 @@
                 <comments>~/Documents/Scripts/lingo/commonMovieScript.ls</comments>
                 <memberName>alexUtilities</memberName>
-                <fName>alexUtilities</fName>
+                <fname>alexUtilities</fname>
         </alexUtilities>
         <convert_Lingo_2_CSS_Html>
@@ -47 +47 @@
                 <comments>~/Documents/Scripts/lingo/convert_Lingo_2_CSS_Html.ls</comments>
                 <memberName>convert_Lingo_2_CSS_Html</memberName>
-                <fName>convert_Lingo_2_CSS_Html</fName>
+                <fname>convert_Lingo_2_CSS_Html</fname>
         </convert_Lingo_2_CSS_Html>
         <OSCmenu_Handlers>
@@ -53 +53 @@
                 <comments></comments>
                 <memberName>OSCmenu_Handlers</memberName>
-                <fName>OSCmenu_Handlers</fName>
+                <fname>OSCmenu_Handlers</fname>
         </OSCmenu_Handlers>
         <pastefeld>
@@ -59 +59 @@
                 <comments></comments>
                 <memberName>pastefeld</memberName>
-                <fName>pastefeld</fName>
+                <fname>pastefeld</fname>
         </pastefeld>
         <oldclipboard>
@@ -65 +65 @@
                 <comments></comments>
                 <memberName>oldclipboard</memberName>
-                <fName>oldclipboard</fName>
+                <fname>oldclipboard</fname>
         </oldclipboard>
         <searchword>
@@ -71 +71 @@
                 <comments></comments>
                 <memberName>searchword</memberName>
-                <fName>searchword</fName>
+                <fname>searchword</fname>
         </searchword>
         <resizewindowfs>
@@ -77 +77 @@
                 <comments></comments>
                 <memberName>resizewindowfs</memberName>
-                <fName>resizewindowfs</fName>
+                <fname>resizewindowfs</fname>
         </resizewindowfs>
         <showHideHelp>
@@ -83 +83 @@
                 <comments></comments>
                 <memberName>showHideHelp</memberName>
-                <fName>showHideHelp</fName>
+                <fname>showHideHelp</fname>
         </showHideHelp>
         <helptext>
@@ -92 +92 @@
 rtf</comments>
                 <memberName>helptext</memberName>
-                <fName>helptext</fName>
+                <fname>helptext</fname>
         </helptext>
         <texthyperlinkBehavior>
@@ -98 +98 @@
                 <comments>/Users/alex/Documents/ALIEN/myLinkedScripts/texthyperlinkBehavior.ls</comments>
                 <memberName>texthyperlinkBehavior</memberName>
-                <fName>texthyperlinkBehavior</fName>
+                <fname>texthyperlinkBehavior</fname>
         </texthyperlinkBehavior>
         <bbdiff>
@@ -104 +104 @@
                 <comments></comments>
                 <memberName>bbdiff</memberName>
-                <fName>bbdiff</fName>
+                <fname>bbdiff</fname>
         </bbdiff>
         <statusOutput>
@@ -113 +113 @@
 rtf</comments>
                 <memberName>statusOutput</memberName>
-                <fName>statusOutput</fName>
+                <fname>statusOutput</fname>
         </statusOutput>
+        <bbedit_Utilities>
+                <scriptType>#parent</scriptType>
+                <comments>~/Documents/Scripts/lingo/commonMovieScript.ls</comments>
+                <memberName>bbedit_Utilities</memberName>
+                <fname>bbedit_Utilities</fname>
+        </bbedit_Utilities>
+        <svn_Utilities>
+                <scriptType>#parent</scriptType>
+                <comments>~/Documents/Scripts/lingo/commonMovieScript.ls</comments>
+                <memberName>svn_Utilities</memberName>
+                <fname>svn_Utilities</fname>
+        </svn_Utilities>
 </Untitled>

trunk/lingosource/castlib2/FileIOFunktionen.ls

@@ -106 +106 @@
       if call(#mCheckForXtra, mGetXScript(), "BudAPI") = 1 then
         startfolder = string(startfolder)
+        
+        resetUNames = 0
+        if the platform contains "mac" then
+        if baSysFolder("prefs") starts "/" then
+          baReturnUnixNames(0)
+          resetUNames = 1
+        end if
+        end if
         if length(startfolder) > 0 then
           pfad = baGetFilename("save", startfolder, theDefaultName, "", 524288+2+4+4194304, theTitle, false, -1, -1)
@@ -111 +119 @@
         pfad = baGetFilename("save", "", theDefaultName, "", 524288+2+4+4194304, theTitle, false, -1, -1)
         end if
+        
+        if resetUNames = 1 then baReturnUnixNames(1)
+        
       else
         pfad = fio.displaySave(theTitle, theDefaultName)
@@ -275 +286 @@
   if call(#mCheckForXtra, mGetXScript(), "BudAPI") = 1 then
     
+    resetUNames = 0
+    if the platform contains "mac" then
+    if baSysFolder("prefs") starts "/" then
+      baReturnUnixNames(0)
+      resetUNames = 1
+    end if
+    end if
+    
     startDir = string(startDir)
     defaultName = string(defaultName)
@@ -281 +300 @@
     prompt = string(prompt)
     
-    return baGetFilename("open", startDir, defaultName, filetypes, 524288+4+2+4194304, prompt, false, -2, -1)
+    retval = baGetFilename("open", startDir, defaultName, filetypes, 524288+4+2+4194304, prompt, false, -2, -1)
+    
+    if resetUNames = 1 then baReturnUnixNames(1)
+    
+    return retval
     
   else
@@ -307 +330 @@
   
   if xscr().mCheckForXtra("BudAPI") = 1 then -- if buddy is present...
+    
+    resetUNames = 0
+    if the platform contains "mac" then
+    if baSysFolder("prefs") starts "/" then
+      baReturnUnixNames(0)
+      resetUNames = 1
+    end if
+    end if
+    
     retval = baGetFolder( "", "Select a folder", 3, "", 50, 50 )
+    
+    if resetUNames = 1 then baReturnUnixNames(1)
+    
   else if xscr().mCheckForXtra("FileXtra4") = 1 then -- if not buddy then try filextra
     fx = (xtra "filextra4").new()
@@ -340 +375 @@
   
   if xscr().mCheckForXtra("BudAPI") then -- if buddy is present...
+    
     --  -- budApi version:
     retval = baFileList(folderpath, "*.*")

trunk/lingosource/castlib2/GetSetPrefs.ls

@@ -85 +85 @@
         thePrefs = ""
       else
+        
+        resetUNames = 0
+        if the platform contains "mac" then
+        if baSysFolder("prefs") starts "/" then
+          baReturnUnixNames(0)
+          resetUNames = 1
+        end if
+        end if
+        
         prefspath = baSysFolder("prefs")
+        
+        if resetUNames = 1 then baReturnUnixNames(1)
+        
         thePath = prefspath & prefsname
         fio.openfile(thePath, 1)
@@ -249 +261 @@
       if objectP(fio) then
         
+        resetUNames = 0
+        if the platform contains "mac" then
+        if baSysFolder("prefs") starts "/" then
+          baReturnUnixNames(0)
+          resetUNames = 1
+        end if
+        end if
+        
         prefpfad = baSysFolder("prefs")&prefsname
+        
+        if resetUNames = 1 then baReturnUnixNames(1)
         
         fio.openfile(prefpfad, 1)

trunk/lingosource/castlib2/PseudoXMLPS.ls

@@ -121 +121 @@
 
 -- Example:
--- saveString = mGetXMLStringFromList(lingo_list, "documentName")
+-- saveString = mGetXMLStringFromList(me, lingo_list, "documentName")
 
 on mGetXMLStringFromList me, listref, docName, strict, dontReplaceGT, withParams
@@ -157 +157 @@
 
 -- Example:
--- lingo_list = mGetListFromXMLString(saveString)
+-- lingo_list = mGetListFromXMLString(me, saveString)
 
 on mGetListFromXMLString me, str, convertValues, withParams
@@ -993 +993 @@
                         
                       else
-                        xscr().mPut("mParseExcelXML: Row "&n&" Cell "&m&" is not a property list")
+                        call(#mPut, [mGetXScript(#commonmoviescript)], "mParseExcelXML: Row "&n&" Cell "&m&" is not a property list")
                       end if -- if ilk(thisCell) = #proplist then
                       
@@ -999 +999 @@
                     
                   else
-                    xscr().mPut("mParseExcelXML: Row "&n&" is not a list")
+                    call(#mPut, [mGetXScript(#commonmoviescript)], "mParseExcelXML: Row "&n&" is not a list")
                   end if -- if listP(currRow) then
                   
@@ -1005 +1005 @@
                 
               else
-                xscr().mPut("mParseExcelXML: Table not found")
+                call(#mPut, [mGetXScript(#commonmoviescript)], "mParseExcelXML: Table not found")
               end if -- if listP(xmlList) then
               
             else
-              xscr().mPut("mParseExcelXML: Worksheet not found")
+              call(#mPut, [mGetXScript(#commonmoviescript)], "mParseExcelXML: Worksheet not found")
             end if -- if ilk(xmlList) = #proplist then
             
           else
-            xscr().mPut("mParseExcelXML: Workbook not found")
+            call(#mPut, [mGetXScript(#commonmoviescript)], "mParseExcelXML: Workbook not found")
           end if -- if ilk(xmlList) = #proplist then
           
         else
-          xscr().mPut("mParseExcelXML: ROOT is not a property list")
+          call(#mPut, [mGetXScript(#commonmoviescript)], "mParseExcelXML: ROOT is not a property list")
         end if --if ilk(xmlList) = #proplist then
         
       else
-        xscr().mPut("mParseExcelXML: Xml parser makelist() returned empty list")
+        call(#mPut, [mGetXScript(#commonmoviescript)], "mParseExcelXML: Xml parser makelist() returned empty list")
       end if -- if count(xmlList) > 0 then
       
     else
-      xscr().mPut("mParseExcelXML: Xml parser makelist() failed")
+      call(#mPut, [mGetXScript(#commonmoviescript)], "mParseExcelXML: Xml parser makelist() failed")
     end if -- if listP(xmlList) then
     
   else
-    xscr().mPut("mParseExcelXML: Xml parser error: "&xmlp.getError())
+    call(#mPut, [mGetXScript(#commonmoviescript)], "mParseExcelXML: Xml parser error: "&xmlp.getError())
   end if -- if voidP(xmlp.getError()) then
   
@@ -1234 +1234 @@
   else
     pregex_translate(strli, li[1], li[2])
+    
   end if
   

trunk/lingosource/castlib2/commonMovieScript.ls

@@ -319 +319 @@
   
   theGlobs = mGetGlobalList(me)
-  if theGlobs.getaprop(#gCustomKeyHandling) = 1 then return mProcessKeyDownEvent()
+  if theGlobs.getaprop(#gCustomKeyHandling) = 1 then return mProcessKeyDownEvent(tk, kc)
   
   retval = 0
@@ -1699 +1699 @@
 
 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
+
+on mValidateEmailAddress me, emailAddress
+  retval = 0
+  oldd = the itemdelimiter
+  the itemdelimiter = "@"
+  numItems = the number of items of emailAddress
+  if numitems > 1 then
+    if length(item 1 of emailAddress) > 0 then
+      if length(item 2 of emailAddress) > 0 then
+        offs = offset(".", item 2 of emailAddress)
+        if offs > 1 then
+          if offs < (length(item 2 of emailAddress) - 1) then
+            if offs > (length(item 2 of emailAddress) - 4) then
+              retval = 1
+            end if
+          end if
+        end if
+      end if
+    end if
+  end if
+  the itemdelimiter = oldd
+  return retval
+end
+
+
+-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
 on ____________CONVERT_CASE
 end
@@ -1784 +1810 @@
     "it":
       li = ["Luned“","Marted“","Mercoled“","Gioved“","Venerd“","Sabato","Domenica"]
+    "nl":
+      li = ["Maandag","Dinsdag","Woensdag","Donderdag","Vrijdag","Zaterdag","Zondag"]
+    "en":
+      li = ["Monday","Tuesday","Wednesday","Thursday","Friday","Saturday","Sunday"]
     otherwise:
-      li = ["Monday","Tuesday","Wednesday","Thursday","Friday","Saturday","Sunday"]
+      return vN
   end case
   return li.getAt(vN)

trunk/lingosource/castlib2/memberInfo.xml

@@ -5 +5 @@
                 <comments>~/Documents/Scripts/lingo/commonMovieScript.ls</comments>
                 <memberName>commonMovieScript</memberName>
-                <fName>commonMovieScript</fName>
+                <fname>commonMovieScript</fname>
         </commonmoviescript>
         <FileIOFunktionen>
@@ -11 +11 @@
                 <comments>~/Documents/Scripts/lingo/FileIOFunktionen.ls</comments>
                 <memberName>FileIOFunktionen</memberName>
-                <fName>FileIOFunktionen</fName>
+                <fname>FileIOFunktionen</fname>
         </FileIOFunktionen>
         <GetSetPrefs>
@@ -17 +17 @@
                 <comments>~/Documents/Scripts/lingo/GetSetPrefs.ls</comments>
                 <memberName>GetSetPrefs</memberName>
-                <fName>GetSetPrefs</fName>
+                <fname>GetSetPrefs</fname>
         </GetSetPrefs>
         <aleXtrasMovieScript>
@@ -23 +23 @@
                 <comments>~/Documents/Scripts/lingo/aleXtrasMovieScript.ls</comments>
                 <memberName>aleXtrasMovieScript</memberName>
-                <fName>aleXtrasMovieScript</fName>
+                <fname>aleXtrasMovieScript</fname>
         </aleXtrasMovieScript>
         <PseudoXMLPS>
@@ -29 +29 @@
                 <comments>~/Documents/Scripts/lingo/PseudoXMLPS.ls</comments>
                 <memberName>PseudoXMLPS</memberName>
-                <fName>PseudoXMLPS</fName>
+                <fname>PseudoXMLPS</fname>
         </PseudoXMLPS>
         <simpleGoToAction>
@@ -35 +35 @@
                 <comments>/Users/alex/Documents/ALIEN/myLinkedScripts/simpleGoToAction.ls</comments>
                 <memberName>simpleGoToAction</memberName>
-                <fName>simpleGoToAction</fName>
+                <fname>simpleGoToAction</fname>
         </simpleGoToAction>
         <SpriteNameBeaver>
@@ -41 +41 @@
                 <comments>~/Documents/Scripts/lingo/SpriteNameBeaver.ls</comments>
                 <memberName>SpriteNameBeaver</memberName>
-                <fName>SpriteNameBeaver</fName>
+                <fname>SpriteNameBeaver</fname>
         </SpriteNameBeaver>
 </Untitled>