Changeset 18 for trunk/lingosource/castlib3/FileIOFunktionen.ls

Timestamp:

10/24/08 12:12:09 (4 years ago)

Author:

alex

Message:

updated movie to incorporate new version of library scripts

File:

• trunk/lingosource/castlib3/FileIOFunktionen.ls (modified) (13 diffs)

trunk/lingosource/castlib3/FileIOFunktionen.ls

@@ -1 @@
--- FileIO Handlers -- ©03 Alex da Franca -- alex@farbflash.de
+-- FileIO Handlers -- c03 Alex da Franca -- alex@farbflash.de
 ---------------------------------------------------------------------
 
@@ -63 +63 @@
   if not(internetLink) then internetLink = (fname starts "www.")
   if the runmode contains "plugin" or internetLink then
-    scr = xscr().mGetInstance("NetLingoManagerPS__")
-    if ilk(scr) = #instance then
-      scr.mStartNetOP(paramList)
-    else
+    --    scr = xscr().mGetInstance("NetLingoManagerPS__")
+    --    if ilk(scr) = #instance then
+    --      scr.mStartNetOP(paramList)
+    --    else
       scr = xscr().mGetInstance("NetTextReaderPS")
     if ilk(scr) = #instance then
@@ -75 +75 @@
       call(paramList.getaprop(#handler), [paramList.getaprop(#target)], paramList)
     end if
-    end if
+    --    end if
   else
     paramList.setaprop(#theTextResult, mGetTextFromFile(me, paramList.getaprop(#theURL)))
@@ -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, "*.*")
@@ -349 +385 @@
       retval = fx.fx_FolderToList(folderpath)
       delim = the last char of the moviepath
-      if length(delim) < 1 then delim = the last char of the applicationpath
+      if length(delim) < 1 then
+        if not(the runmode contains "plug") then
+          delim = the last char of the applicationpath
+        end if
+      end if
       if length(delim) < 1 then delim = "/"
       repeat with n = count(retval) down to 1
@@ -390 +430 @@
       retval = fx.fx_FolderToList(folderpath)
       delim = the last char of the moviepath
-      if length(delim) < 1 then delim = the last char of the applicationpath
+      if length(delim) < 1 then
+        if not(the runmode contains "plug") then
+          delim = the last char of the applicationpath
+        end if
+      end if
       if length(delim) < 1 then delim = "/"
       repeat with n = count(retval) down to 1
@@ -416 +460 @@
       this = getnthfilenameinfolder(folderpath, n)
     end repeat
+  end if
+  
+  return retval
+  
+end
+
+
+-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
+
+on mGetFileAndFolderList me, folderpath
+  if the runmode contains "plugin" then return []
+  
+  if length(string(folderpath)) < 1 then folderpath = mGetFolderPathFromUser(me)
+  if length(folderpath) < 1 then return []
+  
+  if xscr().mCheckForXtra("BudAPI") then -- if buddy is present...
+    --  -- budApi version:
+    retval = baFolderList(folderpath)
+    filelist = baFileList(folderpath, "*.*")
+    repeat with f in filelist
+      retval.add(f)
+    end repeat
+    
+  else if xscr().mCheckForXtra("FileXtra4") then -- if not buddy then try filextra
+    --  -- filextra4 version:
+    fx = (xtra "filextra4").new()
+    if objectP(fx) then
+      retval = fx.fx_FolderToList(folderpath)
+    end if
+    fx = 0
+    
+  else
+    
+    retval = []
+    n = 1
+    this = getnthfilenameinfolder(folderpath, n)
+    repeat while length(this) > 0
+      retval.add(this)
+      n = n + 1
+      this = getnthfilenameinfolder(folderpath, n)
+    end repeat
+    
   end if
   
@@ -570 +656 @@
 
 on interface me
-  str = "FileIO Scripts  by alex da franca ©2003 -- alex@farbflash.de -- all rigths reserved"
+  str = "FileIO Scripts  by alex da franca c2003 -- alex@farbflash.de -- all rigths reserved"
   
   put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" after str