Changeset 215 for trunk/lingosource

Timestamp:

12/15/08 13:00:15 (3 years ago)

Author:

alex

Message:

only copy dir and cst files now, when doing svn update movie binaries. added function to split path in order to not assume, that the first dot is the file extension seperator

Location:

trunk/lingosource

Files:

• castlib1/OSCmenu_Handlers.ls (modified) (1 diff)
• castlib1/OSCmenu_Utilities.ls (modified) (1 diff)
• castlib1/alexUtilities.ls (modified) (20 diffs)
• castlib1/bbedit_Utilities.ls (modified) (2 diffs)
• castlib1/convert_Lingo_2_CSS_Html.ls (modified) (1 diff)
• castlib1/custom_Utilities.ls (modified) (2 diffs)
• castlib1/doCommandMovieScript.ls (modified) (1 diff)
• castlib1/keyboardNavigation_FrameLoop.ls (modified) (2 diffs)
• castlib1/memberInfo.xml (modified) (3 diffs)
• castlib1/simpleBMMenu.ls (modified) (2 diffs)
• castlib1/subversion_version_field.txt (modified) (1 diff)
• castlib1/svn_Utilities.ls (modified) (3 diffs)
• castlib1/thisMoviesScript.ls (modified) (5 diffs)
• castlib2/PseudoXMLPS.ls (modified) (2 diffs)
• castlib2/commonMovieScript.ls (modified) (3 diffs)

trunk/lingosource/castlib1/OSCmenu_Handlers.ls

@@ +1 @@
+-- OSCmenu_Handlers
+-----------------------------------
+-- PROPERTIES:
+--!memberProperties: [#name: "OSCmenu_Handlers", #scripttype: #score, #scriptSyntax: #lingo, #comments: ""]
+--
+-- DESCRIPTION:
+--              This script handles the parsing and handling of the menu with
+--              all handlers of the current stage movie
+--
+-- REQUIRES:
+--              script "aleXtrasMovieScript" as provider for library scripts -> xscr()
+--              script "commonMovieScript" -- standard handlers
+--
+-- USAGE:
+--              behavior which is either on the OSC control menu member
+--                 (in case of using OSC for the menu display)
+--              or an invisible shape mmember
+--                 (in case of using buddyMenu to display the menu)
+--              Accordingto the type of the sprite.member the corresponding xtra is used
+-----------------------------------
+
 property pCurrentHandlerList
 property pCallerSprite

trunk/lingosource/castlib1/OSCmenu_Utilities.ls

@@ +1 @@
+-- OSCmenu_Utilities
+-----------------------------------
+-- CREATED:
+-- 14.12.2008
+--
+-- DESCRIPTION:
+--              This Script defines the contents of the Utilities menu
+--              the handler mShowOSCMenu builds a list with menu entries and corresponding handler calls
+--              there are two lists:
+--                     one hierarchical list with only the menu items text
+--                     and one flat property list which acts as lookup list for each item
+--              The lookup list "translates" the text of a menu entry to the corresponding function
+--                     and "knows" in which scriptmember that function can be found
+--                     so the syntax is:
+--                           ["Menu title": ["function name with paramters", "name of the scriptmember to instantiate"]]
+--
+-- REQUIRES:
+--               script "aleXtrasMovieScript" as provider for library scripts -> xscr()
+--               script "commonMovieScript" to get the globallist -> mGetGlobalList
+--
+-- USAGE:
+-- 
+-----------------------------------
+
 property pCallerSprite
 property pCallBackParams

trunk/lingosource/castlib1/alexUtilities.ls

@@ -1 @@
--- Some of my Authoring Utility Handlers -- ©06 Alex da Franca -- alex@farbflash.de
------------------------------------------------------------------------------------
+-- alexUtilities
+-----------------------------------
+-- CREATED:
+-- 14.12.2008
+-- PROPERTIES:
+--!memberProperties: [#name: "alexUtilities", #scripttype: #parent, #scriptSyntax: #lingo, #comments: "~/Documents/Scripts/lingo/commonMovieScript.ls"]
+--
+-- DESCRIPTION:
+--               Some of my Authoring Utility Handlers -- c06 Alex da Franca -- alex@farbflash.de
+--
+-- REQUIRES:
+--               script "PseudoXMLPS" -> parse xml
+--               although it does not really REQUIRE shell xtra and buddyApi xtra
+--               still much of the functionality will gracefully fail, if those are not present
+--               In order to export images, the sharp image exporter is required
+--               if missing those functions fail gracefully
+--
+-- USAGE:
+--               This script is instantiated and used in the "tell the stage" block and one of the functions
+--               which are defined in script "OSCmenu_Utilities" and which was selected by the user
+--               will be executed in "stage scope". That means, that references are made form within the stage context
+--               e.g. member("foo") will refer to a member in one of the stages castlibs
+--               sprite(x) will refere to sprite(x) in the stages score and so on
+--
+--               Please see the descriptions of many of those handlers at: http://www.farbflash.org/trac/HandlerMenu/wiki/utilityHandlers
+--               (Although I started to comment each handler, I didn't reach far until now...)
+-----------------------------------
 
 property ancestor
@@ -14 +39 @@
 on new me
   ancestor = new(script "PseudoXMLPS") -- we need this script later
-  -- and as we may already be in the scope of the stage, we have it as ancestor
-  
+  -- and as we may already be in the scope of the stage, we use it as ancestor
+  -- because once in another scope, it will not be available as member
   return me
 end
@@ -24 +49 @@
 
 on Authoring_ExchangeScriptListColorsToRGBs me
+  -----------------------------------
+  --         ACTION: fix the score data which has #color instead of #rgb when authored with D10
+  --                 which fails with the older player (AUTHORING ONLY!)
+  --         INPUT: -
+  --         RETURNS: -
+  -----------------------------------
+  
   theLastFrame = the lastFrame
   theLastChannel = the lastChannel
@@ -62 +94 @@
 
 on mOpenContainingFolder me
+  -----------------------------------
+  --         ACTION: Open the folder, where the current movie is inside in the Finder/Explorer 
+  --         INPUT: -
+  --         RETURNS: -
+  -----------------------------------
+  
   if length(the moviepath) < 1 then
     alert "The movie must be saved first!"
@@ -78 +116 @@
 
 on mReadXML_2_List me, pfad
+  -----------------------------------
+  --         ACTION: Read xml text from file and parse into lingo list using pseudoXMLPS script 
+  --         INPUT: <pfad> ; string ; full pathname ; optional => default "" => show file selection dialog
+  --         RETURNS: lingo list or property list ; [:] in case of invalid xml file
+  -----------------------------------
+  
   theResult = [:]
   dertext = mGetTextFromFile(me, pfad)
@@ -91 +135 @@
 
 on mSaveList_2_XML me, theList, thePath
+  -----------------------------------
+  --         ACTION: Convert a lingo list or property list to xml and write xml string to file
+  --         INPUT:  <theList> ; #list or #proplist ; required
+  --                 <thePath> ; string ; full pathname ; optional => default "" => show file save dialog
+  --         RETURNS: string => full pathname of newly created file or "", if user cancelled process
+  -----------------------------------
+  
   if not(list(theList)) then
     global gRetVal
@@ -111 +162 @@
 
 on mGetTextFromFile me, pfad
+  -----------------------------------
+  --         ACTION: Read contents of textfile
+  --         INPUT:  <pfad> ; string ; full pathname ; optional => default "" => show file selection dialog
+  --         RETURNS: string => contents of textfile or "", if user cancelled process
+  -----------------------------------
+  
   retval = ""
   
@@ -141 +198 @@
 
 on mSaveToTextFile me, theText, pfad, theTitle, theDefaultName, startfolder
+  -----------------------------------
+  --         ACTION: Save text to textfile
+  --         INPUT:  <theText> ; string ; string to  save
+  --                 <pfad> ; string ; full pathname ; optional => default "" => show file save dialog
+  --                 <theTitle> ; string ; caption of the save dialog (if any => pfad == "")
+  --                 <theDefaultName> ; string ; default filename provided in the save dialog (if any => pfad == "")
+  --                 <startfolder> ; string ; startfolder of the save dialog (if any => pfad == "")
+  --         RETURNS: string => full pathname of newly created file or "", if user cancelled process
+  -----------------------------------
+  
+  
   retval = 0
   
@@ -215 +283 @@
 
 on mSaveTextToTempFile me, theText, pfad
+  -----------------------------------
+  --         ACTION: Write text out to a temporary file
+  --                 (helper for the bbdiff and svn handler)
+  --         INPUT:  <theText> ; string ; string to  save
+  --                 <pfad> ; string ; full pathname ; optional => default "tmpfile.txt" in temporary files folder
+  --         RETURNS: string => full pathname of newly created file or "", if user cancelled process
+  -----------------------------------
   
   pfad = string(pfad)
@@ -231 +306 @@
 
 on mAppendTextToFile me, theText, pfad
+  -----------------------------------
+  --         ACTION: Write text out to a temporary file
+  --                 (helper for the bbdiff and svn handler)
+  --         INPUT:  <theText> ; string ; string to append to file <pfad>
+  --                 <pfad> ; string ; full pathname ; optional => default "" => show file selection dialog
+  --         RETURNS: string => full pathname of newly created file or "", if user cancelled process
+  -----------------------------------
+  
   retval = 0
   
@@ -312 +395 @@
   
   if length(theType) < 1 then
-    if offset(".", theDefaultName) > 1 then
-      theType = theDefaultName.char[offset(".", theDefaultName) + 1 .. length(theDefaultName)]
+    splitpath = mSplitPath(me, theDefaultName)
+    --    if offset(".", theDefaultName) > 1 then
+    --      theType = theDefaultName.char[offset(".", theDefaultName) + 1 .. length(theDefaultName)]
+    --    end if
+    if length(splitpath[#extension]) > 0 then
+      theType = splitpath[#extension]
+      delete char 1 of theType
     end if
     forceType = 0
@@ -359 +447 @@
     len = length(pfad)
     if len < 1 then exit
-    basename = pfad
-    ext = ""
-    repeat with n = len down to 1
-      c = char n of pfad
-      if c = "." then exit repeat
-      put c before ext
-      if length(ext) > 4 then exit repeat
-    end repeat
-    if ["txt", "rtf", "htm", "html"].getPos(ext) > 0 then theType = ext
+    --    basename = pfad
+    --    ext = ""
+    --    repeat with n = len down to 1
+    --      c = char n of pfad
+    --      if c = "." then exit repeat
+    --      put c before ext
+    --      if length(ext) > 4 then exit repeat
+    --    end repeat
+    -- if ["txt", "rtf", "htm", "html"].getPos(ext) > 0 then theType = ext
+    splitpath = mSplitPath(me, pfad)
+    ext = splitpath[#extension]
+    if length(ext) > 0 then
+      if ".txt.rtf.htm.html" contains ext then
+        delete char 1 of ext
+        theType = ext
+      end if
+    end if
   end if
   
@@ -630 +726 @@
   if (not(mac) and (theType = "pct")) then theType = "bmp"
   
-  theDot = offset(".", thePath)
-  if theDot then thePath = thePath.char[1 .. (theDot - 1)]
+  --  theDot = offset(".", thePath)
+  --  if theDot then thePath = thePath.char[1 .. (theDot - 1)]
+  splitpath = mSplitPath(me, thePath)
+  thePath = splitpath[#basedir] & splitpath[#basename]
   
   if not(["jpg", "png", "bmp", "pct"].getPos(theType)) then exit
@@ -755 +853 @@
   if (not(mac) and (theType = "pct")) then theType = "bmp"
   
-  -- ensure the right file extension:
-  theDot = offset(".", thePath)
-  if theDot = 0 then thePath = thePath&"."&theType
+  -- -- ensure the right file extension:
+  
+  --  theDot = offset(".", thePath)
+  --  if theDot = 0 then thePath = thePath&"."&theType
+  
+  splitpath = mSplitPath(me, thePath)
+  if length(splitpath[#extension]) < 1 then splitpath[#extension] = "." & theType
+  thePath = splitpath[#basedir] & splitpath[#basename] & splitpath[#extension]
+  
   -- else thePath = thePath.char[1 .. theDot]&theType
   
@@ -2137 +2241 @@
           mp = the moviepath
           delim = the last char of mp
-          od = the itemdelimiter
-          the itemdelimiter = delim
-          fname = the last item of pfad
-          the itemdelimiter = od
-          len = fname.length
-          if fname.char[len - 3] = "." then
-            fnameW = fname.char[1 .. len - 4]
-            ext = fname.char[len - 2 .. len]
-          else if fname.char[len - 4] = "." then
-            fnameW = fname.char[1 .. len - 5]
-            ext = fname.char[len - 3 .. len]
-          else
-            fnameW = fname
-            ext = ""
-          end if
+          --          od = the itemdelimiter
+          --          the itemdelimiter = delim
+          --          fname = the last item of pfad
+          --          the itemdelimiter = od
+          --          len = fname.length
+          --          if fname.char[len - 3] = "." then
+          --            fnameW = fname.char[1 .. len - 4]
+          --            ext = fname.char[len - 2 .. len]
+          --          else if fname.char[len - 4] = "." then
+          --            fnameW = fname.char[1 .. len - 5]
+          --            ext = fname.char[len - 3 .. len]
+          --          else
+          --            fnameW = fname
+          --            ext = ""
+          --          end if
+          splitpath = mSplitPath(me, pfad)
+          fnameW = splitpath[#basename]
+          ext = splitpath[#extension]
+          fname = fnameW & ext
+          if length(ext) > 0 then delete char 1 of ext
           
           -- in case of field we always use the plain text:
@@ -2586 +2695 @@
 RETURN & "  -- CREATED:"&\
 RETURN & "  -- <currentDate>"&\
+RETURN & "  -- PROPERTIES:"&\
+RETURN & "  --!memberProperties: [#name: "&QUOTE&"<scriptname>"&QUOTE&", #scripttype: #<scripttype>, #scriptSyntax: #<scriptSyntax>, #comments: "&QUOTE&"<comments>"&QUOTE&"]"&\
 RETURN & "  --"&\
 RETURN & "  -- DESCRIPTION:"&\
@@ -2592 +2703 @@
 RETURN & "  -- REQUIRES:"&\
 RETURN & "  -- (Prerequisites)"&\
-RETURN & "  --"&\
+  RETURN & "  --"&\
 RETURN & "  -- USAGE:"&\
 RETURN & "  -- -"&\
@@ -2662 +2773 @@
       --------------------------------- for the current scriptname, which we only "know" here in this script
       if replacePlaceHolder = 1 then
-        placeholders = [["<currentDate>", the short date], ["<scriptname>", theMem.name]]
+        placeholders = [["<currentDate>", the short date], ["<scriptname>", theMem.name], ["<scripttype>", theMem.scripttype], ["<scriptSyntax>", theMem.scriptSyntax], ["<comments>", theMem.comments]]
         
         repeat with repl in placeholders
@@ -2901 +3012 @@
 end
 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
+
+-- the following handlers are mostly duplicates from the script "commonMovieScript",
+-- because we are running in the scope of the stage here, we can not use it directly
+-- and therefore this script shall be completely self contained.
 
 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
@@ -3038 +3153 @@
   return memref.type
 end
+
+-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
+
+-- split a path into its three elements => base directory, basename and extension:
+
+on mSplitPath me, fname, delim -- delim optional: default = the systems pathdelimiter
+  
+  olddelim = the itemdelimiter
+  delim = string(delim)
+  if length(delim) < 1 then
+    delim =  the last char of the moviepath
+    if length(delim) < 1 then
+      
+      if the runmode contains "plug" then
+        delim = "/"
+      else
+        delim = the last char of the applicationpath
+      end if
+      
+      
+      if length(delim) < 1 then delim = "/"
+    end if
+  end if
+  the itemdelimiter = delim
+  dateiname = the last item of fname
+  delete the last item of fname
+  put delim after fname
+  the itemdelimiter = olddelim
+  
+  
+  len = length(dateiname)
+  ext = ""
+  until = max(1, len-8) -- let's pretend, that a file extension is not langer than 8 chars
+  
+  repeat with n = len down to until
+    this = dateiname.char[n]
+    put this before ext
+    delete char n of dateiname
+    if this = "." then exit repeat
+  end repeat
+  
+  if char 1 of ext <> "." then -- no extension
+    put ext after dateiname
+    ext = ""
+  end if
+  
+  return [#basedir:fname, #basename:dateiname, #extension:ext]
+  
+end

trunk/lingosource/castlib1/bbedit_Utilities.ls

@@ +1 @@
+-- bbedit_Utilities
+-----------------------------------
+-- PROPERTIES:
+--!memberProperties: [#name: "bbedit_Utilities", #scripttype: #parent, #scriptSyntax: #lingo, #comments: "~/Documents/Scripts/lingo/commonMovieScript.ls"]
+--
+-- DESCRIPTION:
+--               This script externalizes all functions which are related to the use of an external editor for script editing
+--               It started as interface to BBEdit, hence the name, later I added support for arbitrary editors
+--               as there is not BBEdit for windows. I tested with UltraEdit and Tortoise SVN for the merge/diff functionality
+--               I'd appreciate any enhencements made for other external editors, but the above are the ones I use
+--               and therefore I haven't tested against others
+--
+-- REQUIRES:
+--               script "alexUtilities" -> ancestor -> basic function provider
+--               most functionality is provided through the shell xtra and buddyApi xtra
+--               although it should fail gracefully, if those are not present
+--               not much will work without them
+--
+-- USAGE:
+--               This script is instantiated and used in the "tell the stage" block and one of the functions
+--               which are defined in script "OSCmenu_Utilities" and which was selected by the user
+--               will be executed in "stage scope". That means, that references are made form within the stage context
+--               e.g. member("foo") will refer to a member in one of the stages castlibs
+--               sprite(x) will refere to sprite(x) in the stages score and so on
+--
+--               Please see the descriptions of many of those handlers at: http://www.farbflash.org/trac/HandlerMenu/wiki/utilityHandlers
+-----------------------------------
+
 property ancestor
 
@@ -1486 +1514 @@
   
   mn = the moviename
-  offs = offset(".", mn)
-  if offs > 0 then mn = mn.char[1 .. offs-1]
-  
-  mSaveToTextFile me, str, "", "Save list of used linked scripts", mn & "_linkedScripts_List.txt"
-  
-end
-
+  --  offs = offset(".", mn)
+  --  if offs > 0 then mn = mn.char[1 .. offs-1]
+  
+  spl = mSplitPath(me, mn)
+  
+  mSaveToTextFile me, str, "", "Save list of used linked scripts", spl[#basename] & "_linkedScripts_List.txt"
+  
+end
+

trunk/lingosource/castlib1/convert_Lingo_2_CSS_Html.ls

@@ -1 @@
--- Create HTML code from a lingo script
--- ©06 Alex da Franca -- alex@farbflash.de
-
-
--- Usage:
--- -- Copy the scripttext from a script editor
--- -- make a new #text member
--- -- open the new #textmember in the text editor
--- -- paste the contents of the clipboard (now the text member has the script text WITH the formatting)
--- -- use the below handler "mConvertCode2HTML" with the html of the textmember as argument to get a CSS html string
-
+-- convert_Lingo_2_CSS_Html
+-----------------------------------
+-- CREATED:
+-- 2006
+-- PROPERTIES:
+--!memberProperties: [#name: "convert_Lingo_2_CSS_Html", #scripttype: #movie, #scriptSyntax: #lingo, #comments: "~/Documents/Scripts/lingo/convert_Lingo_2_CSS_Html.ls"]
+--
+-- DESCRIPTION:
+--              Create HTML code from a lingo script -- c06 Alex da Franca -- alex@farbflash.de
+--
+-- REQUIRES:
+--              xtra "pregex" for fast search and replace functionality
+--
+-- USAGE:
+--              Copy the scripttext from a script editor into the clipboard
+--              make a new #text member
+--              open the new #textmember in the text editor
+--              paste the contents of the clipboard (now the text member has the script text WITH the formatting)
+--              use the below handler "mConvertCode2HTML" with the html of the textmember as argument to get a CSS html string
+-----------------------------------
 
 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
+-- uses the selected #text member of the stage movie
 
 on mCopyConvert2HTML

trunk/lingosource/castlib1/custom_Utilities.ls

@@ +1 @@
+-- custom_Utilities
+-----------------------------------
+-- PROPERTIES:
+--!memberProperties: [#name: "custom_Utilities", #scripttype: #parent, #scriptSyntax: #lingo, #comments: "~/Documents/Scripts/lingo/commonMovieScript.ls"]
+--
+-- DESCRIPTION:
+--               you can use the utility handlers from script alexUtilities in this script, as it uses it as ancestor.
+--
+-- REQUIRES:
+--               script "alexUtilities" -> ancestor -> basic function provider
+--
+-- USAGE:
+--               define the handlers, which are provided in the Utilities menu and defined in script "OSCmenu_Utilities"
+--
+--
+-- if you want to display a status for long calls (like my svn utilities do)
+-- use:
+-- me.mSwitchToStatusMode(1) -- to switch it on
+-- me.mSwitchToStatusMode(0) -- to switch it off
+-- and:
+-- me.mDisplayWaitStatusText(aString) -- to display a status message
+--
+--
+-- WARNINGS:
+--              keep in mind, that you are in the scope of the stage, when these hadlers here are called!
+--              so calling a script of this movie "Handlermenu" here is only possible, if you use a "tell" statement
+--              use it like so: tell window(me.pHandlerMenuWindowName) to doSomething
+-----------------------------------
+
 property ancestor
 
@@ -5 +34 @@
   return me
 end
-
--- you can use the utility handlers from script alexUtilities in this script, as it uses it as ancestor.
-
--- keep in mind, that you are in the scope of the stage, when these hadlers here are called!
--- so calling a script of this movie "Handlermenu" here is only possible, if you use a "tell" statement
--- use it like so: tell window(me.pHandlerMenuWindowName) to doSomething
-
-----------------------------------------------
--- if you ant to display a status for long calls (like my svn utilities do)
--- use:
--- me.mSwitchToStatusMode(1) -- to switch it on
--- me.mSwitchToStatusMode(0) -- to switch it off
--- and:
--- me.mDisplayWaitStatusText(aString) -- to display a status message
-----------------------------------------------
 
 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

trunk/lingosource/castlib1/doCommandMovieScript.ls

@@ +1 @@
+-- doCommandMovieScript
+-----------------------------------
+-- DESCRIPTION:
+--              process the command, which was chosen
+--              at this point the command string is stored in the globallist,
+--              as we come here in an asynch process -> MUI dialog
+--              the command and the paramaters are stored in the global list which we get with:
+--              call(#mGetGlobalList, mGetXScript())
+--                  the command string is glob.getaprop(#cmd)
+--                  the parameters are in glob.getaprop(#theParams)
+--
+-- REQUIRES:
+--              script "aleXtrasMovieScript" as provider for library scripts -> xscr()
+--              script "commonMovieScript" -- standard handlers -> here to get the globallist -> mGetGlobalList()
+-- USAGE:
+-- 
+-- NOTES:
+--              This handler used to be in "thisMovieScript", but due to a scope bug with calling handlers
+--              in other movies -> tell the stage unfortunately this doesn't fix the problem.
+--              I have to investigate later WHY... so calling handlers, which are in this movie will fail
+-----------------------------------
+
 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
 on _____________________PROCESS_COMMAND
 end
 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
--- process the command, which was chosen
--- at this point the command string is stored in the globallist, as we come here in an asynch process -> MUI dialog
--- the command and the paramaters are stored in the global list which we get with: call(#mGetGlobalList, mGetXScript())
--------- the command string is glob.getaprop(#cmd)
--------- the parameters are in glob.getaprop(#theParams)
-
-
----- This handler used to be in "thisMovieScript", but due to a scope bug with calling handlers in other movies -> tell the stage
--- unfortunately this doesn't fix the problem. I have to investigate later WHY... so calling handlers, which are in this movie will fail
-
 
 on mDoCmd dto, dto2

trunk/lingosource/castlib1/keyboardNavigation_FrameLoop.ls

@@ -1 @@
--- keyboard navigation using control+tab to access the menu without mouse
+-- keyboardNavigation_FrameLoop
+-----------------------------------
+-- DESCRIPTION:
+--                frame loop and keyboard input "watcher"
+--                keyboard navigation using control+tab to access the menu without mouse
+--
+-- REQUIRES:
+--                none
+--
+-- USAGE:
+--                put this behavior on a framescript in order to loop on that frame
+--                and track whether the user presses ctrl + TAB
+--                Currently it is set to track the whole time, therefore the menus even appear
+--                if the app is not in foreground.
+--                A deactivate application trigger could change that. I am ok with it myself
+--                and I even sometimes look up items, when I am in other apps like bbedit...
+-----------------------------------
+
+
 
 property pActive
@@ -9 +27 @@
     if not(pActive) then
       
-      if keypressed(48) then
-        if the shiftdown then
+      if keypressed(48) then -- TAB key
+        if the shiftdown then -- CTRL + SHIFT + TAB open handler menu
           sendSprite(xscr().mGetKanal(#handlerMenuTrigger), #mousedown)
-        else
+        else -- CTRL + TAB open utitlities menu
           sendSprite(xscr().mGetKanal(#utilitiesMenuTrigger), #mousedown)
         end if

trunk/lingosource/castlib1/memberInfo.xml

@@ -1 +1 @@
 <?xml version="1.0" encoding="ISO-8859-1" ?>
 <Untitled>
+        <subversion_version_field>
+                <scriptType>#field</scriptType>
+                <comments>http://www.farbflash.de/cgi-bin/versionChecker.pl?movieName=HandlerMenu_OSC</comments>
+                <memberName>subversion_version_field</memberName>
+                <fName>subversion_version_field</fName>
+        </subversion_version_field>
         <doCommandMovieScript>
                 <scriptType>#movie</scriptType>
@@ -49 +55 @@
                 <fName>alexUtilities</fName>
         </alexUtilities>
+        <bbedit_Utilities>
+                <scriptType>#parent</scriptType>
+                <comments>~/Documents/Scripts/lingo/commonMovieScript.ls</comments>
+                <memberName>bbedit_Utilities</memberName>
+                <fName>bbedit_Utilities</fName>
+        </bbedit_Utilities>
+        <svn_Utilities>
+                <scriptType>#parent</scriptType>
+                <comments>~/Documents/Scripts/lingo/commonMovieScript.ls</comments>
+                <memberName>svn_Utilities</memberName>
+                <fName>svn_Utilities</fName>
+        </svn_Utilities>
+        <custom_Utilities>
+                <scriptType>#parent</scriptType>
+                <comments>~/Documents/Scripts/lingo/commonMovieScript.ls</comments>
+                <memberName>custom_Utilities</memberName>
+                <fName>custom_Utilities</fName>
+        </custom_Utilities>
         <convert_Lingo_2_CSS_Html>
                 <scriptType>#movie</scriptType>
@@ -115 +139 @@
                 <fName>statusOutput</fName>
         </statusOutput>
-        <bbedit_Utilities>
-                <scriptType>#parent</scriptType>
-                <comments>~/Documents/Scripts/lingo/commonMovieScript.ls</comments>
-                <memberName>bbedit_Utilities</memberName>
-                <fName>bbedit_Utilities</fName>
-        </bbedit_Utilities>
-        <svn_Utilities>
-                <scriptType>#parent</scriptType>
-                <comments>~/Documents/Scripts/lingo/commonMovieScript.ls</comments>
-                <memberName>svn_Utilities</memberName>
-                <fName>svn_Utilities</fName>
-        </svn_Utilities>
-        <custom_Utilities>
-                <scriptType>#parent</scriptType>
-                <comments>~/Documents/Scripts/lingo/commonMovieScript.ls</comments>
-                <memberName>custom_Utilities</memberName>
-                <fName>custom_Utilities</fName>
-        </custom_Utilities>
-        <subversion_version_field>
-                <scriptType>#field</scriptType>
-                <comments>http://www.farbflash.de/cgi-bin/versionChecker.pl?movieName=HandlerMenu_OSC</comments>
-                <memberName>subversion_version_field</memberName>
-                <fName>subversion_version_field</fName>
-        </subversion_version_field>
 </Untitled>

trunk/lingosource/castlib1/simpleBMMenu.ls

@@ +1 @@
+-- simpleBMMenu
+-----------------------------------
+-- DESCRIPTION:
+--              behavior on the btton to show the menu
+--              invoke the menu on mousedown and stay hilited until the menu is disposed
+--              the menu calls mUnhilite, if it is closed
+--
+-- REQUIRES:
+--              none (uses sendSprite() to send the "menu open" event to a sprite named like it is defined in the GPDL)
+--
+-- USAGE:
+--              drag this behavior onto a sprite with a member of type #text
+-----------------------------------
+
+
+
 property pMenuSpritename
 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
 
 on mouseDown me
-  spr = sprite(me.spritenum)
-  spr.member.color = rgb(255, 255, 255)
-  sprite(xscr().mGetKanal(#blueBackGround)).rect = spr.rect -- blue background
+  mem = sprite(me.spritenum).member
+  mem.color = rgb(255, 255, 255)
+  mem.bgcolor = rgb("#106fe7")
   updatestage
   sendSprite(xscr().mGetKanal(pMenuSpritename), #mShowOSCMenu, me.spritenum)
@@ -27 +43 @@
 
 on mUnhilite me
-  sprite(me.spritenum).member.color = rgb(20, 20, 20)
-  sprite(xscr().mGetKanal(#blueBackGround)).locV = -1000 -- blue background
+  mem = sprite(me.spritenum).member
+  mem.color = rgb(20, 20, 20)
+  mem.bgcolor = rgb(255, 255, 255)
 end if

trunk/lingosource/castlib1/subversion_version_field.txt

@@ -1 @@
-r213
+r217

trunk/lingosource/castlib1/svn_Utilities.ls

@@ +1 @@
+-- svn_Utilities
+-----------------------------------
+-- PROPERTIES:
+--!memberProperties: [#name: "svn_Utilities", #scripttype: #parent, #scriptSyntax: #lingo, #comments: "~/Documents/Scripts/lingo/commonMovieScript.ls"]
+--
+-- DESCRIPTION:
+--               This script externalizes all functions which are related to the use of subversion with director
+--               
+--
+-- REQUIRES:
+--               script "alexUtilities" -> ancestor -> basic function provider
+--               most functionality is provided through the shell xtra and buddyApi xtra
+--               although it should fail gracefully, if those are not present
+--               not much will work without them
+--               It also requires the svn command line client to be installed on the machine
+--
+-- USAGE:
+--               This script is instantiated and used in the "tell the stage" block and one of the functions
+--               which are defined in script "OSCmenu_Utilities" and which was selected by the user
+--               will be executed in "stage scope". That means, that references are made form within the stage context
+--               e.g. member("foo") will refer to a member in one of the stages castlibs
+--               sprite(x) will refere to sprite(x) in the stages score and so on
+--
+--               Please see the descriptions of many of those handlers at: http://www.farbflash.org/trac/HandlerMenu/wiki/utilityHandlers
+-----------------------------------
+
 property ancestor
 
@@ -1307 +1333 @@
   put the itemdelimiter after thePath
   
-  extension = ""
-  repeat while length(fname)
-    put the last char of fname before extension
-    delete the last char of fname
-    if char 1 of extension = "." then exit repeat
-  end repeat
-  if char 1 of extension <> "." then
-    put extension after fname
-    extension = ""
-  end if
+  splitpath = mSplitPath(fname)
+  extension = splitpath[#extension]
+  --  extension = ""
+  --  repeat while length(fname)
+  --    put the last char of fname before extension
+  --    delete the last char of fname
+  --    if char 1 of extension = "." then exit repeat
+  --  end repeat
+  --  if char 1 of extension <> "." then
+  --    put extension after fname
+  --    extension = ""
+  --  end if
   
   if ilk(infolist) <> #proplist then
@@ -2822 +2850 @@
     thisFile = flist[n]
     if thisFile starts ".svn" then next repeat
-    erg = baCopyFileProgress(fromFolder & thisFile, toFolder & thisFile, "Always", "Replacing movie with the version of the working folder", "", 33)
-    if erg <> 0 then
-      alert "An error occurred during copying the file (" & thisFile & "). Error:" && erg
-    else
-      put "Replaced file:" && thisFile
+    -- we get ourselves only dir and cast files:
+    len = length(thisFile)
+    ext = thisFile.char[len-3 .. len]
+    if ext = ".dir" or ext = ".cst" then
+      erg = baCopyFileProgress(fromFolder & thisFile, toFolder & thisFile, "Always", "Replacing movie with the version of the working folder", "", 33)
+      if erg <> 0 then
+        alert "An error occurred during copying the file (" & thisFile & "). Error:" && erg
+      else
+        put "Replaced file:" && thisFile
+      end if
     end if
   end repeat
-  
   
 end

trunk/lingosource/castlib1/thisMoviesScript.ls

@@ -1 @@
----------------------------------------------
--- IMPORTANT:
--- If you prefer to use buddyMenu xtra (which is buggy, but free) over OSControl xtra (you need a license to use it in authoring)
--- simply replace the OSControl menu member with another member. You can use the member "OSControlReplacement".
--- Select sprite 2 and 3 in the score window, then select member "OSControlReplacement" in the cast window and select:
--- "Edit -> Exchange Cast Members" (or press Cmd + E).
--- You can delete the OSControl member "oscontrolMenu" afterwards.
--- From that time on the buddyMenu xtra is used to draw the menu instead of the OSControl xtra.
--- the only difference in the script is in script "OSCmenu_Utilities" and "OSCmenu_Handlers":
--- if sprite(me.spritenum).member.type = #OSmenu then ...
-
--- Please read the readme file in order to learn how to add your own handlers to this menu
----------------------------------------------
+-- thisMoviesScript
+-----------------------------------
+-- DESCRIPTION:
+--              Main movie script of this movie, with the standard moviescript handlers like:
+--              startMovie, stopmovie, closeWindow and idle
+--
+-- REQUIRES:
+--              script "aleXtrasMovieScript" as provider for library scripts -> xscr()
+--              script "commonMovieScript" -- standard handlers
+--              script "GetSetPrefs" -- read and write preferences
+--
+-- WARNINGS:
+--              IMPORTANT NOTES:
+--              This movie uses the sleep method on idle in order to prevent CPU hogging
+--              by a movie, which is supposed ti run all the time
+--              This means, that on mac, you will sleep one tick on idle, while on PC it is only a millisecond
+--              While that keeps the CPU usage low, the main movie won't run at "full speed"
+--              So in order to test the speed of the main movie close this MIAW tool!
+--              
+--              which xtra to use for the menu?
+--              If you prefer to use buddyMenu xtra (which is buggy, but free) over OSControl xtra
+--              (you need a license to use it in authoring)
+--              simply replace the OSControl menu member with another member.
+--              You can use the member "OSControlReplacement".
+--              Select sprite 2 and 3 in the score window, then select
+--              member "OSControlReplacement" in the cast window and select:
+--              "Edit -> Exchange Cast Members" (or press Cmd + E).
+--              You can delete the OSControl member "oscontrolMenu" afterwards.
+--              From that time on the buddyMenu xtra is used to draw the menu instead of the OSControl xtra.
+--              the only difference in the script is in script "OSCmenu_Utilities" and "OSCmenu_Handlers":
+--              if sprite(me.spritenum).member.type = #OSmenu then ...
+
+--              Please read the readme file in order to learn how to add your own handlers to this menu
+-----------------------------------
 
 on startmovie
@@ -18 +39 @@
   
   prefsScript = xscr(#GetSetPrefs)
-  theResult = prefsScript.mReadPrefs("handlerMenuToolPrefs")
-  theResult = prefsScript.mGetPrefValue(#windowrect)
+  if ilk(prefsScript) = #instance then
+    theResult = prefsScript.mReadPrefs("handlerMenuToolPrefs")
+    theResult = prefsScript.mGetPrefValue(#windowrect)
+  end if
   if ilk(theResult) <> #rect then theResult = rect(0,0,(the activewindow).rect.width, (the activewindow).rect.height).offset(50, 50)
   (the activewindow).rect = theResult
@@ -38 +61 @@
   
   -------------- I've put it back in now, as I am having a problem on windows anyway, that I'll need to investigate further
-  theResult = call(#mSetPrefValue, [mGetXscript(#GetSetPrefs)], #windowrect, (the activewindow).rect)
-  theResult = call(#mSavePrefs, [mGetXscript(#GetSetPrefs)], "handlerMenuToolPrefs", 1)
+  prefsScript = xscr(#GetSetPrefs)
+  if ilk(prefsScript) = #instance then
+    theResult = call(#mSetPrefValue, prefsScript, #windowrect, (the activewindow).rect)
+    theResult = call(#mSavePrefs, prefsScript, "handlerMenuToolPrefs", 1)
+  end if
   
   forget the activewindow
@@ -57 +83 @@
 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
 -- get a list of all handlers used in the current stage movie, sorted by scripttype and castlib
+-- the more scripts you have in your main movie, the longer it takes
+-- therefore it caches the results, so that it is only slow the first time the handler menu is opened
 
 on mBuildList kw
@@ -338 +366 @@
       parentheseOffs = offset(")", l1)
       if parentheseOffs > 0 then
-        put " " into char parentheseOffs of scrtext
+        -- put " " into char parentheseOffs of scrtext
+        delete char parentheseOffs of scrtext
       end if
     end if

trunk/lingosource/castlib2/PseudoXMLPS.ls

@@ -822 +822 @@
 on mEscapeSpecialChars me, str
   
+  val = mReplaceAllGT(me, val, "&", "&")
   val = mReplaceAllGT(me, string(str), "<", "&lt;")
   val = mReplaceAllGT(me, val, ">", "&gt;")
-  val = mReplaceAllGT(me, val, "&", "&amp;")
   val = mReplaceAllGT(me, val, "'", "&apos;")
   val = mReplaceAllGT(me, val, QUOTE, "&quot;")
@@ -838 +838 @@
   val = mReplaceAllGT(me, string(str), "&lt;", "<")
   val = mReplaceAllGT(me, val, "&gt;", ">")
-  val = mReplaceAllGT(me, val, "&amp;", "&")
   val = mReplaceAllGT(me, val, "&apos;", "'")
   val = mReplaceAllGT(me, val, "&quot;", QUOTE)
+  val = mReplaceAllGT(me, val, "&amp;", "&")
   
   return val

trunk/lingosource/castlib2/commonMovieScript.ls

@@ -296 +296 @@
 
 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 = ""
+  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
-    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
-    
+  end repeat
+  
   return value(intVers)
 end
@@ -333 +333 @@
   if voidP(gPlatform) then
     
-  isMac = the platform contains "Macintosh"
-  if isMac then
-      
-    onX = value(char 1 of (the last word of (the environment).osversion)) <= 5
+    isMac = the platform contains "Macintosh"
+    if isMac then
+      
+      onX = value(char 1 of (the last word of (the environment).osversion)) <= 5
       if onX then gPlatform = #osx
       else gPlatform = #os9
@@ -1413 +1413 @@
   len = length(dateiname)
   ext = ""
-  
-  repeat with n = len down to 1
+  until = max(1, len-8) -- let's pretend, that a file extension is not langer than 8 chars
+  
+  repeat with n = len down to until
     this = dateiname.char[n]
     put this before ext