home *** CD-ROM | disk | FTP | other *** search
/ GameStar 1998 November (Bonus) / GAMESTAR11B.ISO / ENCYC99 / MM / T620275A.DCR / Scripts_36_Class InfoBox.ls < prev    next >
Encoding:
Text File  |  1998-06-29  |  350 b   |  21 lines
  1. property copyList, ScrollBar
  2.  
  3. on showInfo me, xEvent
  4.   changeCopy(me, getAt(copyList, xEvent))
  5. end
  6.  
  7. on new me, xScrollBar
  8.   set ScrollBar to xScrollBar
  9.   set copyList to []
  10.   return me
  11. end
  12.  
  13. on addThing me, xString
  14.   add(copyList, member (xString && "copy"))
  15.   return count(copyList)
  16. end
  17.  
  18. on changeCopy me, xMember
  19.   newMember(ScrollBar, xMember)
  20. end
  21.