The Inbox: Kernel-ct.1298.mcz

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

The Inbox: Kernel-ct.1298.mcz

commits-2
A new version of Kernel was added to project The Inbox:
http://source.squeak.org/inbox/Kernel-ct.1298.mcz

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

Name: Kernel-ct.1298
Author: ct
Time: 14 February 2020, 3:34:45.300118 pm
UUID: 0f42bad1-e830-8a48-ad42-9dfea69e1176
Ancestors: Kernel-tonyg.1293

Documents the small but essential difference between #sendTo: and #sentTo:

=============== Diff against Kernel-tonyg.1293 ===============

Item was changed:
  ----- Method: Message>>sendTo: (in category 'sending') -----
+ sendTo: aReceiver
+ "Answer the result of sending this message to aReceiver"
- sendTo: receiver
- "answer the result of sending this message to receiver"
 
+ ^ aReceiver perform: selector withArguments: args!
- ^ receiver perform: selector withArguments: args!

Item was changed:
  ----- Method: Message>>sentTo: (in category 'sending') -----
+ sentTo: aReceiver
+ "Answer the result of sending this message to receiver. Kind of private!! To send the message to a different receiver (for example, via #doesNotUnderstand:), use #sendTo: instead."
- sentTo: receiver
- "answer the result of sending this message to receiver"
 
+ ^ lookupClass == nil
+ ifTrue: [aReceiver perform: selector withArguments: args]
+ ifFalse: [aReceiver perform: selector withArguments: args inSuperclass: lookupClass]!
- lookupClass == nil
- ifTrue: [^ receiver perform: selector withArguments: args]
- ifFalse: [^ receiver perform: selector withArguments: args inSuperclass: lookupClass]!

Item was changed:
  ----- Method: Message>>storeOn: (in category 'printing') -----
  storeOn: aStream
+ "Refer to the comment in Object >> storeOn:."
- "Refer to the comment in Object|storeOn:."
 
  aStream nextPut: $(;
+ nextPutAll: self class name;
+ nextPutAll: ' selector: ';
+ store: selector;
+ nextPutAll: ' arguments: ';
+ store: args;
+ nextPut: $).!
- nextPutAll: self class name;
- nextPutAll: ' selector: ';
- store: selector;
- nextPutAll: ' arguments: ';
- store: args;
- nextPut: $)!