Changeset 245 for trunk/lingosource/castlib1/bbedit_Utilities.ls

Timestamp:

03/21/10 11:39:48 (2 years ago)

Author:

alex

Message:

cleanup

File:

• trunk/lingosource/castlib1/bbedit_Utilities.ls (modified) (3 diffs)

trunk/lingosource/castlib1/bbedit_Utilities.ls

@@ -64 +64 @@
       if memref.type = #script then
         fname = memref.filename
-        if length(fname) < 1 then fname = mGetFilePathFromMemberComments(me, memref)
-        if length(fname) > 0 then
+        if fname.length then
           
           ppath = mConvertHFS2Unix(me, fname)
@@ -1055 +1054 @@
           offs = offset("/", comm)
         end repeat
-        home = mGetWindowsHomeFolder(me)
-        put home into char 1 to 2 of comm
+        put baSysFolder("personal") into char 1 to 2 of comm
         aPath = comm
       end if
@@ -1078 +1076 @@
         
         if comm starts "/Users/alex/" then
-          put mGetWindowsHomeFolder(me) & "\" into char 1 to 12 of comm
+          put baSysFolder("personal") into char 1 to 12 of comm
         end if
         aPath = comm