I add a number of facilities to basic Behaviors:
Named instance variables
Category organization for methods
The notion of a name of this class (implemented as subclass responsibility)
The maintenance of a ChangeSet, and logging changes on a file
Most of the mechanism for fileOut.
I am an abstract class, in particular, my facilities are intended for inheritance by two subclasses, Class and Metaclass.
The slot 'subclasses' that is defined here is only used in Class, not in Metaclass. This is due to history and, at some point, the slot should bemoved down to Class.
"Return the comment entered for selector."
"SmallInterfaces: ##modified for Squeak -M.U. 6/23/1999 23:35"
| cm comments |
cm := (self compiledMethodAt: selector ifAbsent: [^'']).
comments := (Parser new) parseMethodComment: cm getSourceFromFile setPattern: [:x |]. "M.U. 6/23/1999 23:35"
ifTrue: [comments first]
ifTrue: [:sym | ^self organization listAtCategoryNamed: sym].
- made by Dandelion -