Changeset 241 for trunk/lingosource/castlib2/aleXtrasMovieScript.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/aleXtrasMovieScript.ls (modified) (5 diffs)

trunk/lingosource/castlib2/aleXtrasMovieScript.ls

@@ -2 +2 @@
 ---------------------------------------------------------------------
 -- CREATED:
---              2005
+-- 2005
 --
 -- PROPERTIES:
@@ -158 +158 @@
   --         TODO: -
   -----------------------------------
+  
   exit
   
-  
-  mediaList = mGetAleXtras()
-  
-  theScripts = mediaList.getaprop(#scripts)
-  if ilk(theScripts) <> #proplist then
-    theScripts = [:]
-    mediaList.setaprop(#scripts, theScripts)
-  end if
-  
-  if voidP(cls) then
-    cls = []
-    cl = the number of castlibs
-    repeat with n = 1 to cl
-      cls.add(n)
-    end repeat
-  end if
-  
-  if not listP(cls) then
-    cls = [cls]
-  end if
-  
-  cl = count(cls)
-  repeat with n = 1 to cl
-    thisCL = castlib(cls[n])
-    if not voidP(thisCL) then
-      clnum = thisCL.number
-      num = the number of members of castlib clnum
-      repeat with m = 1 to num
-        mem = member(m,clnum)
-        if length(mem.name) > 0 then
-          if mem.type = #script then
-            theScripts.setaProp(symbol(mem.name), mem.script)
-          end if
-        end if
-      end repeat
-    end if
-  end repeat
-  
-end
-
-
--- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
-
-on mLoadXScript whichName
-  
-  exit
-  
-  
-  whichName = string(whichName)
-  if length(whichName) < 1 then return 0
-  scr = member(whichName)
-  if ilk(scr) <> #member then return 0
-  if scr.type <> #script then return 0
-  
-  scr = script(whichName)
-  
-  mediaList = mGetAleXtras()
-  
-  theScripts = mediaList.getaprop(#scripts)
-  if ilk(theScripts) <> #proplist then
-    theScripts = [:]
-    mediaList.setaprop(#scripts, theScripts)
-  end if
-  theScripts.setaProp(symbol(whichName), scr)
-  
-  return scr
+  -- deprecated handler
+  -- only here for bakcward compatibility
+  -- the system is now built to load scripts only on demand
+  -- exception is mLoadScriptsFromLDM() which needs to grab all scripts
+  -- from the ldm and uses them.
+  -- be aware of the fact, that rawnew() is used on these scripts, so the ones of the LDM
+  -- won't have their new() handler called. I take care about that for you, though...
+  
+end
+
+
+-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
+
+on mLoadXScript whichName, dontCallDestroyHandler
+  -- overload a script, e.g. after changing at during the movie runs
+  
+  if not(symbolP(whichName)) then whichName = symbol(whichName)
+  if voidP(dontCallDestroyHandler) then dontCallDestroyHandler = 1
+  xscr().mDeleteInstance(whichName, dontCallDestroyHandler)
+  
+  return xscr(whichName)
   
 end
@@ -233 +189 @@
 on mLoadScriptsFromLDM whichSprite
   
-    includes = [:]
+  includes = [:] 
   
   tell sprite(whichSprite)
@@ -280 +236 @@
   
   exit
-  ------------------------------
+  ------------------------------ deprecated:
   
   mediaList = mGetAleXtras()
@@ -317 +273 @@
 
 on mListAleXtras
-  put "Handler mListAleXtras deprecated"
+  
+  put "This handler used to put the alextras scripts only, now it puts all singletons instead"
+  
+  globs = xscr().mGetGlobalList()
+  incl = globs[#gParentScriptInstances]
+  if not(objectP(incl)) then
+    put "No scriptinstances stored"
   exit
-  
-  alextras = (script "aleXtrasMovieScript").pAleXtras
-  if voidP(alextras) then mLoadScripts
-  scripts = (mGetAleXtras()).getaprop(#scripts)
-  anz = count(scripts)
+  end if
+  
+  anz = count(incl)
   repeat with n = 1 to anz
-    put RETURN & "scr = mGetXScript(#"&scripts.getPropAt(n)&")" & RETURN
+    put RETURN & "scr = mGetXScript(#"&incl.getPropAt(n)&")" & RETURN
   end repeat
   put RETURN & "put scr.handlers()" & RETURN
-  put RETURN & "put scr.interface()" & RETURN
+  put RETURN & "put call(#interface, [scr])" & RETURN
 end