Changeset 80 for branches/beta/castlib2/FileIOFunktionen.ls

Timestamp:

12/07/07 08:23:09 (4 years ago)

Author:

alex

Message:

combined version

File:

• branches/beta/castlib2/FileIOFunktionen.ls (modified) (6 diffs)

branches/beta/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, "*.*")