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

Timestamp:

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

Author:

alex

Message:

various fixes in beta

File:

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

branches/beta/castlib1/alexUtilities.ls

@@ -876 +876 @@
 
 on mDeleteMembersByName me, praefix
+  
+  searchParams = mProcessSearchString(me, praefix)
+  searchString = searchParams.getaprop(#searchString)
+  
   repeat with n = 1 to the number of castlibs
     repeat with z = 1 to the number of members of castlib n
-      if member(z, n).name starts praefix then
-        member(z, n).erase()
-      end if
+      
+      case searchParams.getaprop(#searchMode) of
+          
+        #startsWith:
+          if member(z, n).name starts searchString then
+            member(z, n).erase()
+          end if
+          
+        #endsWith:
+          theName = member(z, n).name
+          len = length(theName)
+          startchar = len - length(searchString) + 1
+          if theName.char[startchar .. len] = searchString then
+            member(z, n).erase()
+          end if
+          
+        #equals:
+          if member(z, n).name = searchString then
+            member(z, n).erase()
+          end if
+          
+        otherwise:
+          if member(z, n).name contains searchString then
+            member(z, n).erase()
+          end if
+          
+      end case
+      
     end repeat
   end repeat
 end
 
+-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
+
+on mProcessSearchString me, srchString
+  
+  searchmode = #contains
+  
+  if char 1 of srchString = "^" then
+    if the last char of srchString <> "$" then
+      searchmode = #startsWith
+    else
+      searchmode = #equals
+      delete the last char of srchString
+    end if
+    delete char 1 of srchString
+  else
+    if the last char of srchString = "$" then
+      searchmode = #endsWith
+      delete the last char of srchString
+    end if
+  end if
+  
+  return [#searchString:srchString, #searchMode:searchmode]
+end
 
 
@@ -1008 +1060 @@
 
 on mSelectInScore me, startfr, endfr
+  
+  
+  ------------------------------
+  -- this allows to enter anything other than an integer or an integer < 1 in order to search all frames
+  if not(voidP(startfr)) then
+    startfr = integer(startfr)
+    if voidP(startfr) then
+      startfr = 1
+      endfr = 0
+    end if
+    if startfr < 1 then
+      startfr = 1
+      endfr = 0
+    end if
+  end if
+  ------------------------------
   
   cl = the activecastlib
@@ -1514 +1582 @@
   
   created = 0
+  
+  if mCheckForXtra(me, "BudAPI") then
+    theResult = baMsgBox("Create new index ?", "New index", "Yesno", "Question", 1)
+    if theResult = "Yes" then
+      theResult = baPrompt("Enter new title", "Enter new title", "New index", 0, -2, -2)
+      if length(theResult) then
+        tell helpwindow to mCreateIndexMember theResult
+      end if
+    end if
+  end if
   
   repeat with n = 1 to anz