home *** CD-ROM | disk | FTP | other *** search
/ The CDPD Public Domain Collection for CDTV 1 / CDPD_Vol1.bin / pd / 026-050 / 037 / prelude / class.st < prev    next >
Text File  |  1992-06-23  |  1KB  |  50 lines
  1. Class Class
  2. [
  3.     edit
  4.         <primitive 150 self>
  5. |
  6.     list
  7.         <primitive 157 self>
  8. |
  9.      new        | superclass newinstance |
  10.         superclass <- <primitive 151 self>.
  11.         <primitive 3 superclass >
  12.             ifTrue: [newinstance <- superclass new ]. 
  13.         newinstance <- <primitive 153 self newinstance >.
  14.         <primitive 155 self #new > 
  15.             ifTrue: [newinstance <- newinstance new].
  16.         ^ newinstance
  17. |
  18.      new: aValue         | superclass newinstance |
  19.         superclass <- <primitive 151 self>.
  20.         <primitive 3 superclass >
  21.             ifTrue: [newinstance <- superclass new ]. 
  22.         newinstance <- <primitive 153 self newinstance >.
  23.         <primitive 155 self #new: > 
  24.             ifTrue: [newinstance <- newinstance new: aValue ].
  25.         ^ newinstance
  26. |
  27.      printString
  28.         ^ <primitive 152 self >
  29. |
  30.     respondsTo
  31.         <primitive 154 self>
  32. |
  33.     respondsTo: aSymbol        | aClass |
  34.         aClass <- self.
  35.         [aClass notNil] whileTrue:
  36.             [ <primitive 155 aClass aSymbol> ifTrue: [ ^ true ].
  37.              aClass <- aClass superClass ].
  38.         ^ false
  39. |
  40.     superClass
  41.         ^ <primitive 151 self>
  42.  
  43. |
  44.     variables
  45.         ^ <primitive 158 self>
  46. |
  47.     view
  48.         <primitive 156 self>
  49. ]
  50.