The Inbox: Kernel-ct.1285.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.1285.mcz

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

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

Name: Kernel-ct.1285
Author: ct
Time: 7 December 2019, 3:30:28.183146 pm
UUID: 13eb78c3-6473-7d48-a013-79fa853f407c
Ancestors: Kernel-mt.1284

Add hook #defaultCategoryForSelector: in ClassDescription

The other changes in Message and Process are really minor typos, so I am following Chris' suggestion not to spam the history with an extra commit for them. Hope this way appeal to you :)

=============== Diff against Kernel-mt.1284 ===============

Item was added:
+ ----- Method: ClassDescription>>defaultCategoryForSelector: (in category 'organization') -----
+ defaultCategoryForSelector: aSelector
+
+ ^ nil!

Item was changed:
  ----- Method: ClassOrganizer>>classifyAllUnclassified (in category 'classifying') -----
  classifyAllUnclassified
 
  | organizers |
  organizers := self subject withAllSuperclasses collect: [:ea | ea organization].
  (self listAtCategoryNamed: ClassOrganizer default) do: [:sel | | found |
+ found := (organizers collect: [:org | org categoryOfElement: sel])
+ detect: [:ea | ea ~= ClassOrganizer default and: [ea ~= nil]]
+ ifNone: [self subject defaultCategoryForSelector: sel].
- found := (organizers collect: [ :org | org categoryOfElement: sel])
- detect: [:ea | ea ~= ClassOrganizer default and: [ ea ~= nil]]
- ifNone: [].
  found ifNotNil: [self classify: sel under: found]].
  !

Item was changed:
  ----- Method: Message>>analogousCodeTo: (in category 'comparing') -----
  analogousCodeTo: anObject
+ "For MethodProperties comparison."
- "For MethodPropertires comparison."
  ^self class == anObject class
   and: [selector == anObject selector
   and: [args = anObject arguments
   and: [lookupClass == anObject lookupClass]]]!

Item was changed:
  ----- Method: Process>>effectiveProcess (in category 'accessing') -----
  effectiveProcess
+ "effectiveProcess is a mechanism to allow process-faithful debugging.  The debugger executes code on behalf of processes, so unless some effort is made the identity of Processor activeProcess is not correctly maintained when debugging code.  The debugger uses evaluate:onBehalfOf: to assign the debugged process as the effectiveProcess of the process executing the code, preserving process identity."
- "effectiveProcess is a mechanism to allow process-faithful debugging.  The debugger executes code
- on behalf of processes, so unless some effort is made the identity of Processor activeProcess is not
- correctly maintained when debugging code.  The debugger uses evaluate:onBehalfOf: to assign the
- debugged process as the effectiveProcess of the process executing the code, preserving process
- identity."
  ^effectiveProcess ifNil: [self]!