Changeset 80

Timestamp:

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

Author:

alex

Message:

combined version

Location:

branches/beta

Files:

• HandlerMenu_OSC.dir (modified) (previous)
• castlib1/OSCmenu_Utilities.ls (modified) (1 diff)
• castlib1/alexUtilities.ls (modified) (4 diffs)
• castlib1/bbedit_Utilities.ls (modified) (4 diffs)
• castlib1/convert_Lingo_2_CSS_Html.png (added)
• castlib1/helptext.png (added)
• castlib1/menu1_button.png (added)
• castlib1/menu2_button.png (added)
• castlib1/statusOutput.png (added)
• castlib1/texthyperlinkBehavior.png (added)
• castlib2/FileIOFunktionen.ls (modified) (6 diffs)
• castlib2/FileIOFunktionen.png (added)
• castlib2/GetSetPrefs.png (added)
• castlib2/PseudoXMLPS.png (added)
• castlib2/SpriteNameBeaver.png (added)
• castlib2/aleXtrasMovieScript.jpg (added)
• castlib2/aleXtrasMovieScript.png (added)
• castlib2/commonMovieScript.png (added)
• castlib2/simpleGoToAction.png (added)

branches/beta/castlib1/OSCmenu_Utilities.ls

@@ -36 +36 @@
     
     subli.add("Edit in BBEdit")
-    pLookUpCommandList.setaprop("Edit in BBEdit", ["mOpen_text_with_BBedit me", "bbedit_Utilities"])
+    pLookUpCommandList.setaprop("Edit in BBEdit", ["mEdit_text_with_BBedit me", "bbedit_Utilities"])
+    
+    subli.add("Open in BBEdit")
+    pLookUpCommandList.setaprop("Open in BBEdit", ["mOpen_text_with_BBedit me", "bbedit_Utilities"])
+    
+    subli.add("Refresh members edited in BBEdit")
+    pLookUpCommandList.setaprop("Refresh members edited in BBEdit", ["mReImport_text_Opened_In_BBedit me", "bbedit_Utilities"])
     
     subli.add("Open linked script")

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

branches/beta/castlib1/bbedit_Utilities.ls

@@ -51 +51 @@
 end
 
-
--- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
-
-on mOpen_text_with_BBedit me
+-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
+
+on mEdit_text_with_BBedit me
+  mOpen_text_with_BBedit me, 1
+end
+
+-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
+
+on mOpen_text_with_BBedit me, doLiveEdit
   
   if not(the platform contains "mac") then
@@ -89 +94 @@
       if length(theText) > 0 then
         
-        ---------------------
-        -- create a temporary file from scripttext:
-        -- tempSrcPath = shell_cmd_list("mktemp -t temp_BBEdit_file.ls")
-        -- tempSrcPath = tempSrcPath[1]
-        tempSrcPath = "/tmp/temp_BBEdit_file.ls"
-        tempSrcHFSPath = mDoShellCmd(me, "osascript -e" && QUOTE & "return POSIX file \" & QUOTE & tempSrcPath & "\" & QUOTE & " as string" & QUOTE, 1)
-        tempSrcHFSPath = tempSrcHFSPath[1]
-        theResult = mSaveTextToTempFile(me, theText, tempSrcHFSPath)
-        ---------------------
-        
-        mDoShellCmd(me, "bbedit --wait --resume " & tempSrcPath)
-        
-        theText = mGetTextFromFile(me, tempSrcHFSPath)
-        
-        if theType = #script then
-          memref.scripttext = theText
-        else if theType = #text then
-          memref.html = theText
-        else if theType = #field then
-          memref.text = theText
+        
+        if doLiveEdit then
+          ---------------------
+          -- create a temporary file from scripttext:
+          -- tempSrcPath = shell_cmd_list("mktemp -t temp_BBEdit_file.ls")
+          -- tempSrcPath = tempSrcPath[1]
+          tempSrcPath = "/tmp/temp_BBEdit_file.ls"
+          tempSrcHFSPath = mDoShellCmd(me, "osascript -e" && QUOTE & "return POSIX file \" & QUOTE & tempSrcPath & "\" & QUOTE & " as string" & QUOTE, 1)
+          tempSrcHFSPath = tempSrcHFSPath[1]
+          theResult = mSaveTextToTempFile(me, theText, tempSrcHFSPath)
+          ---------------------
+          
+          mDoShellCmd(me, "bbedit --wait --resume " & tempSrcPath)
+          
+          theText = mGetTextFromFile(me, tempSrcHFSPath)
+          
+          if theType = #script then
+            memref.scripttext = theText
+          else if theType = #text then
+            memref.html = theText
+          else if theType = #field then
+            memref.text = theText
+          end if
+          
+          
+        else
+          
+          theName = memref.name
+          if length(theName) < 1 then
+            theName = "member_" & memref.membernum & "_" & memref.castlibnum
+          end if
+          ---------------------
+          -- create a temporary file from scripttext:
+          tempSrcPath = "/tmp/" & theName & ".ls"
+          tempSrcHFSPath = mDoShellCmd(me, "osascript -e" && QUOTE & "return POSIX file \" & QUOTE & tempSrcPath & "\" & QUOTE & " as string" & QUOTE, 1)
+          tempSrcHFSPath = tempSrcHFSPath[1]
+          theResult = mSaveTextToTempFile(me, theText, tempSrcHFSPath)
+          ---------------------
+          
+          mDoShellCmd(me, "bbedit " & tempSrcPath)
+          
+          
         end if
         
@@ -128 +155 @@
         
       end if
+    end repeat
+  end repeat
+  
+end
+
+
+-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
+
+on mReImport_text_Opened_In_BBedit me
+  
+  if not(the platform contains "mac") then
+    alert "Sorry, BBEdit is a mac application!" & RETURN & "If you change this handler to match something appropriate for Windows, please drop me a note. alex@farbflash.de"
+    exit
+  end if
+  
+  cl = the activecastlib
+  sel = the selection of castlib cl
+  
+  repeat with sub in sel
+    repeat with mem = sub[1] to sub[2]
+      
+      memref = member(mem,cl)
+      
+      
+      theName = memref.name
+      if length(theName) < 1 then
+        theName = "member_" & memref.membernum & "_" & memref.castlibnum
+      end if
+      
+      delim = the last char of the moviepath
+      olddelim = the itemdelimiter
+      the itemdelimiter = delim
+      hd = item 1 of getosdirectory()
+      
+      tempSrcPath = hd & delim & "tmp" & delim & theName & ".ls"
+      the itemdelimiter = olddelim
+      
+      theText = mGetTextFromFile(me, tempSrcPath)
+      
+      if length(theText) > 0 then
+        
+        case memref.type of
+          #script: memref.scripttext = theText
+          #text: memref.html = theText
+          #field: memref.text = theText
+        end case
+        
+      end if
+      
     end repeat
   end repeat
@@ -952 +1028 @@
                     else
                       
-                      if (mCheckForXtra(me, "Shell") + mCheckForXtra(me, "ff_shell")) = 0  then
-                        put "-------------------------------------------------------"
-                        put RETURN&"neuer = new(#field)"&RETURN&"neuer.text = "&memref&".scripttext"&RETURN&"neuer.copyToClipBoard()"&RETURN&"neuer.erase()"&RETURN
-                        put RETURN&"shell_cmd("&QUOTE&"PBPaste | BBedit ; BBedit "&memref.comments&QUOTE&")"&RETURN
                         
-                      else
-                        
-                        neuer = new(#field)
-                        neuer.text = memscr
-                        neuer.copyToClipBoard()
-                        neuer.erase()
-                        mDoShellCmd(me, "PBPaste | BBedit ; BBedit "&memref.comments)
+                        if (mCheckForXtra(me, "Shell") + mCheckForXtra(me, "ff_shell")) = 0  then
+                          put "-------------------------------------------------------"
+                          put RETURN&"neuer = new(#field)"&RETURN&"neuer.text = "&memref&".scripttext"&RETURN&"neuer.copyToClipBoard()"&RETURN&"neuer.erase()"&RETURN
+                          put RETURN&"shell_cmd("&QUOTE&"PBPaste | BBedit ; BBedit "&memref.comments&QUOTE&")"&RETURN
+                          
+                        else
+                          
+                          neuer = new(#field)
+                          neuer.text = memscr
+                          neuer.copyToClipBoard()
+                          neuer.erase()
+                          mDoShellCmd(me, "PBPaste | BBedit ; BBedit "&memref.comments)
+                          
+                        end if
                         
                       end if
                       
-                    end if
                     
                   else

branches/beta/castlib2/FileIOFunktionen.ls

@@ -106 +106 @@
       if call(#mCheckForXtra, mGetXScript(), "BudAPI") = 1 then
         startfolder = string(startfolder)
+        
+        resetUNames = 0
+        if the platform contains "mac" then
+        if baSysFolder("prefs") starts "/" then
+          baReturnUnixNames(0)
+          resetUNames = 1
+        end if
+        end if
         if length(startfolder) > 0 then
           pfad = baGetFilename("save", startfolder, theDefaultName, "", 524288+2+4+4194304, theTitle, false, -1, -1)
@@ -111 +119 @@
         pfad = baGetFilename("save", "", theDefaultName, "", 524288+2+4+4194304, theTitle, false, -1, -1)
         end if
+        
+        if resetUNames = 1 then baReturnUnixNames(1)
+        
       else
         pfad = fio.displaySave(theTitle, theDefaultName)
@@ -275 +286 @@
   if call(#mCheckForXtra, mGetXScript(), "BudAPI") = 1 then
     
+    resetUNames = 0
+    if the platform contains "mac" then
+    if baSysFolder("prefs") starts "/" then
+      baReturnUnixNames(0)
+      resetUNames = 1
+    end if
+    end if
+    
     startDir = string(startDir)
     defaultName = string(defaultName)
@@ -281 +300 @@
     prompt = string(prompt)
     
-    return baGetFilename("open", startDir, defaultName, filetypes, 524288+4+2+4194304, prompt, false, -2, -1)
+    retval = baGetFilename("open", startDir, defaultName, filetypes, 524288+4+2+4194304, prompt, false, -2, -1)
+    
+    if resetUNames = 1 then baReturnUnixNames(1)
+    
+    return retval
     
   else
@@ -307 +330 @@
   
   if xscr().mCheckForXtra("BudAPI") = 1 then -- if buddy is present...
+    
+    resetUNames = 0
+    if the platform contains "mac" then
+    if baSysFolder("prefs") starts "/" then
+      baReturnUnixNames(0)
+      resetUNames = 1
+    end if
+    end if
+    
     retval = baGetFolder( "", "Select a folder", 3, "", 50, 50 )
+    
+    if resetUNames = 1 then baReturnUnixNames(1)
+    
   else if xscr().mCheckForXtra("FileXtra4") = 1 then -- if not buddy then try filextra
     fx = (xtra "filextra4").new()
@@ -340 +375 @@
   
   if xscr().mCheckForXtra("BudAPI") then -- if buddy is present...
+    
     --  -- budApi version:
     retval = baFileList(folderpath, "*.*")