Changeset 18 for trunk/lingosource/castlib2/ButtonManagerHost.ls

Timestamp:

10/24/08 12:12:09 (4 years ago)

Author:

alex

Message:

updated movie to incorporate new version of library scripts

File:

• trunk/lingosource/castlib2/ButtonManagerHost.ls (modified) (3 diffs)

trunk/lingosource/castlib2/ButtonManagerHost.ls

@@ -1 @@
--- Button Behavior by Alex da Franca ©2003 da.Franca@online.de
+-- Button Behavior by Alex da Franca c2003 da.Franca@online.de
 --------------------------------------------------------------------
 
@@ -83 +83 @@
 on beginSprite me
   
-  --  includes = (mGetAleXtras()).getaprop(#scripts)
-  --  
-  --  ancestor = rawnew(includes.getaprop(#ButtonManager))
-  
   
   scr = mGetXScript(#ButtonManager)
   
-  if voidP(scr) then exit
+  if listP(scr) then exit
+  if ilk(scr) = #script then ancestor = rawnew(scr)
+  else ancestor = rawnew(scr.script)
   
-  ancestor = rawnew(scr)
   
   callAncestor(#new, me)
@@ -137 +134 @@
   liste = [:]
   
-  --  includes = (mGetAleXtras()).getaprop(#scripts)
-  --  if voidP(includes) then
-  --    li = mGetAleXtras()
-  --    includes = [:]
-  --    li.setaprop(#scripts, includes)
-  --  end if
-  cmonm = mGetXScript(#commonmoviescript)
-  if not voidP(cmonm) then fontliste = call(#InitFonts, [cmonm])
+  cmonm = mGetXScript()
+  if not voidP(cmonm) then fontliste = call(#InitFonts, cmonm)
   
   if not listP(fontliste) then fontliste = ["Arial"]