home *** CD-ROM | disk | FTP | other *** search
/ Ultra Gameplayers 109 / Ultra Gameplayers 109.iso / pc / media / new_ugp.dxr / 00226.ls < prev    next >
Encoding:
Text File  |  1998-02-10  |  721 b   |  22 lines
  1. on ClickDownButton menuObj, params
  2.   set button to BasicButton(menuObj, params)
  3.   set spritenum to getAt(getProp(params, #hotSprites), 1)
  4.   addProp(params, #spritenum, spritenum)
  5.   put "ClickDownButton:" && getaProp(params, #downMember)
  6.   addProp(params, #animCastList, [getaProp(params, #downMember)])
  7.   AddDown(button, NewObject(button, "Member Replacement Class", params))
  8.   return button
  9. end
  10.  
  11. on BasicButton menuObj, params
  12.   set button to NewObject(menuObj, "Generic Hotspot Class", params)
  13.   append(the hotspotList of menuObj, button)
  14.   return button
  15. end
  16.  
  17. on BasicTimer menuObj, params
  18.   set newOne to NewObject(menuObj, "Generic Timer Class", params)
  19.   append(the eventList of menuObj, newOne)
  20.   return newOne
  21. end
  22.