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!
  52
  53 "methods"
  54
  55 Behavior method!
  56 addSelector: aSymbol withMethod: aMethod
  57         methodDictionary at: aSymbol put: aMethod!
  58
  59 Behavior method!
  60 removeSelector: aSymbol
  61         methodDictionary removeKey: aSymbol!
  62
  63 Behavior method!
  64 selectors
  65         ^ methodDictionary keys!
  66
  67 Behavior method!
  68 allSelectors
  69         | class selectors |
  70
  71         selectors := Set new.
  72
  73         class := self.
  74         [class ~~ nil]
  75                 whileTrue:
  76                         [selectors includeAll: class selectors.
  77                          class := class superclass].
  78
  79         ^ selectors!
  80
  81 Behavior method!
  82 hasMethods
  83         ^ methodDictionary isEmpty not!
  84
  85 Behavior method!
  86 includesSelector: aSymbol
  87         ^ methodDictionary includes: aSymbol!
  88
  89 Behavior method!
  90 canUnderstand: aSymbol
  91         | class |
  92
  93         class := self.
  94         [class ~~ nil]
  95                 whileTrue:
  96                         [(methodDictionary includesKey: aSymbol) ifTrue: [^ true].
  97                          class := class superclass].
  98
  99         ^ false!
 100
 101 Behavior method!
 102 inheritsFrom: aClass
 103         | class |
 104
 105         class := self.
 106         [class ~~ nil]
 107                 whileTrue:
 108                         [class == aClass ifTrue: [^ true].
 109                          class := class superclass].
 110
 111         ^ false!
 112
 113
 114 "compilation"
 115
 116 Behavior method!
 117 compile: aString
 118         <primitive: 'Behavior_compile'>
 119         self error: 'could not compile code'!
 120
 121 "printing"
 122
 123 Behavior method!
 124 printOn: aStream
 125         aStream nextPutAll: self name!
 126
 127
 128