st/Behavior.st

   1
   2 "instance creation"
   3
   4 Behavior method!
   5 new
   6         ^ self basicNew initialize!
   7
   8 Behavior method!
   9 new: size
  10         ^ (self basicNew: size) initialize!
  11
  12 Behavior method!
  13 basicNew
  14         <primitive: 'Behavior_new'>
  15         self primitiveFailed!
  16
  17 Behavior method!
  18 basicNew: anInteger
  19         <primitive: 'Behavior_newSize'>
  20         self primitiveFailed!
  21
  22
  23 "accessing"
  24
  25 Class method!
  26 name
  27         ^ name!
  28
  29 Metaclass method!
  30 name
  31         ^ instanceClass name, ' class'!
  32
  33 Behavior method!
  34 format
  35         ^ format!
  36
  37 Behavior method!
  38 superclass
  39         ^ superclass!
  40
  41 Behavior method!
  42 instanceSize
  43         ^ instanceSize!
  44
  45 Behavior method!
  46 methodDictionary
  47         ^ methodDictionary!
  48
  49 Behavior method!
  50 instanceVariableNames
  51         ^ instanceVariableNames!