home *** CD-ROM | disk | FTP | other *** search
/ Club KidSoft Volume 3 #2 / CKSPCV32.BIN / movies / clubroom.dir / 00002_Script_clsObject < prev    next >
Text File  |  1995-04-03  |  174b  |  13 lines
  1. property objType
  2.  
  3. on birth me
  4.   global gClassType
  5.   set objType = gClassType
  6.   set gClassType to gClassType + 1
  7.   
  8.   return me
  9. end
  10.  
  11. on IsA me
  12.   return objType
  13. end