|
Since the AST is not changing much, we can really avoid to recompute all the time
for: aClass ^(self subclassesForNode: aClass) collect: [:each |each new]
subclassesForNode: aClass "all menu defitions define in which ast nodes they are interested by defining #nodes. Subclass relationship is taken into account" ^self allSubclasses select: [:suggestionClass | suggestionClass nodes anySatisfy: [:class | aClass == class or: [aClass inheritsFrom: class]]]
|
|
|
Priority: 5 – Fix If Time
|
|
Status: Work Needed
|
|
Assigned to: Everyone
|
|
Milestone: Later
|
Go to Case
|
|