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

trunk/lingosource/castlib2/newResizableStageBehavior.ls

@@ -1 +1 @@
 -- xxxx reposition or resize sprites for scalable movies
 -- New Version -> more simple -> just takes relative values for distances to the screen bound
--- Alex da Franca ©2002  da.franca@online.de
+-- Alex da Franca c2002  da.franca@online.de
 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
 
@@ -15 +15 @@
 property pPreserveAspect
 property pCurrentRect
+
+property pResizeListenerList
 
 on beginsprite me
@@ -20 +22 @@
   pOldrect = pKanal.rect
   pCurrentRect = duplicate(pOldrect)
+  
+  pResizeListenerList = []
   
   pCenterV = 0
@@ -67 +71 @@
 
 on endsprite me
+  pResizeListenerList = []
   theMember = pKanal.member
   if theMember.type = #text then
@@ -91 +96 @@
   retlist[#pPreserveAspect] = [#format:#boolean, #default:0, #comment:"Preserve initial aspect ratio when scaling:"]
   return retlist
+end
+
+-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
+
+on RegisterForResizeEvent me, listenerList
+  
+  if not(objectP(listenerList)) then return 0
+  if not(symbolP(listenerList[#handler])) then return 0
+  theTarget = listenerList[#target]
+  if not(objectP(theTarget)) then return 0
+  
+  UnRegisterForResizeEvent me, theTarget
+  
+  pResizeListenerList.add(listenerList)
+  
+end
+
+-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
+
+on UnRegisterForResizeEvent me, atarget
+  repeat with n = count(pResizeListenerList) down to 1
+    if pResizeListenerList[n][#target] = atarget then
+      pResizeListenerList.deleteAt(n)
+      exit repeat
+    end if
+  end repeat
+end
+
+-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
+
+on mSendResizeEventToListeners me, newRect, oldRect
+  repeat with n = count(pResizeListenerList) down to 1
+    if objectP(pResizeListenerList[n][#target]) then
+      pResizeListenerList[n][#newRect] = newRect
+      pResizeListenerList[n][#oldRect] = oldRect
+      call(pResizeListenerList[n][#handler], [pResizeListenerList[n][#target]], pResizeListenerList[n])
+    else
+      pResizeListenerList.deleteAt(n)
+    end if
+  end repeat
 end
 
@@ -195 +240 @@
       pCurrentRect = newR    
     end if
+    
     sendSprite(me.spritenum, #mRefreshSpriteRectAfterStageChange, newR, r)
+    
+    mSendResizeEventToListeners me, newR, r
     
   end if
@@ -290 +338 @@
   mRefreshResizeTargetRect me, newRect
 end
+
 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx