Changeset 245 for trunk/lingosource/castlib2/commonMovieScript.ls

Timestamp:

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

Author:

alex

Message:

cleanup

File:

• trunk/lingosource/castlib2/commonMovieScript.ls (modified) (25 diffs)

trunk/lingosource/castlib2/commonMovieScript.ls

@@ -66 +66 @@
 -----------------------------------
 
--- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
--- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
-
-
-
+on _____________________PROPERTY_DECLARATION me
+end
+-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
+property ancestor
 property pGList
 property pCaseLists
+
+
+-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
+on ___________________STANDARD_EVENTS me
+end
+-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
+
+on new me
+  Script_Root_Object = member("Script_Root_Object")
+  if ilk(Script_Root_Object) = #member then
+    if Script_Root_Object.type = #script then
+      ancestor = new(script "Script_Root_Object")
+      mSetScriptName me, "commonMovieScript"
+    end if
+  end if
+  return me
+end
+
+-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
+
+on mFilterString me, string_Input, string_keyword
+  -----------------------------------
+  -- CREATED: 26.02.2010
+  -- ACTION: Filter to constrain the results
+  --                       use "%" or "^" as the first char if the filter shall be =>
+  --                                                     'word STARTS with <string_keyword>'
+  --                       use "$" as the last char if the filter shall be =>
+  --                                                     'word ENDS with <string_keyword>'
+  --                       (HINT: if searching for the exact phrase use ^keyword$ as filter)
+  --                       otherwise the string <string_keyword> may appear anywhere in the word =>
+  --                                                     'word CONTAINS <string_keyword>'
+  -- INPUT: <string_Input> ; string
+  --        <string_keyword> ; string
+  -- RETURNS: boolean (integer 1 or 0) ; true or false
+  -- EXAMPLE: put xscr().mFilterString("commonmoviescript", "%comm") -- STARTS
+  --          -- 1
+  --          put xscr().mFilterString("commonmoviescript", "ript$")
+  --          -- 1
+  --          put xscr().mFilterString("commonmoviescript", "%commonmoviescript$")
+  --          -- 1
+  --          put xscr().mFilterString("commonmoviescript", "movie")
+  --          -- 1
+  -----------------------------------
+  
+  string_Input = string(string_Input)
+  if length(string_Input) < 1 then return 0
+  
+  string_keyword = string(string_keyword)
+  if length(string_keyword) < 1 then return 1
+  
+  if string_keyword starts "^" then
+    delete char 1 of string_keyword
+    offs = offset(string_keyword, string_Input)
+    return (offs = 1)
+  else if string_keyword starts "%" then
+    delete char 1 of string_keyword
+    offs = offset(string_keyword, string_Input)
+    return (offs = 1)
+  else if the last char of string_keyword = "$" then
+    delete the last char of string_keyword
+    offs = offset(string_keyword, string_Input)
+    return (offs = (length(string_Input) - length(string_keyword) + 1))
+  else
+    offs = offset(string_keyword, string_Input)
+    return (offs > 0)
+  end if
+  
+end
+
+-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
 
 on mGetGlobalList me
@@ -163 +232 @@
   -----------------------------------
   
+  delayedCallBackList = mGetGlobalValue(me, #delayedCallBackList)
+  if ilk(delayedCallBackList) = #proplist then
+    jobs = delayedCallBackList[#jobs]
+    repeat with n = count(jobs) down to 1
+      toName = jobs.getPropAt(n)
+      dto = timeout(toName)
+      if ilk(dto) = #timeout then dto.forget()
+    end repeat
+    delayedCallBackList[#jobs] = [:]
+  end if
   
   sendAllSprites(#mStopMovieWasCalled)
@@ -218 +297 @@
     mSetGlobalValue(me, #playBackModeValueList, playBackModeValueList)
   end if
-  return playBackModeValueList[symbol_Prop] = any_value
+  playBackModeValueList[symbol_Prop] = any_value
 end
 
@@ -317 +396 @@
 
 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
-    
+  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
@@ -363 +442 @@
       env = gLameAuthoringHack_forSlowEnvironment_onMac
     else
-    env = the environment
+      env = the environment
     end if
     
@@ -388 +467 @@
   if voidP(gPlatform) then
     
-  isMac = the platform contains "Macintosh"
-  if isMac then
+    isMac = the platform contains "Macintosh"
+    if isMac then
       
       onX = value(char 1 of (the last word of (mGetEnvironment(me)).osversion)) <= 5
@@ -553 +632 @@
   --         <p1 - p3> ; arbitrary parameters ; just in case additional parameters are required,
   --             which can not, for some reason, be stored in the object <callbackObject> itself
-  -- RETURNS: either a string or an integer. In case of 1 the callback was successfully called, otherwise
+  -- RETURNS: either a string or any value. In case of a parameter error
   --             an errorstring is returned and the callback was NOT successfully called.
-  -- EXAMPLE: xscr().mDoCallBack(callBackObject)
+  -- EXAMPLE: theResult = xscr().mDoCallBack(callBackObject)
   -----------------------------------
   
@@ -578 +657 @@
   case ilk(tgt) of
     #script, #instance:
-      call(hnd, [tgt], callbackObject, p1, p2, p3)
+      retval = call(hnd, [tgt], callbackObject, p1, p2, p3)
     #list, #proplist:
       if count(tgt) = 0 then
@@ -591 +670 @@
         put "p3:" && p3
         put "---------------------------"
+        retval = 1
       else
-      call(hnd, tgt, callbackObject, p1, p2, p3)
+        retval = call(hnd, tgt, callbackObject, p1, p2, p3)
       end if
       
@@ -598 +678 @@
       spr = mGetKanal(me, tgt)
       if spr < 1 then return "callbackObject[#target] is neither an object nor a spritenumber/name:" && callbackObject[#target]
-      sendSprite(spr, hnd, callbackObject, p1, p2, p3)
+      retval = sendSprite(spr, hnd, callbackObject, p1, p2, p3)
   end case
   
+  return retval
+end
+
+-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
+
+on mDoDelayedCallback me, proplist_callbackObject, integer_DelayTime, any_param1, any_param2, any_param3
+  -----------------------------------
+  -- CREATED: 04.02.2010
+  -- ACTION: Break the event chain by deleying a call by at least one milliseconds
+  -- INPUT:  <callbackObject> ; object (propertylist) ; required ; a callBack object of the format:
+  --             [#handler:symbol, #target:object], which can be any number of additional properties
+  --             since this object will be provided as parameter to the recipient
+  --             the recipient can access all these additional properties
+  --         <integer_DelayTime> ; integer ; timeoutlength in milliseconds, optional, default = 1
+  --         <any_param1 - any_param3> ; arbitrary parameters ; just in case additional parameters are required,
+  --             which can not, for some reason, be stored in the object <callbackObject> itself
+  -- RETURNS: true for success
+  -- EXAMPLE: cb = [#target:me, #handler:#foo]
+  --          xscr().mDoDelayedCallback(cb, 1, "abc", 3, [])
+  -----------------------------------
+  
+  delayedCallBackList = mGetGlobalValue(me, #delayedCallBackList)
+  if ilk(delayedCallBackList) <> #proplist then
+    delayedCallBackList = [:]
+    delayedCallBackList[#lastIndex] = 0
+    delayedCallBackList[#jobs] = [:]
+    mSetGlobalValue(me, #delayedCallBackList, delayedCallBackList)
+  end if
+  
+  if ilk(integer_DelayTime) <> #integer then integer_DelayTime = 1
+  integer_DelayTime = max(1, integer_DelayTime)
+  
+  delayedCallBackList[#lastIndex] = delayedCallBackList[#lastIndex] + 1
+  if delayedCallBackList[#lastIndex] = the maxinteger then delayedCallBackList[#lastIndex] = 1
+  
+  toName = "delayedCallbackTimeout" & mGetMemoryAddress(me, me) & delayedCallBackList[#lastIndex]
+  
+  delayedCallBackList[#jobs][toName] = [#cobj: proplist_callbackObject, #params:[any_param1, any_param2, any_param3]]
+  
+  dto = mCreateTimeOut(me, toName, integer_DelayTime, #delayedCallCallback, me)
+  
   return 1
+end
+
+-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
+-- cal the callback after the delay timeout
+
+on delayedCallCallback me, dto
+  if ilk(dto) <> #timeout then exit
+  toName = dto.name
+  dto.forget()
+  delayedCallBackList = mGetGlobalValue(me, #delayedCallBackList)
+  if ilk(delayedCallBackList) <> #proplist then exit
+  thisJob = delayedCallBackList[#jobs][toName]
+  if voidP(thisJob) then exit
+  delayedCallBackList[#jobs].deleteProp(toName)
+  mDoCallBack me, thisJob[#cobj], thisJob[#params][1], thisJob[#params][2], thisJob[#params][3]
 end
 
@@ -898 +1034 @@
   
   tempMembers = mGetTempMemberList(me, aType)
-  tempMembers.add(aMember)
+  if tempMembers.getPos(aMember) < 1 then tempMembers.add(aMember)
   
 end
@@ -1475 +1611 @@
 end
 
+-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
+
+on mGetMemoryAddress me, theObject
+  -----------------------------------
+  -- CREATED: 08.12.2009
+  -- ACTION: Convert argument into a string and chop the last char
+  --         Usually used to get a unique identifier for a scriptinstance (=> the last word of string(me))
+  --         but without the trailing ">".
+  --         Not only this looks nicer, but also if used for a filename the ">" character is problematic in a filename
+  -- INPUT: <theObject> ; any ilk which can be converted to a string
+  -- RETURNS: string ; the stringified object without the trailing char
+  -- EXAMPLE: uniqueInstanceIdentifier = xscr().mGetMemoryAddress(me)
+  -----------------------------------
+  
+  theObject = the last word of string(theObject)
+  delete the last char of theObject
+  return theObject
+end
+
+-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
+
+on mGetPropertyRecursive me, proplist_source, list_propnames
+  -----------------------------------
+  -- CREATED: 08.03.2010
+  -- ACTION: Dereference a proplist recursively
+  -- INPUT: <proplist_source> ; property list ; the source list
+  --        <list_propnames> ; linear list ; linear list with property names, which lead to the last property
+  -- RETURNS: any value
+  -- EXAMPLE: sourceList = [#one:[#two:[#three:3]]]
+  --          val = xscr().mGetPropertyRecursive(sourceList, [#one, #two, #three])
+  -----------------------------------
+  
+  if ilk(proplist_source) <> #proplist then return void
+  if not(listP(list_propnames)) then return void
+  cnt = count(list_propnames)
+  if cnt < 1 then return void
+  if cnt = 1 then return proplist_source[list_propnames[1]]
+  propname = list_propnames[1]
+  list_propnames.deleteAt(1)
+  return mGetPropertyRecursive(me, proplist_source[propname], list_propnames)
+end
 
 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
@@ -1508 +1685 @@
 
 on mGetNextPowerOfTwo me, breite
+  powerList = mGetPowerOf2List(me)
+  retval = powerList.findPosNear(integer(breite))
+  return powerList[min(retval, powerList.count)]
+end
+
+-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
+
+on mGetNextLowerPowerOfTwo me, breite
+  powerList = mGetPowerOf2List(me)
+  if powerList.getPos(breite) > 0 then return breite
+  return powerList[max(1, powerList.findPosNear(integer(breite)) - 1)]
+end
+
+-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
+
+on mGetPowerOf2List me
   theGlobs = mGetGlobalList(me)
   gPowerList = theGlobs.getaprop(#gPowerList)
   if ilk(gPowerList) <> #list then
-    gPowerList = [2,4,8,16,32,64,128,256,512,1024]
+    gPowerList = [1,2,4,8,16,32,64,128,256,512,1024]
     gPowerList.sort()
     theGlobs[#gPowerList] = gPowerList
   end if
-  retval = gPowerList.findPosNear(integer(breite))
-  return gPowerList[min(retval, gPowerList.count)]
-end
-
--- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
-
-on mGetNextLowerPowerOfTwo me, breite
-  theGlobs = mGetGlobalList(me)
-  gPowerList = theGlobs.getaprop(#gPowerList)
-  if ilk(gPowerList) <> #list then
-    gPowerList = [1,2,4,8,16,32,64,128,256,512,1024] -- mac openGL only does 512
-    gPowerList.sort()
-    theGlobs[#gPowerList] = gPowerList
-  end if
-  if gPowerList.getPos(breite) > 0 then return breite
-  return gPowerList[max(1, gPowerList.findPosNear(integer(breite)) - 1)]
-end
-
-
+  return gPowerList
+end
 
 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
@@ -1632 +1808 @@
         mp = ""
       else
-      mp = the applicationpath
+        mp = the applicationpath
       end if
       if length(mp) < 1 then
@@ -1739 +1915 @@
   if delim = "\" then
     if length(thePath) > 1 then
-    if thePath.char[2] = ":" then
-      num = charToNum(thePath.char[1])
-      if (num > 64 and num < 91) or (num > 96 and num < 123) then
-        praef = thePath.char[1 .. 2]
-        delete char 1 to 2 of thePath
+      if thePath.char[2] = ":" then
+        num = charToNum(thePath.char[1])
+        if (num > 64 and num < 91) or (num > 96 and num < 123) then
+          praef = thePath.char[1 .. 2]
+          delete char 1 to 2 of thePath
+        else
+          praef = ""
+        end if
       else
         praef = ""
       end if
-    else
-      praef = ""
-    end if
     else
       praef = ""
@@ -1768 +1944 @@
       praef = ""
     end if
+    
+    ----------- now we want to strip the domain too, because there could be a : for the port
+    ----------- but : is one of the chars we want to translate, therefore we exclude the doamin also
+    if length(praef) > 0 then
+      
+      repeat with xy = 1 to 2
+        if char 1 of thePath = "/" then
+          praef = praef & "/"
+          delete char 1 of thePath
+        end if
+      end repeat
+      
+      domain = offset("/", thePath)
+      if domain = 0 then domain = length(thePath)
+      praef = praef & thePath.char[1 .. domain]
+      delete char 1 to domain of thePath
+    end if
+    ------------
     
   else
@@ -1898 +2092 @@
   if voidP(uebersetzung) then return mReplacePlaceHoldersInString(me, aString, variablesList)
   
-    currLang = call(#mGetPrefValue, [mGetXScript(#GetSetPrefs)], #gLanguage)
-    if voidP(currLang) then
-      currLang = theGlobs.getaprop(#gSprache)
-      if voidP(currLang) then currLang = 0
-      call(#mSetPrefValue, [mGetXScript(#GetSetPrefs)], #gLanguage, currLang)
-    end if
-    ind = currLang + 1
-    if ind > count(uebersetzung) then ind = 1
+  currLang = call(#mGetPrefValue, [mGetXScript(#GetSetPrefs)], #gLanguage)
+  if voidP(currLang) then
+    currLang = theGlobs.getaprop(#gSprache)
+    if voidP(currLang) then currLang = 0
+    call(#mSetPrefValue, [mGetXScript(#GetSetPrefs)], #gLanguage, currLang)
+  end if
+  ind = currLang + 1
+  if ind > count(uebersetzung) then ind = 1
   
   return mReplacePlaceHoldersInString(me, uebersetzung[ind], variablesList)
@@ -2035 +2229 @@
 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
 
+on mSymbolify me, any_var
+  any_var = string(any_var)
+  repeat while char 1 of any_var = "#"
+    delete char 1 of any_var
+  end repeat
+  any_var = mString2Symb(me, any_var)
+  return symbol(any_var)
+end
+
+-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
+
 on mString2Symb me, str
   
@@ -2043 +2248 @@
   end repeat
   
+  offs = offset(".", str)
+  repeat while offs > 0
+    put "_d_" into char offs of str
+    offs = offset(".", str)
+  end repeat
+  
+  offs = offset("-", str)
+  repeat while offs > 0
+    put "_b_" into char offs of str
+    offs = offset("-", str)
+  end repeat
+  
   if integerP(integer(str.char[1])) then put "n__" before str
   
@@ -2057 +2274 @@
     put " " into char offs to offs+2 of str
     offs = offset("_s_", str)
+  end repeat
+  
+  offs = offset("_d_", str)
+  repeat while offs > 0
+    put "." into char offs to offs+2 of str
+    offs = offset("_d_", str)
+  end repeat
+  
+  offs = offset("_b_", str)
+  repeat while offs > 0
+    put "-" into char offs to offs+2 of str
+    offs = offset("_b_", str)
   end repeat
   
@@ -2123 +2352 @@
 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
 
-
-
 on mUpperCase me, aString
   
@@ -2174 +2401 @@
   end if
   
-  -- pUPPERCASE = "ABCDEFGHIJKLMNOPQRSTUVWXYZZ¯Å¯Ä"&vA& "¯Ñ¯É¯Ö¯á¯â¯à¯ä¯ã¯ç¯å¯é¯è¯ë¯ì¯í¯î¯ñ¯ï¯ö¯ô‚Çš¯ú¯Ü¯òŒíŒÞ"
-  -- pLowercase = "abcdefghijklmnopqrstuvwxyz¯°¯†"&"¯¢"&"¯§¯£¯•¯ß¯©¯®¯™¯Ž¯¯š¯Æ¯Ø¯±¯Ž¯¯¥¯ð¯µ¯Š¯þ¯ª¯º¯¶¯ÞŒì¯ø"
-  pCaseLists.setaprop(#uppercase, ["A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z", "¯Å", "¯Ä", vA, "A", "¯Ñ", "¯É", "¯Ö", "¯á", "¯â", "¯à", "¯ä", "¯ã", "¯ç", "¯å", "¯é", "¯è", "¯ë", "¯ì", "¯í", "¯î", "¯ñ", "¯ï", "¯ö", "¯ô", "U", "¯ú", "¯Ü", "¯ò", "Œí", "ŒÞ"])
-  pCaseLists.setaprop(#lowercase, ["a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n", "o", "p", "q", "r", "s", "t", "u", "v", "w", "x", "y", "z", "¯°", "¯†", vA, "¯¢", "¯§", "¯£", "¯•", "¯ß", "¯©", "¯®", "¯™", "¯Ž", "¯", "¯š", "¯Æ", "¯Ø", "¯±", "¯Ž", "¯", "¯¥", "¯ð", "¯µ", "¯Š", "¯þ", "¯ª", "¯º", "¯¶", "¯Þ", "Œì", "¯ø"])
+  -- pUPPERCASE = "ABCDEFGHIJKLMNOPQRSTUVWXYZZÁÀ"&vA& "ÄÃÃ
+ÇÉÈÊËÍÌÎÏÑÓÒÔÖÕÚÙ€ÜÆØŒŞ"
+  -- pLowercase = "abcdefghijklmnopqrstuvwxyzáà "&"â"&"ÀãåçéÚêëíìîïñóòÎöõúùûÌÊÞœÿ"
+  pCaseLists.setaprop(#uppercase, ["A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z", "Á", "À", vA, "A", "Ä", "Ã", "Ã
+", "Ç", "É", "È", "Ê", "Ë", "Í", "Ì", "Î", "Ï", "Ñ", "Ó", "Ò", "Ô", "Ö", "Õ", "Ú", "Ù", "U", "Ü", "Æ", "Ø", "Œ", "Åž"])
+  pCaseLists.setaprop(#lowercase, ["a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n", "o", "p", "q", "r", "s", "t", "u", "v", "w", "x", "y", "z", "á", "à ", vA, "â", "À", "ã", "Ã¥", "ç", "é", "Ú", "ê", "ë", "í", "ì", "î", "ï", "ñ", "ó", "ò", "ÃŽ", "ö", "õ", "ú", "ù", "û", "ÃŒ", "Ê", "Þ", "œ", "ÿ"])
   
 end
@@ -2195 +2424 @@
       li = ["Montag","Dienstag","Mittwoch","Donnerstag","Freitag","Samstag","Sonntag"]
     "pt":
-      li = ["Segunda-feira","Ter¯ßa-feira","Quarta-feira","Quinta-feira","Sexta-feira","S¯°bado","Domingo"]
+      li = ["Segunda-feira","Terça-feira","Quarta-feira","Quinta-feira","Sexta-feira","Sábado","Domingo"]
     "fr":
       li = ["Lundi","Mardi","Mercredi","Jeudi","Vendredi","Samedi","Dimanche"]
     "es":
-      li = ["Lunes","Martes","Mi¯©rcoles","Jueves","Viernes","S¯°bado","Domingo"]
+      li = ["Lunes","Martes","Miércoles","Jueves","Viernes","Sábado","Domingo"]
     "it":
-      li = ["Luned¯š","Marted¯š","Mercoled¯š","Gioved¯š","Venerd¯š","Sabato","Domenica"]
+      li = ["Lunedì","Martedì","Mercoledì","Giovedì","Venerdì","Sabato","Domenica"]
     "nl":
       li = ["Maandag","Dinsdag","Woensdag","Donderdag","Vrijdag","Zaterdag","Zondag"]
@@ -2619 +2848 @@
   put RETURN & "" after str
   
-    put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" after str
+  put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" after str
   put RETURN & "-- xxxxxxxxxxxxxxxxxx put <html>, <title> and <body> tags around chunk in order to use it as html of a text member" after str
   put RETURN & "on mHTMLize me, str" after str
@@ -2656 +2885 @@
   return str
 end
+
+-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
+
+on getReferenceString me
+  return "xscr()"
+end