Changeset 85 for trunk/lingosource

Timestamp:

12/09/07 12:36:31 (4 years ago)

Author:

alex

Message:

changed the selctinscore handler and the makehelp entries handler

Location:

trunk/lingosource/castlib1

Files:

• OSCmenu_Utilities.ls (modified) (1 diff)
• alexUtilities.ls (modified) (5 diffs)

trunk/lingosource/castlib1/OSCmenu_Utilities.ls

@@ -362 +362 @@
     
     subli.add("Convert path from HFS to UNIX")
-    pLookUpCommandList.setaprop("Convert path from HFS to UNIX", ["mConvertHFS2Unix me", "alexUtilities"])
+    pLookUpCommandList.setaprop("Convert path from HFS to UNIX", ["mConvertHFS2Unix me, string_HFSPath", "alexUtilities"])
     subli.add("Convert path from UNIX to HFS")
-    pLookUpCommandList.setaprop("Convert path from UNIX to HFS", ["mConvertUnix2HFS me", "alexUtilities"])
+    pLookUpCommandList.setaprop("Convert path from UNIX to HFS", ["mConvertUnix2HFS me, string_UnixPath", "alexUtilities"])
     
   end if

trunk/lingosource/castlib1/alexUtilities.ls

@@ -847 +847 @@
 
 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
 
 
@@ -979 +1031 @@
 
 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
@@ -1485 +1553 @@
   
   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
@@ -2259 +2337 @@
 on mConvertHFS2Unix me, fname
   
-  if not(the platform) contains "mac" then return fname
-  
-  if mCheckForXtra(me, "budapi") = 0 then
+  if not(the platform contains "mac") then return fname
+  
+  offs = offset(":", fname)
+  repeat while offs
+    put "/" into char offs of fname
     offs = offset(":", fname)
-    repeat while offs
-      put "/" into char offs of fname
-      offs = offset(":", fname)
-    end repeat
-    put "/Volumes/" before fname
-  else
-    return baUnixName(fname)
-  end if
+  end repeat
+  put "/Volumes/" before fname
   
   return fname
@@ -2279 +2353 @@
 
 on mConvertUnix2Hfs me, fname
-  if not(the platform) contains "mac" then return fname
-  
-  if mCheckForXtra(me, "budapi") = 0 then
+  if not(the platform contains "mac") then return fname
+  
+  offs = offset("/", fname)
+  repeat while offs
+    put ":" into char offs of fname
     offs = offset("/", fname)
-    repeat while offs
-      put ":" into char offs of fname
-      offs = offset("/", fname)
-    end repeat
-    osDir = getOsDirectory()
-    olddelim = the itemdelimiter
-    the itemdelimiter = ":"
-    put item 1 of osDir before fname
-    the itemdelimiter = olddelim
-  else
-    return baHFSName(fname)
-  end if
+  end repeat
+  osDir = getOsDirectory()
+  olddelim = the itemdelimiter
+  the itemdelimiter = ":"
+  put item 1 of osDir before fname
+  the itemdelimiter = olddelim
   
   return fname