Christoph Thiede uploaded a new version of System to project The Inbox:
http://source.squeak.org/inbox/System-ct.1208.mcz

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

Name: System-ct.1208
Author: ct
Time: 24 January 2021, 3:46:48.741384 pm
UUID: d2a952ca-fe5d-0045-b089-f8702dbdbb1e
Ancestors: System-eem.1207

Proposal: Adds query & browse selectors for finding certain primitive methods to SystemNavigation. Also excludes quick methods from #allPrimitiveMethods.

Usage:
	self systemNavigation browseAllPrimitiveMethods.
	self systemNavigation allPrimitiveMethodsFor: 38.
	self systemNavigation browseAllPrimitiveMethodsFor: 62.
	self systemNavigation browseAllPrimitiveMethodsFor: 'primitiveFindSubstring'.

=============== Diff against System-eem.1207 ===============

Item was changed:
  ----- Method: SystemNavigation>>allPrimitiveMethods (in category 'query') -----
  allPrimitiveMethods
  	"Answer a collection of all the methods that are implemented by primitives."
  
  	| result |
  	result := OrderedCollection new.
  	self allSelectorsAndMethodsDo: [ :behavior :selector :method |
+ 		(method isQuick not and: [method primitive ~= 0]) ifTrue: [
- 		method primitive ~= 0 ifTrue: [
  			result add: (String streamContents: [ :stream |
  				stream
  					nextPutAll: behavior name;
  					space;
  					nextPutAll: selector;
  					space;
  					print: method primitive ]) ] ].
  	^result!

Item was added:
+ ----- Method: SystemNavigation>>allPrimitiveMethodsFor: (in category 'query') -----
+ allPrimitiveMethodsFor: primitiveIndexOrName
+ 	
+ 	^ self allMethodsSelect: [:method | method primitive = primitiveIndexOrName
+ 		or: [method primitive = 117 and: [ | symbols |
+ 			symbols := method literalAt: 1.
+ 			symbols first = primitiveIndexOrName or: [symbols second = primitiveIndexOrName]]]]!

Item was added:
+ ----- Method: SystemNavigation>>browseAllPrimitiveMethods (in category 'browse') -----
+ browseAllPrimitiveMethods
+ 
+ 	^ self
+ 		browseMessageList: [self allPrimitiveMethods]
+ 		name: ('Primitive methods' translated)!

Item was added:
+ ----- Method: SystemNavigation>>browseAllPrimitiveMethodsFor: (in category 'browse') -----
+ browseAllPrimitiveMethodsFor: primitiveIndexOrName
+ 
+ 	^ self
+ 		browseMessageList: [self allPrimitiveMethodsFor: primitiveIndexOrName]
+ 		name: ('Primitive methods for {1}' translated format: {primitiveIndexOrName})
+ 		autoSelect: primitiveIndexOrName asString!