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

Timestamp:

12/18/09 15:27:43 (2 years ago)

Author:

alex

Message:

enclosed path to svn application and editor application in quotes, because that fails otherwise, if the path has spaces. what a fun it is to be able to have spaces in file and foldernames... :-(

File:

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

trunk/lingosource/castlib2/commonMovieScript.ls

@@ -198 +198 @@
   
   --  clearglobals
+end
+
+-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
+
+on mGetPlayBackModeValue me, symbol_Prop
+  if ilk(symbol_Prop) <> #symbol then symbol_Prop = #playBackMode
+  playBackModeValueList = mGetGlobalValue(me, #playBackModeValueList)
+  if not(objectP(playBackModeValueList)) then playBackModeValueList = [:]
+  return playBackModeValueList[symbol_Prop]
+end
+
+-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
+
+on mSetPlayBackModeValue me, symbol_Prop, any_value
+  if ilk(symbol_Prop) <> #symbol then exit
+  playBackModeValueList = mGetGlobalValue(me, #playBackModeValueList)
+  if not(objectP(playBackModeValueList)) then
+    playBackModeValueList = [:]
+    mSetGlobalValue(me, #playBackModeValueList, playBackModeValueList)
+  end if
+  return playBackModeValueList[symbol_Prop] = any_value
 end
 
@@ -296 +317 @@
 
 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
+
+-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
+
+on mGetEnvironment me
+  -----------------------------------
+  --         CREATED: 18.05.2009
+  --         ACTION: Getting the environment properts list is very slow,
+  --                 therefore we make sure to get it only once and store the rsult
+  --         INPUT: -
+  --         RETURNS: property list => the environment
+  -----------------------------------
+  
+  env = mGetGlobalValue(me, #theEnvironment)
+  if not(objectP(env)) then
+    
+    if the runmode contains "aut" then
+      -- there is a really lame bug in the mac version
+      -- where querying the environment takes ages!
+      -- now it is only the first call, therefore we save the result
+      -- and in authoring we even save it in a global, so that we
+      -- do not have to wait on each moviestart!
+      global gLameAuthoringHack_forSlowEnvironment_onMac
+      if not(objectP(gLameAuthoringHack_forSlowEnvironment_onMac)) then
+        gLameAuthoringHack_forSlowEnvironment_onMac = the environment
+      end if
+      env = gLameAuthoringHack_forSlowEnvironment_onMac
+    else
+    env = the environment
+    end if
+    
+    mSetGlobalValue(me, #theEnvironment, env)
+  end if
+  return env
 end
 
@@ -333 +388 @@
   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 (mGetEnvironment(me)).osversion)) <= 5
       if onX then gPlatform = #osx
       else gPlatform = #os9
@@ -480 +535 @@
 end
 
+-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
+on ____PROCESS_CALLBACK_EVENTS
+end
+-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
+
+on mDoCallBack me, callbackObject, p1, p2, p3
+  -----------------------------------
+  -- CREATED: 22.07.2009
+  -- ACTION: This is the standard way to send callback events to callbackObjects of the format:
+  --             [#handler:symbol, #target:object]
+  --             NOTE: If the #handler property is NOT a symbol, then it is considered a special case
+  --                   where the result will simply be "put" into the message window => suited for debugging
+  -- 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
+  --         <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
+  --             an errorstring is returned and the callback was NOT successfully called.
+  -- EXAMPLE: xscr().mDoCallBack(callBackObject)
+  -----------------------------------
+  
+  if not(objectP(callbackObject)) then return "Wrong paramater, callbackObject is not an object!"
+  
+  hnd = callbackObject[#handler]
+  if not(symbolP(hnd)) then
+    put "Script 'commonMovieScript': Handler 'mDoCallBack':"
+    put "---------------------------"
+    put "callbackObject:" && callbackObject
+    put "------"
+    put "p1:" && p1
+    put "------"
+    put "p2:" && p2
+    put "------"
+    put "p3:" && p3
+    put "---------------------------"
+    return "callbackObject[#handler] is not a symbol"
+  end if
+  
+  tgt = callbackObject[#target]
+  case ilk(tgt) of
+    #script, #instance:
+      call(hnd, [tgt], callbackObject, p1, p2, p3)
+    #list, #proplist:
+      if count(tgt) = 0 then
+        put "Script 'commonMovieScript': Handler 'mDoCallBack':"
+        put "---------------------------"
+        put "callbackObject:" && callbackObject
+        put "------"
+        put "p1:" && p1
+        put "------"
+        put "p2:" && p2
+        put "------"
+        put "p3:" && p3
+        put "---------------------------"
+      else
+      call(hnd, tgt, callbackObject, p1, p2, p3)
+      end if
+      
+    otherwise:
+      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)
+  end case
+  
+  return 1
+end
 
 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
@@ -621 +744 @@
     mDebugImage me, str, overwrite, dername
   else
-    if overwrite = 64 then put str
+    if the runmode contains "aut" then
+      if overwrite = 64 then
+        put str
+      else
+        if debugFlags.getPos(1) then
+          put str
+        end if
+      end if
+    end if
   end if
   
@@ -634 +765 @@
   if voidP(dername) then dername = "DebugImg"
   
-  if overwrite then
+  if overwrite = 1 then
     neuer = member(dername)
     if mGetMemType(me, neuer) <> #bitmap then overwrite = 0
@@ -655 +786 @@
     f.name = "debuginfotextmember"
   end if
+  
+  if mGetVersionNumber(me) > 11 then
+    oldscrolltop = f.scrolltop
+    if oldscrolltop > f.height - f.pageheight - f.lineheight then
+      oldscrolltop = #unten
+    end if
+  end if
+  
   altertext = f.text
   if the number of lines of altertext > 500 then put line 300 to 500 of altertext into field "debuginfotextmember"
   put "------------------------"&RETURN&RETURN & str & return after field "debuginfotextmember"
+  
+  if not voidP(oldscrolltop) then
+    if oldscrolltop = #unten then
+      f.scrolltop = f.height - f.pageheight + f.lineheight
+    else
+      f.scrolltop = oldscrolltop
+    end if
+  end if
 end
 
@@ -812 +959 @@
   -- comment here to use a *real* global:
   
+  if not the runmode contains "aut" then return ["Arial"] -- just to be safe
+  -- this handler should not be called anymore in runtime
+  -- as mGetAFont() doesn't call it anymore
+  -- the lame reason is:
+  -- the new D11 player fucked up the unsupported function FontList()
+  -- :-( SHAME!
+  
   -- faked global:
   globs = mGetGlobalList(me)
@@ -934 +1088 @@
 -- if that fails also, takes the first installed font of the list of installed fonts
 on mGetAFont me, theFont
+  
+  return theFont -- :-( the unsupported fontlist() method of font members now can crash the browser - tolle wurst!
+  
+  
   fontliste = InitFonts(me)
   if not (fontliste).getPos(theFont) then
@@ -1353 +1511 @@
   gPowerList = theGlobs.getaprop(#gPowerList)
   if ilk(gPowerList) <> #list then
-    gPowerList = [2,4,8,16,32,64,128,256,512] --,1024]
+    gPowerList = [2,4,8,16,32,64,128,256,512,1024]
     gPowerList.sort()
     theGlobs[#gPowerList] = gPowerList
@@ -1367 +1525 @@
   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 = [1,2,4,8,16,32,64,128,256,512,1024] -- mac openGL only does 512
     gPowerList.sort()
     theGlobs[#gPowerList] = gPowerList
@@ -1433 +1591 @@
 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
 
-
--- convert a relative path to an absolute path:
+on mConvertAbsolutePathToRelative me, aPath, newDelim, anAbsoluteBasedir
+  
+  anAbsoluteBasedir = string(anAbsoluteBasedir)
+  if length(anAbsoluteBasedir) < 1 then anAbsoluteBasedir = the moviepath
+  if length(anAbsoluteBasedir) < 1 then return ""
+  
+  delim = the last char of the moviepath
+  if length(delim) < 1 then delim = the last char of the applicationpath
+  
+  newDelim = string(newDelim)
+  if length(newDelim) < 1 then newDelim = delim
+  
+  offs = offset(anAbsoluteBasedir, aPath)
+  if offs <> 1 then
+    put "Script:commonMovieScript; Handler:mConvertAbsolutePathToRelative; The path:" &&QUOTE& aPath &QUOTE&& "is not inside the current path specified" &&QUOTE& anAbsoluteBasedir &QUOTE
+    return ""
+  end if
+  delete char 1 to length(anAbsoluteBasedir) of aPath
+  if delim = newDelim then return aPath
+  
+  offs = offset(delim, aPath)
+  repeat while offs > 0
+    put newDelim into char offs of aPath
+    offs = offset(delim, aPath)
+  end repeat
+  
+  return aPath
+end
+
+-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
+
+-- convert a relative path to an absolute path: (Sorry, the name of this handler couldn't be more stupid ;-)
 on mGetRelativePath me, aPath, mp -- mp optional: default = the moviepath
   
@@ -1461 +1649 @@
     delim =  the last char of the moviepath
     if length(delim) < 1 then
-      
       if the runmode contains "plug" then
-        mp = ""
+        --        delim = ""
       else
         delim = the last char of the applicationpath
       end if
-      
-      
       if length(delim) < 1 then delim = "/"
     end if
@@ -1708 +1893 @@
   theGlobs = mGetGlobalList(me)
   uebersetzungsListe = theGlobs.getaprop(#gUebersetzung)
-  if ilk(uebersetzungsListe) <> #proplist then return aString
+  if ilk(uebersetzungsListe) <> #proplist then return mReplacePlaceHoldersInString(me, aString, variablesList)
+  
   uebersetzung = uebersetzungsListe.getaprop(aString)
-  if voidP(uebersetzung) then
-    if listP(variablesList) then return mReplacePlaceHoldersInString(me, aString, variablesList)
-    return aString
-  else
+  if voidP(uebersetzung) then return mReplacePlaceHoldersInString(me, aString, variablesList)
+  
     currLang = call(#mGetPrefValue, [mGetXScript(#GetSetPrefs)], #gLanguage)
     if voidP(currLang) then
@@ -1722 +1906 @@
     ind = currLang + 1
     if ind > count(uebersetzung) then ind = 1
-    return uebersetzung[ind]
-  end if
+  
+  return mReplacePlaceHoldersInString(me, uebersetzung[ind], variablesList)
 end
 
@@ -1729 +1913 @@
 
 on mReplacePlaceHoldersInString me, aString, variablesList
-  if ilk(variablesList) = #proplist then
+  theIlk = ilk(variablesList)
+  if theIlk = #proplist then
     cnt = count(variablesList)
     if cnt > 0 then
@@ -1744 +1929 @@
       end repeat        
     end if
-  else if ilk(variablesList) = #list then -- printf like replacement
+  else if theIlk = #list then -- printf like replacement
     if count(variablesList) > 0 then
       offs = offset("%s", aString)
@@ -1751 +1936 @@
         put str into char offs to offs + 1 of aString
         if count(variablesList) > 1 then variablesList.deleteAt(1)
+        str = string(variablesList[1])
         offs = offset("%s", aString)
       end repeat
@@ -1988 +2174 @@
   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
@@ -2011 +2197 @@
       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"]