The Trunk: System-cmm.341.mcz

Chris Muller uploaded a new version of System to project The Trunk:
http://source.squeak.org/trunk/System-cmm.341.mcz

==================== Summary ====================

Name: System-cmm.341
Author: cmm
Time: 21 June 2010, 1:31:45.651 pm
UUID: 5368255e-7e92-425a-a591-c42ade744d69
Ancestors: System-ar.340

Fixed 'revert to previous version' of class-side methods menu.

=============== Diff against System-ar.340 ===============

Item was changed:
  ----- Method: ChangeRecord>>methodClass (in category 'access') -----
+ methodClass
+ | methodClassName methodClass |
+ type == #method ifFalse: [ ^ nil ].
+ methodClassName := class subStrings
+ ifEmpty: [ ^ nil ]
+ ifNotEmptyDo:
+ [ : parts | parts first asSymbol ].
+ (Smalltalk globals includesKey: methodClassName) ifFalse: [ ^ nil ].
+ methodClass := Smalltalk at: methodClassName.
+ ^ meta
+ ifTrue: [ methodClass class ]
+ ifFalse: [ methodClass ]!
- methodClass
- | methodClass |
- type == #method ifFalse: [^ nil].
- (Smalltalk globals includesKey: class asSymbol) ifFalse: [^ nil].
- methodClass := Smalltalk at: class asSymbol.
- meta ifTrue: [^ methodClass class]
- ifFalse: [^ methodClass]!