Changeset 23 for trunk/lingosource

Timestamp:

09/14/07 12:16:07 (5 years ago)

Author:

alex

Message:

now with svn status

Location:

trunk/lingosource/castlib1

Files:

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

trunk/lingosource/castlib1/OSCmenu_Utilities.ls

@@ -294 +294 @@
       
       glob[#copy2ClipBoard] = 0
-      glob[#theTargetInstance] = new(script "alexUtilities")
+      
+      alexUtilities = new(script "alexUtilities")
+      alexUtilities.setaprop(#pHandlerMenuWindowName, (the activewindow).name)
+      glob[#theTargetInstance] = alexUtilities
       
       if cmdli.word.count then

trunk/lingosource/castlib1/alexUtilities.ls

@@ -3 +3 @@
 
 property ancestor
+
+
+-- since this script runs in "stage scope" we just set the name off the handlerMenu window
+-- so that this script can "tell" something to the window, where it originates from => the tool miaw window
+-- this is used for the "mDisplayWaitStatusText" and "mSwitchToStatusMode" handler at the moment
+property pHandlerMenuWindowName
+property pStatusMode -- are we in "show status" mode => maximized
+
 
 on new me
@@ -73 +81 @@
   dertext = mGetTextFromFile(me, pfad)
   if length(dertext) > 0 then
+    mSwitchToStatusMode me, 1
     theResult = mGetListFromXMLString(me, dertext)
+    mSwitchToStatusMode me, 0
   end if
   return theResult
@@ -477 +487 @@
   if thePath = 0 then exit
   
+  
   mp = the moviepath
   if length(mp) < 1 then mp = the applicationpath
+  
+  
   
   theType = string(theType)
@@ -495 +508 @@
   
   if not(["jpg", "png", "bmp", "pct"].getPos(theType)) then exit
+  
+  mSwitchToStatusMode me, 1
   
   useMemberName = (the last char of thePath = the last char of mp)
@@ -522 +537 @@
     end repeat
   end repeat
+  
+  mSwitchToStatusMode me, 0
+  
 end
 
@@ -816 +834 @@
 -- put mFindInGPDL("")
 on mFindInGPDL me, str -- durchsucht alle behavior initializers in diesem movie nach <str>
+  
+  mSwitchToStatusMode me, 1
+  
   letzterframe = the lastframe
   letzterkanal = the lastChannel
@@ -835 +856 @@
     end repeat
   end repeat
+  
+  mSwitchToStatusMode me, 0
+  
   return retlist
 end
@@ -979 +1003 @@
 
 on mListallPuts me
+  
+  mSwitchToStatusMode me, 1
+  
+  mDisplayWaitStatusText me, "See the message window for results of search"
+  
   cnum = the number of castlibs
   repeat with l = 1 to cnum
@@ -1028 +1057 @@
                   if not(linWOQuote contains " after ") then
                     if not(linWOQuote contains " before ") then
+                      
+                      mDisplayWaitStatusText me, theLine
+                      
                       put "-----------"
                       le = length(st.line[1 .. r-1])
@@ -1042 +1074 @@
     end repeat
   end repeat
+  
+  mSwitchToStatusMode me, 0
+  
 end
 
@@ -1969 +2004 @@
     exit
   end if
+  
+  mSwitchToStatusMode me, 1
   
   -- loop through all castlibs:
@@ -2041 +2078 @@
   fx = 0
   fio = 0
+  
+  mSwitchToStatusMode me, 0
+  
 end
 
@@ -3192 +3232 @@
         end if
         
-        shell_cmd(bbdiffpath & " --ignore-curly-quotes --ignore-spaces --wait --resume " &QUOTE& tempSrcPath &QUOTE&&QUOTE& comm &QUOTE)
+        theResult = shell_cmd_list(bbdiffpath & " --ignore-curly-quotes --ignore-spaces --wait --resume " &QUOTE& tempSrcPath &QUOTE&&QUOTE& comm &QUOTE && "2>&1")
         
         -- since we used the --wait and the --resume switch, we will only come to this line AFTER the diff process in bbedit is finished
         
-        
-        -------- now write the results of the BBEdit diff back into the script members
-        scrText = mGetTextFromTempFile(me, tempSrcHFSPath)
-        
-        
-        if convertLineBreaksToUnix = 1 then
-          ------------------------------------------ trac subversion support works better with unix linebreaks...
-          if mCheckForXtra(me, "Pregex") = 1 then
-            
-            scrTextLi = [scrText]
-            if the platform contains "mac" then
-              pregex_replace(scrTextLi, "\x0D?\x0A", "g", "\x0D")
-            else
-              pregex_replace(scrTextLi, "\x0D([^\x0A])", "g", "\x0D\x0A\1")
-              pregex_replace(scrTextLi, "([^\x0D])\x0A", "g", "\1\x0D\x0A")
-            end if
-            scrText = scrTextLi[1]
-            
-          else
-            
-            if the platform contains "mac" then
+        if count(theResult) > 0 then
+          alert "No differences found"
+          
+        else
+          
+          -------- now write the results of the BBEdit diff back into the script members
+          scrText = mGetTextFromTempFile(me, tempSrcHFSPath)
+          
+          
+          if convertLineBreaksToUnix = 1 then
+            ------------------------------------------ trac subversion support works better with unix linebreaks...
+            if mCheckForXtra(me, "Pregex") = 1 then
               
-              -- first convert windows to mac
-              fndStr = numToChar(13) & numToChar(10)
-              offs = offset(fndStr, scrText)
-              repeat while offs > 0
-                put numToChar(13) into char offs to offs+1 of scrText
-                offs = offset(fndStr, scrText)
-              end repeat
-              
-              -- now convert unix to mac
-              fndStr = numToChar(10)
-              offs = offset(fndStr, scrText)
-              repeat while offs > 0
-                put numToChar(13) into char offs of scrText
-                offs = offset(fndStr, scrText)
-              end repeat
+              scrTextLi = [scrText]
+              if the platform contains "mac" then
+                pregex_replace(scrTextLi, "\x0D?\x0A", "g", "\x0D")
+              else
+                pregex_replace(scrTextLi, "\x0D([^\x0A])", "g", "\x0D\x0A\1")
+                pregex_replace(scrTextLi, "([^\x0D])\x0A", "g", "\1\x0D\x0A")
+              end if
+              scrText = scrTextLi[1]
               
             else
               
-              fndStr = numToChar(13) & numToChar(10)
-              offs = offset(fndStr, scrText)
-              repeat while offs > 0
-                put "ÀÀÀ" into char offs+1 of scrText
+              if the platform contains "mac" then
+                
+                -- first convert windows to mac
+                fndStr = numToChar(13) & numToChar(10)
                 offs = offset(fndStr, scrText)
-              end repeat
-              
-              
-              fndStr = numToChar(10)
-              offs = offset(fndStr, scrText)
-              repeat while offs > 0
-                put numToChar(13) & numToChar(10) into char offs of scrText
+                repeat while offs > 0
+                  put numToChar(13) into char offs to offs+1 of scrText
+                  offs = offset(fndStr, scrText)
+                end repeat
+                
+                -- now convert unix to mac
+                fndStr = numToChar(10)
                 offs = offset(fndStr, scrText)
-              end repeat
-              
-              
-              
-              fndStr = numToChar(13) & "ÀÀÀ"
-              offs = offset(fndStr, scrText)
-              repeat while offs > 0
-                put numToChar(13) & numToChar(10) into char offs to offs+3 of scrText
+                repeat while offs > 0
+                  put numToChar(13) into char offs of scrText
+                  offs = offset(fndStr, scrText)
+                end repeat
+                
+              else
+                
+                fndStr = numToChar(13) & numToChar(10)
                 offs = offset(fndStr, scrText)
-              end repeat
-              
-              
-              
-              fndStr = "ÀÀÀ"
-              offs = offset(fndStr, scrText)
-              repeat while offs > 0
-                put numToChar(13) & numToChar(10) into char offs to offs+2 of scrText
+                repeat while offs > 0
+                  put "ÀÀÀ" into char offs+1 of scrText
+                  offs = offset(fndStr, scrText)
+                end repeat
+                
+                
+                fndStr = numToChar(10)
                 offs = offset(fndStr, scrText)
-              end repeat
+                repeat while offs > 0
+                  put numToChar(13) & numToChar(10) into char offs of scrText
+                  offs = offset(fndStr, scrText)
+                end repeat
+                
+                
+                
+                fndStr = numToChar(13) & "ÀÀÀ"
+                offs = offset(fndStr, scrText)
+                repeat while offs > 0
+                  put numToChar(13) & numToChar(10) into char offs to offs+3 of scrText
+                  offs = offset(fndStr, scrText)
+                end repeat
+                
+                
+                
+                fndStr = "ÀÀÀ"
+                offs = offset(fndStr, scrText)
+                repeat while offs > 0
+                  put numToChar(13) & numToChar(10) into char offs to offs+2 of scrText
+                  offs = offset(fndStr, scrText)
+                end repeat
+                
+              end if
               
             end if
-            
+            -----------------------------------------
           end if
-          -----------------------------------------
+          
+          
+          memref.scripttext = scrText
+          
         end if
         
-        
-        memref.scripttext = scrText
-        
-      end if
+        exit -- we only proceed one script member
+        
+        
+      end if
+      
       
     end repeat
   end repeat
-  
-  
-  
-  
-  
   
   
@@ -3362 +3407 @@
   
   theFolder = mGetWorkingCopyPath(me, the moviepath & the moviename, 0, workingCopies, "No working copy is specified for this movies scripttext. Please select a working copy for the scripttext now.")
+  --  put "mFindWorkingCopyCounterpart: theFolder:" && theFolder
   
   if length(theFolder) < 1 then return ""
@@ -3381 +3427 @@
   if theFoldername <> "castlib" & m then
     
-    newPath = theFolder & "castlib" & m
+    newPath = theFolder & "castlib" & m & delim
     
     if baFolderExists(newPath) = 0 then
@@ -3396 +3442 @@
       else
         
-        theFolder = newPath
+        if count(infolist) < 1 then
+          
+          alert "The specified folder doesn't seem to contain info for this castlib: file memberInfo.xml missing."
+          return ""
+          
+        else
+          theFolder = newPath
+        end if
         
       end if
@@ -3430 +3483 @@
   repeat with l = 1 to cnt
     li = infolist[l]
+    --    put "memberName:" && li.getaprop(#memberName)
     if li.getaprop(#memberName) = memref.name then
       
@@ -3436 +3490 @@
       fpath = theFolder & fname & ".ls"
       
+      --      put "path:" && fpath 
+      
       if baFileExists(fpath) then return fpath
       
@@ -3450 +3506 @@
 
 on mExportScriptsToFolder me, skipIcons, selectionOnly, convertLineBreaksToUnix, chooseNewPath
+  
   mExportAllScriptsToDiskWithFolder me, skipIcons, selectionOnly, convertLineBreaksToUnix, void, chooseNewPath
+  
 end
 
@@ -3502 +3560 @@
   
   
+  mSwitchToStatusMode me, 1
   
   repeat with m = firstCastNum to lastCastNum
@@ -3510 +3569 @@
       if err <> 1 then
         alert "Failed to create directory:" && thisFolder
+        mSwitchToStatusMode me, 0
         exit
       end if
@@ -3538 +3598 @@
           
           memname = memref.name
+          
+          
+          mDisplayWaitStatusText me, "Processing member:" && memname
+          
           
           scrText = memref.scripttext
@@ -3733 +3797 @@
   end repeat
   
+  mSwitchToStatusMode me, 0
+  
 end
 
@@ -3807 +3873 @@
   
   if mCheckForXtra(me, "budapi") then
+    
+    mSwitchToStatusMode me, 1
     
     if baFileExists(thePath & "memberInfo.xml") then
@@ -3821 +3889 @@
     end if
     
+    mSwitchToStatusMode me, 0
+    
   else
     
@@ -4011 +4081 @@
     spath = thePath
   end if
+  
+  
+  mDisplayWaitStatusText me, "Importing file:" && spath
+  
   
   scrtext = mGetTextFromFile(me, spath)
@@ -4226 +4300 @@
   fio = 0
   
+  
+  mDisplayWaitStatusText me, "Imported file:" && spath && "into member" && scr
+  
+  
   return 1
   
@@ -4254 +4332 @@
   end if
   
+  mSwitchToStatusMode me, 1
+  mDisplayWaitStatusText me, "Updating folder:" && workingFolder
+  
   theresult = shell_cmd_list(svnBinary && "update" && QUOTE & workingFolder & QUOTE)
+  
+  mSwitchToStatusMode me, 0
   
   if count(theresult) > 0 then
@@ -4466 +4549 @@
   theResult = mSVN_Commit_CurrentMovie_Binaries(me, chooseNewPath, commitMsg, 1)
   
+  
 end
 
@@ -4482 +4566 @@
   end if
   
+  
   theResult = mSVN_Commit_CurrentScripts_ScriptText(me, castlib(the activecastlib), chooseNewPath, commitMsg, 1, selectionList)
   
   theResult = mSVN_Commit_SelectedCastlib(me, chooseNewPath, commitMsg, 1, 0, selectionList)
+  
   
 end
@@ -4536 +4622 @@
   end if
   
+  
+  
   put "Committing castlibs:" && castlibList
   
@@ -4591 +4679 @@
   
   
+  mSwitchToStatusMode me, 1
+  mDisplayWaitStatusText me, "Committing castlibs:" && castlibList
+  
   
   
@@ -4616 +4707 @@
         if offs <> 1 then
           alert "Castlib" && castlib(actCL) && "is not within your current moviepath. This is not supported."
+          mSwitchToStatusMode me, 0
           return 0
         end if
@@ -4633 +4725 @@
         
         -- must be something REALLY wrong, as the filename should ALWAYS be of any length (internal castlibs )
+        mSwitchToStatusMode me, 0
         return 0
         
@@ -4677 +4770 @@
     --  repeat with cl in castlibList
     ---------------------------------------
+    
+    mDisplayWaitStatusText me, "SVN update of:" && castlibList[r][3]
+    
     theresult = shell_cmd_list(svnBinary && "update" && QUOTE & castlibList[r][3] & QUOTE)
     
@@ -4687 +4783 @@
       end if
       alert "Can't proceed svn error while trying to update:" && theError
+      mSwitchToStatusMode me, 0
       return 0  
     end if
@@ -4706 +4803 @@
   if isChanged = 0 then
     alert "Apparently there are no changes to the most recent version in the svn repository: svn status is empty"
+    mSwitchToStatusMode me, 0
     return 0 
   end if
@@ -4716 +4814 @@
   end repeat
   
+  
+  mDisplayWaitStatusText me, "SVN commit for:" && pathStr
+  
   theresult = shell_cmd_list(svnBinary && "ci --message" && QUOTE & msg & QUOTE & pathStr)
   
@@ -4732 +4833 @@
   
   setPref("svn_wCopies_paths_Binary.txt", string(workingCopies))
+  
+  mSwitchToStatusMode me, 0
   
   return 1
@@ -4775 +4878 @@
     end if
     
+    mSwitchToStatusMode me, 1
+    
+    mDisplayWaitStatusText me, "Saving movie..."
+    
     saveMovie()
+    
+  else
+    
+    mSwitchToStatusMode me, 1
+    
   end if
   ----------------------------------------
@@ -4786 +4898 @@
     if erg <> 0 then
       alert "An error occurred during copying the movie:" && erg
+      mSwitchToStatusMode me, 0
       return 0
     end if
@@ -4801 +4914 @@
           if offs <> 1 then
             alert "Castlib" && castlib(n) && "is not within your current moviepath. This is not supported."
+            mSwitchToStatusMode me, 0
             return 0
           end if
@@ -4831 +4945 @@
   
   ---------------------------------------
+  mDisplayWaitStatusText me, "SVN update for:" && workingFolder
+  
   theresult = shell_cmd_list(svnBinary && "update" && QUOTE & workingFolder & QUOTE)
   
@@ -4841 +4957 @@
     end if
     alert "Can't proceed svn error while trying to update:" && theError
+    mSwitchToStatusMode me, 0
     return 0  
   end if
@@ -4858 +4975 @@
   if cnt < 1 then
     alert "Apparently there are no changes to the most recent version in the svn repository: svn status is empty"
+    mSwitchToStatusMode me, 0
     return 0
   end if
@@ -4873 +4991 @@
         -- we only put a message, so the user is made aware of this fact
         put "Missing file!" && answ && "is missing here, but present in the repository"
+        mDisplayWaitStatusText me, "Missing file!" && answ && "is missing here, but present in the repository"
         
       "?": -- newly added file
@@ -4878 +4997 @@
         
         put "Added file" && answ && "to the repository"
+        mDisplayWaitStatusText me, "Added file" && answ && "to the repository"
         
       "m":
         -- just log the changes:
         put "Update file:" && answ
+        mDisplayWaitStatusText me, "Update file:" && answ
         
     end case
     
   end repeat
+  
+  mDisplayWaitStatusText me, "SVN commit of:" && workingFolder
   
   theresult = shell_cmd_list(svnBinary && "ci --message" && QUOTE & msg & QUOTE && QUOTE & workingFolder & QUOTE)
@@ -4903 +5026 @@
   
   setPref("svn_wCopies_paths_Binary.txt", string(workingCopies))
+  
+  mSwitchToStatusMode me, 0
   
   return 1
@@ -4971 +5096 @@
   
   
+  mSwitchToStatusMode me, 1
+  
   
   doReturnToOldMovie = 0
   
   if (onlyUpdate_SVN_WorkingFolder <> 1) or (the moviepath contains workingFolder) then
+    
+    mDisplayWaitStatusText me, "Temporary switch to new movie in order to replace files"
     
     ------------------------------
@@ -4999 +5128 @@
   
   
+  mDisplayWaitStatusText me, "SVN update:" && newpathUnix
+  
   theresult = shell_cmd_list(svnBinary && "update" && QUOTE & newpathUnix & QUOTE)
   
@@ -5049 +5180 @@
   setPref("svn_wCopies_paths_Binary.txt", string(workingCopies))
   
+  mSwitchToStatusMode me, 0
+  
 end
 
@@ -5063 +5196 @@
   workingFolder = mGetWorkingCopyPath(me, the moviepath & the moviename, chooseNewPath, workingCopies, "No working copy is specified for this movies binaries (director files). Please select a working copy of the director files.")
   if length(workingFolder) < 1 then exit
+  
+  
+  mSwitchToStatusMode me, 1
+  
   
   if the platform contains "mac" then
@@ -5080 +5217 @@
   if (onlyUpdate_SVN_WorkingFolder <> 1) or (the moviepath contains workingFolder) then
     
+    
+    mDisplayWaitStatusText me, "Temporary switch to new movie in order to replace files"
+    
     ------------------------------
     -- close this movie by issuing a "new movie..." command
@@ -5090 +5230 @@
   end if
   
+  mDisplayWaitStatusText me, "SVN update:" && workingFolderUnix
+  
   theresult = shell_cmd_list(svnBinary && "update" && QUOTE & workingFolderUnix & QUOTE)
   
@@ -5130 +5272 @@
   
   setPref("svn_wCopies_paths_Binary.txt", string(workingCopies))
+  
+  
+  mSwitchToStatusMode me, 0
   
 end
@@ -5216 +5361 @@
   
   
+  statusSwitched = mSwitchToStatusMode(me, 1)
   
   clibfolder = ""
@@ -5270 +5416 @@
     if count(castlibList) < 1 then
       alert "No castlib selected. The parameter didn't yiled a valid list. Make sure, that you provide a linear list with integers, specifying a number of a castlib each."
+      if statusSwitched = 1 then statusSwitched = mSwitchToStatusMode(me, 0)
       return 0
     end if
     
+    
+    
+    mDisplayWaitStatusText me, "Commiting scripttext for castlibs:" && castlibList
     
     put "Commiting scripttext for castlibs:" && castlibList
@@ -5285 +5435 @@
       
       selected_Members_Only = castlib(castlibList[n])
+      
+      mDisplayWaitStatusText me, "Saving castlib:" && selected_Members_Only
       
       selected_Members_Only.save()
@@ -5311 +5463 @@
   else -- treat all:
     
+    mDisplayWaitStatusText me, "Saving movie..."
+    
     saveMovie()
     
     mExportAllScriptsToDiskWithFolder me, 1, selected_Members_Only, 1, workingFolder
     
-    castlibList = []
+    castlibList = 0
     
   end if
@@ -5324 +5478 @@
     
     -------- if we work on only one castlib:
-    if length(clibfolder) then workingFolder = clibfolder
+    if length(clibfolder) > 0 then workingFolder = clibfolder
     --------
     
@@ -5334 +5488 @@
       if the last char of workingFolder = the last char of the applicationpath then delete the last char of workingFolder
     end if
+    
     
     workingFolder = " " & QUOTE & workingFolder & QUOTE
@@ -5357 +5512 @@
       
       put " " & QUOTE & castlibList[n][3] & QUOTE after workingFolder
+      
     end repeat
     
   end if
+  
+  
+  mDisplayWaitStatusText me, "SVN update of:" && workingFolder
   
   
@@ -5373 +5532 @@
     end if
     alert "Can't proceed svn error while trying to update:" && theError
+    if statusSwitched = 1 then statusSwitched = mSwitchToStatusMode(me, 0)
     return 0  
   end if
@@ -5381 +5541 @@
   if cnt < 1 then
     alert "Apparently there are no changes to the scripts of the most recent version in the svn repository: svn status is empty"
+    if statusSwitched = 1 then statusSwitched = mSwitchToStatusMode(me, 0)
     return 0
   end if
@@ -5397 +5558 @@
         put "Missing file!" && answ && "is missing here, but present in the repository"
         
+        mDisplayWaitStatusText me, "Missing file!" && answ && "is missing here, but present in the repository"
+        
+        
       "?": -- newly added file
         shell_cmd_list(svnBinary && "add" && QUOTE & answ & QUOTE)
         
         put "Added file" && answ && "to the repository"
+        
+        mDisplayWaitStatusText me, "Added file" && answ && "to the repository"
         
       "m":
@@ -5406 +5572 @@
         put "Update file:" && answ
         
+        mDisplayWaitStatusText me, "Update file:" && answ
+        
     end case
     
   end repeat
   
-  
+  mDisplayWaitStatusText me, "SVN commit:" && workingFolder
   
   theresult = shell_cmd_list(svnBinary && "ci --message" && QUOTE & msg & QUOTE & workingFolder)
@@ -5432 +5600 @@
   setPref("svn_workingCopies_paths.txt", string(workingCopies))
   
+  
+  if statusSwitched = 1 then statusSwitched = mSwitchToStatusMode(me, 0)
   
   return 1
@@ -5644 +5814 @@
 
 
+-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
+
+on mSwitchToStatusMode me, On_Off
+  
+  retval = 0
+  
+  if pStatusMode = On_Off then return retval
+  pStatusMode = 0
+  
+  pHandlerMenuWindowName = string(pHandlerMenuWindowName)
+  if length(pHandlerMenuWindowName) < 1 then return retval
+  w = window(pHandlerMenuWindowName)
+  
+  if ilk(w) <> #window then return retval
+  
+  retval = 1
+  
+  pStatusMode = On_Off
+  
+  r = w.rect
+  
+  tell w
+    
+    spr = sprite(xscr().mGetkanal(#helpTextSprite))
+    
+    if On_Off = 1 then
+      
+      member("statusOutput").text = "The following operation may take some time..."
+      spr.member = member("statusOutput")
+      
+      newRect = rect(r.left, r.top, r.right, r.top + spr.rect.bottom)
+      
+      if (label("withSearch") <> marker(0)) then
+        go "withSearch"
+      end if
+      
+    else
+      
+      spr.member = member("helptext")
+      
+      newRect = rect(r.left, r.top, r.right, r.top + spr.rect.top)
+      
+      if (label("withoutSearch") <> marker(0)) then go "withoutSearch"
+      
+    end if
+    
+    updatestage
+  end tell
+  
+  w.rect = newRect
+  
+  return retval
+  
+end
+
+-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
+
+on mDisplayWaitStatusText me, str
+  
+  if pStatusMode = 0 then exit
+  
+  pHandlerMenuWindowName = string(pHandlerMenuWindowName)
+  if length(pHandlerMenuWindowName) < 1 then exit
+  w = window(pHandlerMenuWindowName)
+  
+  if ilk(w) <> #window then exit
+  
+  tell w
+    member("statusOutput").setContentsAfter(RETURN & str)
+    updatestage
+    
+  end tell
+  
+end
+
+
 
 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx