Changeset 93 for trunk/lingosource/castlib1/alexUtilities.ls

Timestamp:

12/09/07 15:55:41 (4 years ago)

Author:

alex

Message:

various fixes in beta

File:

• trunk/lingosource/castlib1/alexUtilities.ls (modified) (7 diffs)

trunk/lingosource/castlib1/alexUtilities.ls

@@ -210 +210 @@
 end
 
-
-
-
 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
 -- xxxxxxxxxxxxxxxxxx Write text out to a file
@@ -219 +216 @@
 on mSaveTextToTempFile me, theText, pfad
   
-  if ilk(pfad) <> #string then return 0
-  if length(pfad) < 1 then return 0
+  if ilk(pfad) <> #string then
+    pfad = mConvertUnix2HFS("/tmp/tmpfile.txt")
+  end if
+  if length(pfad) < 1 then
+    pfad = mConvertUnix2HFS("/tmp/tmpfile.txt")
+  end if
   
   return mSaveToTextFile(me, theText, pfad)
@@ -406 +407 @@
 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
 
-on mGetFolderPathFromUser me
+on mGetFolderPathFromUser me, startFolder, theTitle, flags, instruction, offsx, offsy
   retval = ""
   
@@ -419 +420 @@
     end if
     
-    retval = baGetFolder( "", "Select a folder", 3, "", 50, 50 )
+    startFolder = string(startFolder)
+    instruction = string(instruction)
+    flags = integer(flags)
+    if ilk(flags) <> #integer then flags = 0
+    theTitle = string(theTitle)
+    
+    offsx = integer(offsx)
+    if ilk(offsx) <> #integer then offsx = -1
+    
+    offsy = integer(offsy)
+    if ilk(offsy) <> #integer then offsy = -1
+    
+    retval = baGetFolder(startFolder, theTitle, flags, instruction, offsx, offsy )
     
     if resetUNames = 1 then baReturnUnixNames(1)
@@ -2355 +2368 @@
   if not(the platform contains "mac") then return fname
   
+  if fname starts "/" then return fname -- huh? must already be an absolute unix path
+  
   offs = offset(":", fname)
   repeat while offs
@@ -2371 +2386 @@
   if not(the platform contains "mac") then return fname
   
+  if fname starts "/Volumes/" then
+    olddelim = the itemdelimiter
+    the itemdelimiter = "/"
+    delete item 1 to 3 of fname
+    the itemdelimiter = olddelim
+    put "/" before fname
+  end if
+  
+  if not(fname starts "/") then return fname -- huh? doesn't seem to be an absolute unix path 
+  
   offs = offset("/", fname)
   repeat while offs
@@ -2376 +2401 @@
     offs = offset("/", fname)
   end repeat
+  
   osDir = getOsDirectory()
   olddelim = the itemdelimiter