Changeset 47 for trunk/lingosource

Timestamp:

10/31/07 13:37:59 (5 years ago)

Author:

alex

Message:

svn delete now for field and text members too

File:

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

trunk/lingosource/castlib1/alexUtilities.ls

@@ -4697 +4697 @@
       memref = member(m, cl)
       dertyp = memref.type
-      if dertyp = #script then
+      if [#script, #field, #text].getPos(dertyp) then
         
         repeat with l = 1 to cnt
@@ -4707 +4707 @@
             if length(theFilename) < 1 then theFilename = string(infolist.getpropat(l))
             
-            fpath = thePath & theFilename & ".ls"
+            scrtype = li.getaprop(#scripttype)
+            case scrtype of
+              #field: ext = ".txt"
+              #text: ext = ".rtf"
+              otherwise: ext = ".ls"
+            end case
+            
+            fpath = thePath & theFilename & ext
             
             if baFileExists(fpath) then