The Trunk: System-ct.1516.mcz

Christoph Thiede uploaded a new version of System to project The Trunk:
http://source.squeak.org/trunk/System-ct.1516.mcz

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

Name: System-ct.1516
Author: ct
Time: 19 June 2026, 8:51:09.539101 pm
UUID: 2b247a50-ab8f-4e7c-a5e5-2529fff19927
Ancestors: System-mt.1514

Updates documentation for SystemOrganizer>>superclassOrder:.

=============== Diff against System-mt.1514 ===============

Item was changed:
  ----- Method: SystemOrganizer>>superclassOrder: (in category 'fileIn/Out') -----
  superclassOrder: category 
+ 	"Answer an OrderedCollection containing references to the classes in the category whose name is the argument, category (a string) or a hierarhcical prefix thereof. The classes are ordered with superclasses first so they can be filed in."
+ 	"
+ 	self environment organization superclassOrder: 'Kernel-Numbers-Exceptions'.
+ 	self environment organization superclassOrder: 'Kernel-Numbers'. 'does NOT contain Kernel-Number-Exceptions'
+ 	self environment organization superclassOrder: 'Kernel'. 'DOES contain Kernel-Numbers et al.'
+ 	"
- 	"Answer an OrderedCollection containing references to the classes in the 
- 	category whose name is the argument, category (a string). The classes 
- 	are ordered with superclasses first so they can be filed in."
  
  	| classNames |
  	classNames := (self listAtCategoryNamed: category asSymbol) ifEmpty:
  						[| prefix selectedClassNames |
  						prefix := category, '-'.
  						selectedClassNames := OrderedCollection new.
  						categoryArray do:
  							[:systemCategory|
  							(systemCategory beginsWith: prefix) ifTrue:
  								[selectedClassNames addAllLast: (self listAtCategoryNamed: systemCategory)]].
  						selectedClassNames].
  	^ChangeSet superclassOrder: (classNames collect: [:title | self environment at: title] thenSelect: [:each | each isBehavior])!

Squeak-dev mailing list -- [email protected]
To unsubscribe send an email to [email protected]