Comment #1 on issue 4567 by
[hidden email]: Ring fix
http://code.google.com/p/pharo/issues/detail?id=4567Hi veronica
I was reading your change in
ClassDescription>>definition
aStream cr; tab; nextPutAll: 'category: ';
store: self category asString.
replaced by
store: (self environment organization categoryOfElement: self name)
asString.
and I'm wondering why this is needed? Because I was thinking that I would
prefer to have category fixed. Now category
Class>>category
"Answer the system organization category for the receiver. First check
whether the
category name stored in the ivar is still correct and only if this fails
look it up
(latter is much more expensive)"
| result |
self basicCategory ifNotNil: [ :symbol |
((self environment organization listAtCategoryNamed: symbol) includes:
self name)
ifTrue: [ ^symbol ] ].
self basicCategory: (result := self environment organization
categoryOfElement: self name).
^result
_______________________________________________
Pharo-bugtracker mailing list
[hidden email]
http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-bugtracker