Changeset 80 for branches/beta/castlib1/alexUtilities.ls

Timestamp:

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

Author:

alex

Message:

combined version

File:

• branches/beta/castlib1/alexUtilities.ls (modified) (4 diffs)

branches/beta/castlib1/alexUtilities.ls

@@ -441 +441 @@
     
     -- 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
+    if mGetFloatVersionNumber(me, the productversion) < 11 then
+      
+      --  -- budApi version:
+      retval = baFileList(folderpath, "*.*")
+      
+    else
+      
+      retval = []
+      n = 1
       this = getnthfilenameinfolder(folderpath, n)
-    end repeat
-    
-    --  -- budApi version:
-    -- retval = baFileList(folderpath, "*.*")
+      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
+      
+    end if
+    
     
   else if mCheckForXtra(me, "FileXtra4") = 1 then -- if not buddy then try filextra
@@ -2337 +2343 @@
   
   
-  pHandlerMenuWindowName = string(pHandlerMenuWindowName)
+  pHandlerMenuWindowName = string(me.pHandlerMenuWindowName)
   if length(pHandlerMenuWindowName) < 1 then return retval
   w = window(pHandlerMenuWindowName)
@@ -2398 +2404 @@
   if pStatusMode = 0 then exit
   
-  pHandlerMenuWindowName = string(pHandlerMenuWindowName)
+  pHandlerMenuWindowName = string(me.pHandlerMenuWindowName)
   if length(pHandlerMenuWindowName) < 1 then exit
   w = window(pHandlerMenuWindowName)
@@ -2526 +2532 @@
   end if
 end
+
+-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
+
+on mGetFloatVersionNumber me, prodVers
+    offs = offset(".", prodVers)
+    if offs > 0 then
+      intVers = char 1 to offs of prodVers
+      delete char 1 to offs of prodVers
+    else
+      intVers = ""
+    end if
+    cnt = length(prodVers)
+    repeat with n = 1 to cnt
+      c = prodVers.char[n]
+      if integerP(integer(c)) then
+        put c after intVers
+      else if c <> "." then
+        exit repeat
+      end if
+    end repeat
+    
+  return value(intVers)
+end