Changeset 18 for trunk/lingosource/castlib2/ToolTipBeaver_1Host.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/ToolTipBeaver_1Host.ls (modified) (2 diffs)

trunk/lingosource/castlib2/ToolTipBeaver_1Host.ls

@@ -1 +1 @@
 -- ToolTip Behavior
--- by Alex da Franca ©2001   da.franca@online.de
+-- by Alex da Franca c2001   da.franca@online.de
 -- drag this behavior onto any sprite with the provided "ttimageSave" bitmap member
 -- customize the background color and the frame color of the tooltip by altering "ttimageSave"
@@ -53 +53 @@
 on beginsprite me
   
-  includes = (mGetAleXtras()).getaprop(#scripts)
-  
-  ancestor = rawnew(includes.getaprop(#ToolTipBeaver_1))
+  scr = xscr(#ToolTipBeaver_1)
+  if listP(scr) then exit
+  if ilk(scr) = #instance then scr = scr.script
+  ancestor = rawnew(scr)
   callAncestor(#new, me)