The Trunk: Kernel-eem.887.mcz

Previous Topic Next Topic
 
classic Classic list List threaded Threaded
1 message Options
Reply | Threaded
Open this post in threaded view
|

The Trunk: Kernel-eem.887.mcz

commits-2
Eliot Miranda uploaded a new version of Kernel to project The Trunk:
http://source.squeak.org/trunk/Kernel-eem.887.mcz

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

Name: Kernel-eem.887
Author: eem
Time: 27 November 2014, 1:19:50.961 pm
UUID: 888d2632-2d0a-49dd-b83a-b5aceb2c939d
Ancestors: Kernel-eem.886

A few more cases in COntextPart where objectClass:
should be used instead of class to avoid proxy issues.

=============== Diff against Kernel-eem.886 ===============

Item was changed:
  ----- Method: ContextPart>>methodClass (in category 'debugger access') -----
  methodClass
  "Answer the class in which the receiver's method was found."
 
+ ^self method methodClass ifNil: [self objectClass: self receiver].!
- ^self method methodClass ifNil:[self receiver class].!

Item was changed:
  ----- Method: ContextPart>>print:on: (in category 'debugger access') -----
  print: anObject on: aStream
+ "Safely print anObject in the face of direct ProtoObject subclasses."
+ | objClass title |
+ objClass := self objectClass: anObject.
+ (objClass canUnderstand: #printOn:) ifTrue:
+ [^anObject printOn: aStream].
+ title := objClass name.
- "Safely print anObject in the face of direct ProtoObject subclasses"
- | title |
- (anObject class canUnderstand: #printOn:)
- ifTrue:[^anObject printOn: aStream].
- title := anObject class name.
  aStream
  nextPutAll: (title first isVowel ifTrue: ['an '] ifFalse: ['a ']);
  nextPutAll: title!

Item was changed:
  ----- Method: ContextPart>>selectorCategory (in category 'accessing') -----
  selectorCategory
+ "Answer the category to which this message belongs (relative to the receiver).
+ If no superclass categorises this message, use the default."
+ | rcvrClass organizers |
+ rcvrClass := self objectClass: self receiver.
+ organizers := rcvrClass withAllSuperclasses collect: [:ea | ea organization].
+ organizers addFirst: rcvrClass organization.
+ ^(organizers collect: [ :org | org categoryOfElement: self selector])
+ detect: [:ea | ea ~= ClassOrganizer default and: [ea ~= nil]]
- "Return the category to which this message belongs (relative to the receiver). If no superclass categorises this message, use the default."
- | organizers |
- organizers := self receiver class withAllSuperclasses collect: [:ea | ea organization].
- organizers addFirst: self receiver class organization.
- ^ (organizers collect: [ :org | org categoryOfElement: self selector])
- detect: [:ea | ea ~= ClassOrganizer default and: [ ea ~= nil]]
  ifNone: [ClassOrganizer default]!