PopUp Menu Behavior

 

Compatibilities:

This item has not yet been rated

Popup behavior.

-- Popup Text Menu behavior.  © Zav "1997 property pActiveSprite, pPopupCastName on mouseDown me   set pPopupCastName = "fonts"   PopupMouseDown me   return end on PopupMouseDown me --popupCastName   --  put the clickon   set lastChar = the number of chars in field pPopupCastName + 1   set mySprite = the spriteNum of me   set pActiveSprite = mySprite   set myCast = the castnum of sprite mySprite   puppetsprite mySprite, 1   set the castnum of sprite mySprite = the number of cast pPopupCastName   updatestage   hilite line the mouseline of field pPopupCastName   set myLine = the mouseline   -- highlight detection. Thanks Mark Shepherd   repeat while the mouseDown     if mySprite > 0 then       if rollover(mySprite) then         if myLine <<> the mouseLine  then           set myLine = the mouseline           if myLine > 0 then hilite line myLine of field pPopupCastName         end if       else         if myLine <<> 0 then           set myLine = 0           hilite char lastChar of field pPopupCastName         end if       end if             end if   end repeat   -- here we handle what to do on  mouseUp   set the castnum of sprite pActiveSprite = myCast   puppetsprite pActiveSprite, 0   updatestage   if myLine > 0 then     -- insert stuff here to do things on mouse up   end if end on DoDelay seconds   set now = the timer   startTimer   repeat while now + seconds * 60 > the timer   end repeat end on GetBehaviorDescription   return "Turns what you mousedown on into a text popup menu.   Fun for the whole family.  The text member to use as the popup list is specified in pPopupCastName in the MouseDown handler - Zav" end