home *** CD-ROM | disk | FTP | other *** search
/ Spawn Figure Collection / spawn collection cd.iso / setup / data1.cab / Program_Executable_Files / Collection.dir / 00010_Series Script.ls < prev    next >
Encoding:
Text File  |  1998-01-19  |  269 b   |  18 lines
  1. property pseries, ltitle
  2.  
  3. on birth me
  4.   set ltitle to []
  5.   set pseries to EMPTY
  6.   add(ltitle, birth(script "Title Script"))
  7.   return me
  8. end
  9.  
  10. on addtitle me
  11.   add(ltitle, birth(script "Title Script"))
  12.   return me
  13. end
  14.  
  15. on setseries me, series
  16.   set pseries to series
  17. end
  18.