'From Squeak5.3alpha of 21 June 2019 [latest update: #18619] on 24 June 2019 at 2:24:18 pm'!

!Object methodsFor: 'literals' stamp: 'mt 6/24/2019 09:51'!
allLiteralsDo: aBlock

	self flag: #discuss. "mt: Better implement this only on Symbol, Array, Number, Binding, etc. instead of Object?"
	aBlock value: self.!
]style[(14 1 6 3 4 1 5 1 8 2 91 2 6 1 6 1 4 1)b,cblack;,c000000126,cblack;,c126000000,cblack;,c000000126,cblack;,c000000126,cblack;,c000126126,cblack;,c000000126,cblack;,c000000126,cblack;,c126000000,cblack;! !

!Object methodsFor: 'literals' stamp: 'mt 5/28/2019 10:58'!
hasLiteral: literal

	^ self hasLiteralSuchThat: [:lit | lit literalEqual: literal]!
]style[(11 1 7 3 1 1 4 1 19 3 3 1 1 1 3 1 13 1 7 1)b,cblack;,c000000126,cblack;,c126000000,cblack;,c126000000,cblack;,c000000126,cblack;,c000000126,cblack;,cgray;,cblack;,c000000126,cblack;,c000000126,cblack;,c000000126,cblack;! !

!Object methodsFor: 'literals' stamp: 'mt 6/5/2019 11:24'!
hasLiteralSuchThat: testBlock

	self allLiteralsDo: [:literal |
		(testBlock value: literal) ifTrue: [^ true]].
	
	^ false!
]style[(19 1 9 3 4 1 14 3 7 1 1 3 1 9 1 6 1 7 1 1 7 1 1 1 1 4 1 6 1 1 5)b,cblack;,c000000126,cblack;,c126000000,cblack;,c000000126,cblack;,c000000126,cblack;,cgray;,cblack;,c000126000,c000000126,cblack;,c000000126,cblack;,c000000126,c000126000,cblack;,c000000126,cblack;,c000126000,c126000000,cblack;,c126000000,c000126000,cblack;,c126000000,cblack;,c126000000! !

!Object methodsFor: 'literals' stamp: 'mt 6/5/2019 11:25'!
hasLiteralThorough: literal
	"Backwards compatiblility."

	self flag: #deprecate. "mt: Is there any need to check for a literal not thoroughly?"	
	^ self hasLiteral: literal!
]style[(19 1 7 2 27 3 4 1 5 1 10 2 62 3 1 1 4 1 11 1 7)b,cblack;,c000000126,cblack;,c000126126,cblack;,c126000000,cblack;,c000000126,cblack;,c000000126,cblack;,c000126126,cblack;,c126000000,cblack;,c126000000,cblack;,c000000126,cblack;,c000000126! !


!AdditionalMethodState methodsFor: 'literals' stamp: 'mt 6/5/2019 11:12'!
allLiteralsDo: aBlock

	1 to: self basicSize do: [:index |
		(self basicAt: index) allLiteralsDo: aBlock].!
]style[(14 1 6 3 1 1 3 1 4 1 9 1 3 3 5 1 1 3 1 4 1 8 1 5 1 1 14 1 6 2)b,cblack;,c000000125,cblack;,c125000000,cblack;,c000000125,cblack;,c125000000,cblack;,c000000125,cblack;,c000000125,cblack;,c000000125,cblack;,cgray;,cblack;,c000125000,c125000000,cblack;,c000000125,cblack;,c000000125,c000125000,cblack;,c000000125,cblack;,c000000125,cblack;! !


!Array methodsFor: 'literals' stamp: 'mt 6/24/2019 09:25'!
allLiteralsDo: aBlock

	"I am a literal."
	aBlock value: self.
	
	"All my elements are literals."
	self do: [:each | each allLiteralsDo: aBlock].!
]style[(14 1 6 3 17 2 6 1 6 1 4 5 31 2 4 1 3 3 4 1 1 1 4 1 14 1 6 2)b,cblack;,c000000126,cblack;,c000126126,cblack;,c000000126,cblack;,c000000126,cblack;,c126000000,cblack;,c000126126,cblack;,c126000000,cblack;,c000000126,cblack;,c000000126,cblack;,cgray;,cblack;,c000000126,cblack;,c000000126,cblack;,c000000126,cblack;! !


!Association methodsFor: 'literals' stamp: 'mt 6/24/2019 09:26'!
allLiteralsDo: aBlock
	"This strategy origins from a former implementation of CompiledMethod >> #hasLiteralThorough: as well as AdditionalMethodState >> #hasLiteralSuchThat:."

	"I am a literal."
	aBlock value: self.
	
	"All my components are literals."
	self key allLiteralsDo: aBlock.
	self value allLiteralsDo: aBlock.!
]style[(14 1 6 2 152 3 17 2 6 1 6 1 4 5 33 2 4 1 3 1 14 1 6 3 4 1 5 1 14 1 6 1)b,cblack;,c000000126,cblack;,c000126126,cblack;,c000126126,cblack;,c000000126,cblack;,c000000126,cblack;,c126000000,cblack;,c000126126,cblack;,c126000000,cblack;,c000000126,cblack;,c000000126,cblack;,c000000126,cblack;,c126000000,cblack;,c000000126,cblack;,c000000126,cblack;,c000000126,cblack;! !


!Behavior methodsFor: 'testing method dictionary' stamp: 'mt 6/24/2019 13:19'!
whichSelectorsReferTo: literal 
	"Answer a Set of selectors whose methods access the argument as a literal."

	| who |
	who := IdentitySet new.
	self selectorsAndMethodsDo: [:selector :method |
		(method hasLiteral: literal)
			ifTrue: [who add: selector]].
	^ who

	"Rectangle whichSelectorsReferTo: #+."!
]style[(22 1 7 3 75 3 1 1 3 1 1 2 3 1 2 13 3 3 4 1 22 3 8 2 6 1 1 3 1 6 1 11 1 7 1 4 7 1 1 3 1 4 1 8 1 4 1 1 3 3 38)b,cblack;,c000000126,cblack;,c000126126,cblack;,cgray;,cblack;,c106106106,cblack;,cgray;,cblack;,c106106106,cblack;,b,cblack;,c000000126,cblack;,c126000000,cblack;,c000000126,cblack;,c000000126,cblack;,c000000126,cblack;,cgray;,cblack;,c000126000,c000000126,cblack;,c000000126,cblack;,c000000126,c000126000,cblack;,c000000126,cblack;,c000126000,c106106106,cblack;,c000000126,cblack;,c000000126,c000126000,cblack;,c126000000,cblack;,c106106106,cblack;,c000126126! !

!Behavior methodsFor: '*Tools-icons' stamp: 'mt 6/24/2019 10:12'!
toolIconSelector: aSymbol
	"Tools can annotate the method identified by aSymbol with an icon identified by the symbol this method returns.
	We customize this for, eg, overriden methods or methods with breaks.
	Defaults to no icon"

	self methodDictionary at: aSymbol ifPresent: [ :method |
		method hasBreakpoint ifTrue: [^ #breakpoint].
		method allLiteralsDo: [:literal |
			(#(halt halt: haltIfNil haltIf: haltOnce haltOnce: haltOnCount: halt:onCount: break) includes: literal)
				ifTrue: [^ #breakpoint].
			(#(flag: needsWork notYetImplemented) includes: literal)
				ifTrue: [^ #flag].
			(#(shouldBeImplemented subclassResponsibility) includes: literal)
				ifTrue: [
					(self isSelectorOverridden: aSymbol)
						ifTrue: [^ #abstract]
						ifFalse: [^ #notOverridden]].
			literal == #shouldNotImplement
				ifTrue: [^ #no]].
		method hasReportableSlip ifTrue: [^ #breakpoint]].
		
	(self isSelectorOverride: aSymbol)
		ifTrue: [
			(self isSelectorOverridden: aSymbol)
				ifTrue: [ ^ #arrowUpAndDown ]
				ifFalse: [ ^ #arrowUp ] ]
		ifFalse: [
			(self isSelectorOverridden: aSymbol)
				ifTrue: [^ #arrowDown ]].

	self methodDictionary at: aSymbol ifPresent: [ :method |
		(method primitive ~= 0 and: [method isQuick not])
			ifTrue: [^ #primitive]].
	

	^ #blank!
]style[(17 1 7 2 203 3 4 1 16 1 3 1 7 1 10 4 6 1 1 3 6 1 13 1 7 1 1 1 1 11 1 4 6 1 14 1 1 1 7 1 1 4 1 1 1 4 1 5 1 9 1 7 1 8 1 9 1 12 1 13 1 5 2 9 1 7 1 5 7 1 1 1 1 11 1 5 1 1 1 5 1 9 1 17 2 9 1 7 1 5 7 1 1 1 1 5 1 5 1 1 1 19 1 22 2 9 1 7 1 5 7 1 1 6 5 1 21 1 7 1 7 7 1 2 1 9 1 7 8 1 2 1 14 1 1 5 7 1 2 1 19 5 7 1 1 1 1 3 1 1 4 6 1 17 1 7 1 1 1 1 11 1 8 4 1 19 1 7 4 7 6 1 4 1 21 1 7 1 5 7 1 1 1 1 1 15 1 1 5 8 1 1 1 1 1 8 1 1 5 8 6 1 4 1 21 1 7 1 5 7 1 1 1 1 10 1 1 5 4 1 16 1 3 1 7 1 10 4 6 1 1 3 1 6 1 9 1 2 1 1 1 4 1 1 6 1 7 1 3 1 1 4 7 1 1 1 1 10 1 7 1 1 6)b,cblack;,c000000126,cblack;,c000126126,cblack;,c126000000,cblack;,c000000126,cblack;,c000000126,cblack;,c000000126,cblack;,c000000126,cblack;,c000000126,cblack;,cgray;,cblack;,c000000126,cblack;,c000000126,cblack;,c000000126,cblack;,c000126000,c126000000,cblack;,c000000126,c000126000,cblack;,c000000126,cblack;,c000000126,cblack;,c000126000,cblack;,c000000126,cblack;,cgray;,cblack;,c126000126,c000000126,cblack;,c000000126,cblack;,c000000126,cblack;,c000000126,cblack;,c000000126,cblack;,c000000126,cblack;,c000000126,cblack;,c000000126,cblack;,c000000126,cblack;,c000000126,cblack;,c000000126,cblack;,c000000126,c126000126,cblack;,c000000126,cblack;,c126000126,c126000000,cblack;,c000000126,c126000126,cblack;,c126000126,c000000126,cblack;,c000000126,cblack;,c000000126,cblack;,c000000126,cblack;,c000000126,cblack;,c000000126,c126000126,cblack;,c000000126,cblack;,c126000126,c126000000,cblack;,c000000126,c126000126,cblack;,c126000126,c000000126,cblack;,c000000126,cblack;,c000000126,cblack;,c000000126,cblack;,c000000126,c126000126,cblack;,c000000126,cblack;,c126000126,cblack;,c126000000,cblack;,c000000126,cblack;,c000000126,c126000000,cblack;,c000000126,cblack;,c126000000,cblack;,c000000126,c126000000,cblack;,c000000126,cblack;,c126000000,cblack;,c000000126,c126000000,c126000126,cblack;,c000000126,cblack;,c000000126,cblack;,c000000126,cblack;,c000000126,cblack;,c126000126,c126000000,cblack;,c000000126,c126000126,c000126000,cblack;,c000000126,cblack;,c000000126,cblack;,c000000126,cblack;,c000126000,c126000000,cblack;,c000000126,c000126000,cblack;,c126000000,cblack;,c000000126,cblack;,c000000126,cblack;,c000000126,cblack;,c000126000,c126000000,cblack;,c000000126,cblack;,c000000126,c000126000,cblack;,c000000126,cblack;,c000126000,cblack;,c126000000,cblack;,c000000126,cblack;,c000126000,cblack;,c000000126,cblack;,c000126000,cblack;,c126000000,cblack;,c000000126,cblack;,c000126000,cblack;,c000000126,cblack;,c000126000,c126000000,cblack;,c000000126,cblack;,c000000126,c000126000,cblack;,c000000126,cblack;,c000126000,c126000000,cblack;,c000000126,cblack;,c000126000,cblack;,c126000000,cblack;,c000000126,cblack;,c000000126,cblack;,c000000126,cblack;,c000000126,cblack;,c000000126,cblack;,cgray;,cblack;,c000126000,c000000126,cblack;,c000000126,cblack;,c000000126,cblack;,c126000000,cblack;,c000000126,cblack;,c126000126,c000000126,cblack;,c000000126,cblack;,c000000126,c126000126,c000126000,cblack;,c000000126,cblack;,c000126000,c126000000,cblack;,c000000126,c000126000,cblack;,c126000000,cblack;,c000000126! !

!Behavior methodsFor: '*60Deprecated-testing method dictionary' stamp: 'mt 6/24/2019 13:50'!
whichSelectorsReferTo: aLiteral thorough: thorough

	self deprecated: 'Literal test is thorough by default. Use #whichSelectorsReferTo: instead.'.
	^ self whichSelectorsReferTo: aLiteral!
]style[(22 1 8 1 9 1 8 3 4 1 11 1 75 3 1 1 4 1 22 1 8)b,cblack;,c000000126,cblack;,b,cblack;,c000000126,cblack;,c126000000,cblack;,c000000126,cblack;,c126000126n,cblack;,c126000000,cblack;,c126000000,cblack;,c000000126,cblack;,c000000126! !


!Binding methodsFor: 'literals' stamp: 'mt 6/24/2019 09:22'!
allLiteralsDo: aBlock

	"I am a literal."
	aBlock value: self.
	
	self key allLiteralsDo: aBlock.
	self value allLiteralsDo: aBlock.!
]style[(14 1 6 3 17 2 6 1 6 1 4 5 4 1 3 1 14 1 6 3 4 1 5 1 14 1 6 1)b,cblack;,c000000126,cblack;,c000126126,cblack;,c000000126,cblack;,c000000126,cblack;,c126000000,cblack;,c126000000,cblack;,c000000126,cblack;,c000000126,cblack;,c000000126,cblack;,c126000000,cblack;,c000000126,cblack;,c000000126,cblack;,c000000126,cblack;! !


!ChangeSorter methodsFor: 'toolbuilder' stamp: 'mt 6/24/2019 08:17'!
buildWith: builder in: window rect: rect
	| csListHeight msgListHeight csMsgListHeight listSpec textSpec |
	contents := ''.
	csListHeight := 0.25.
	msgListHeight := 0.25.
	csMsgListHeight := csListHeight + msgListHeight.

	listSpec := builder pluggableListSpec new.
	listSpec 
		model: self;
		list: #changeSetList; 
		getSelected: #currentCngSet; 
		setSelected: #showChangeSetNamed:; 
		menu: #changeSetMenu:shifted:; 
		keyPress: #changeSetListKey:from:;
		dragItem: #dragChangeSet:;
		autoDeselect: false;
		frame: (((0@0 extent: 0.5@csListHeight)
			scaleBy: rect extent) translateBy: rect origin).
	window children add: listSpec.

	listSpec := builder pluggableListSpec new.
	listSpec 
		model: self;
		list: #classList; 
		getSelected: #currentClassName; 
		setSelected: #currentClassName:; 
		menu: #classListMenu:shifted:; 
		keyPress: #classListKey:from:;
		dragItem: #dragClass:;
		frame: (((0.5@0 extent: 0.5@csListHeight)
			scaleBy: rect extent) translateBy: rect origin).
	window children add: listSpec.

	listSpec := builder pluggableListSpec new.
	listSpec 
		model: self;
		list: #messageList; 
		getSelected: #currentSelector;
		setSelected: #currentSelector:; 
		menu: #messageMenu:shifted:; 
		keyPress: #messageListKey:from:;
		dragItem: #dragMessage:;
		frame: (((0@csListHeight extent: 1@msgListHeight)
			scaleBy: rect extent) translateBy: rect origin).
	window children add: listSpec.

	textSpec := builder pluggableTextSpec new.
	textSpec 
		model: self;
		getText: #contents; 
		setText: #contents:notifying:; 
		selection: #contentsSelection; 
		menu: #codePaneMenu:shifted:;
		frame: (((0@csMsgListHeight corner: 1@1) scaleBy: rect extent) translateBy: rect origin).
	window children add: textSpec.
	^window! !

!ChangeSorter methodsFor: 'dragging' stamp: 'mt 6/24/2019 08:16'!
dragChangeSet: anIndex

	anIndex = 0 ifTrue: [^ nil].
	^ ChangesOrganizer changeSetNamed: (self changeSetList at: anIndex) ! !

!ChangeSorter methodsFor: 'dragging' stamp: 'mt 6/24/2019 08:24'!
dragClass: anIndex

	anIndex = 0 ifTrue: [^ nil].
	^ (Smalltalk classNamed: (self basicClassList at: anIndex)) classReference! !

!ChangeSorter methodsFor: 'dragging' stamp: 'mt 6/24/2019 08:23'!
dragMessage: anIndex

	anIndex = 0 ifTrue: [^ nil].
	^ MethodReference
		class: self selectedClassOrMetaClass
		selector: (self basicMessageList at: anIndex)! !


!CompiledCode methodsFor: 'literals' stamp: 'mt 6/24/2019 13:44'!
allLiterals
	"Skip compiled-code objects. Keep literal arrays, bindings, etc."
	
	^ Array streamContents: [:result |
		self allLiteralsDo: [:lit | 
			lit isCompiledCode ifFalse: [result nextPut: lit]]]!
]style[(11 2 65 4 1 7 15 3 6 1 1 3 4 1 14 1 1 1 3 1 1 5 3 1 14 1 8 1 1 6 1 8 1 3 1 1 1)b,cblack;,c000126126,cblack;,c126000000,cblack;,c000000126,cblack;,c000000126,cblack;,cgray;,cblack;,c126000000,cblack;,c000000126,cblack;,c000126000,cblack;,c000000126,cblack;,cgray;,cblack;,c000000126,cblack;,c000000126,cblack;,c000000126,cblack;,c126000126,c000000126,cblack;,c000000126,cblack;,c000000126,c126000126,c000126000,cblack;! !

!CompiledCode methodsFor: 'literals' stamp: 'mt 6/24/2019 13:30'!
allLiteralsDo: aBlock
	"Enumerate all literals thoroughly."
	
	self literalsDo: [:literal |
		literal allLiteralsDo: aBlock].!
]style[(14 1 6 2 36 4 4 1 11 3 7 1 1 3 7 1 14 1 6 2)b,cblack;,c000000126,cblack;,c000126126,cblack;,c126000000,cblack;,c000000126,cblack;,c000000126,cblack;,cgray;,cblack;,c000000126,cblack;,c000000126,cblack;,c000000126,cblack;! !

!CompiledCode methodsFor: 'literals' stamp: 'mt 5/28/2019 14:08'!
literals
	
	^ Array streamContents: [:result |
		self literalsDo: [:lit | result nextPut: lit]]!
]style[(8 4 1 7 15 3 6 1 1 3 4 1 11 1 1 1 3 1 1 1 6 1 8 1 3 1 1)b,cblack;,c126000000,cblack;,c000000126,cblack;,c000000126,cblack;,cgray;,cblack;,c126000000,cblack;,c000000126,cblack;,c000126000,cblack;,c000000126,cblack;,cgray;,cblack;,c000000126,cblack;,c000000126,cblack;,c000000126,c000126000,cblack;! !

!CompiledCode methodsFor: 'literals' stamp: 'mt 6/24/2019 13:16'!
literalsDo: aBlock
	"Evaluate aBlock for each of the literals referenced by the receiver. Note that this (raw) enumeration addresses *all* objects stored *after* the method header and *before* the first byte code. If you require a deep and meaningful enumeration of literals use #allLiteralsDo:."
	
	1 to: self numLiterals do: [:index |
		aBlock value: (self objectAt: index + 1)].!
]style[(11 1 6 2 276 4 1 1 3 1 4 1 11 1 3 3 5 1 1 3 6 1 6 1 1 4 1 9 1 5 1 1 1 1 1 2)b,cblack;,c000000126,cblack;,c000126126,cblack;,c126000000,cblack;,c000000126,cblack;,c126000000,cblack;,c000000126,cblack;,c000000126,cblack;,c000000126,cblack;,cgray;,cblack;,c000000126,cblack;,c000000126,cblack;,c000126000,c126000000,cblack;,c000000126,cblack;,c000000126,cblack;,c000000126,cblack;,c126000000,c000126000,cblack;! !

!CompiledCode methodsFor: 'literals' stamp: 'mt 6/24/2019 12:32'!
refersTo: literal bytecodeScanner: scanBlockOrNil thorough: thorough
	"Answer if the receiver refers to the literal.  If the scan block is non-nil, then
	 use it to find the literal in bytecode.  If thorough is true, dive down into
	 literal arrays and method properties to locate references to the literal there-in."
	2 to: (self isCompiledBlock
			ifTrue: [self numLiterals] "exclude outerCode or methodClass"
			ifFalse: [self numLiterals - 1]) "exclude selector/properties and methodClass"
	   do: [:i| | lit |
		lit := self objectAt: i.
		(literal literalEqual: lit) ifTrue: [^true].
		lit isCompiledCode
			ifTrue:
				[(lit refersTo: literal bytecodeScanner: scanBlockOrNil thorough: thorough) ifTrue:
					[^true]]
			ifFalse:
				[thorough ifTrue:
					[lit isVariableBinding
						ifTrue:
							[literal == lit key ifTrue: [^true]]
						ifFalse:
							[(lit isArray
							   and: [(lit hasLiteral: literal)
								or: [literal isVariableBinding
									and: [literal key isSymbol
									and: [lit hasLiteral: literal key]]]]) ifTrue:
								[^true]]]]].
	scanBlockOrNil ifNotNil:
		[(self scanFor: scanBlockOrNil) ifTrue:
			[^true]].
	^false!
]style[(9 1 7 1 16 1 14 1 9 1 8 2 247 2 1 1 3 2 4 1 15 4 7 1 1 4 1 11 1 1 34 4 8 1 1 4 1 11 1 1 1 1 1 2 45 5 3 3 1 1 1 1 1 3 1 1 3 3 1 2 1 4 1 9 1 1 4 1 7 1 13 1 3 1 1 7 1 1 5 1 4 3 1 14 4 7 5 1 1 3 1 9 1 7 1 16 1 14 1 9 1 8 1 1 7 6 1 5 1 1 4 8 5 1 8 1 7 6 1 3 1 17 7 7 8 1 7 1 2 1 3 1 3 1 7 1 1 5 1 1 7 8 8 1 1 3 1 7 11 4 1 1 1 3 1 11 1 7 1 9 3 1 1 7 1 17 10 4 1 1 7 1 3 1 8 10 4 1 1 3 1 11 1 7 1 3 1 1 1 1 1 1 7 9 1 5 1 1 1 1 4 14 1 9 4 1 4 1 8 1 14 1 1 7 4 1 5 1 4 6)b,cblack;,c000000126,cblack;,b,cblack;,c000000126,cblack;,b,cblack;,c000000126,cblack;,c000126126,cblack;,c126000000,cblack;,c000000126,cblack;,c126000000,cblack;,c000000126,cblack;,c000000126,cblack;,c000126000,c126000000,cblack;,c000000126,c000126000,cblack;,c000126126,cblack;,c000000126,cblack;,c000126000,c126000000,cblack;,c000000126,cblack;,c000000126,cblack;,c126000000,c000126000,cblack;,c000126126,cblack;,c000000126,cblack;,c000000126,cgray;,cblack;,cgray;,cblack;,cgray;,cblack;,cgray;,cblack;,cgray;,cblack;,b,cblack;,c126000000,cblack;,c000000126,cblack;,c000000126,cblack;,c000126000,c000000126,cblack;,c000000126,cblack;,cgray;,c000126000,cblack;,c000000126,cblack;,c000126000,c126000000,c000126000,cblack;,cgray;,cblack;,c000000126,cblack;,c000000126,cblack;,c000126000,c126000126,cgray;,cblack;,c000000126,cblack;,c000000126,cblack;,c000000126,cblack;,c000000126,cblack;,c000000126,cblack;,c000000126,c126000126,cblack;,c000000126,cblack;,c126000126,c126000000,c126000126,c000126000,cblack;,c000000126,cblack;,c000126000,c000000126,cblack;,c000000126,cblack;,c126000126,cgray;,cblack;,c000000126,cblack;,c000000126,cblack;,c126000000,c000000126,cblack;,c000000126,cblack;,cgray;,cblack;,c000000126,cblack;,c000000126,cblack;,c000234000,c126000000,c000234000,c126000000,cblack;,c000000126,cblack;,c126000000,c000234000,cgray;,cblack;,c000000126,cblack;,c000000126,cblack;,c234140000,c234000234,cgray;,cblack;,c000000126,cblack;,c000000126,c234000234,cblack;,c000000126,cblack;,c234000234,c000000126,cblack;,c000000126,cblack;,c000000126,cblack;,cblue;,c000000126,cblack;,c000000126,cblack;,c000000126,cblack;,c000000126,cblack;,c000126000,cgray;,cblack;,c000000126,cblack;,c000000126,cblack;,c000000126,c000126000,cblue;,c234000234,c234140000,c000234000,cblack;,c000000126,cblack;,c000234000,c126000000,c000234000,c126000000,c126000126,c000126000,cblack;,c000000126,cblack;,c000000126,cblack;,c000126000,c126000000,cblack;,c000000126,cblack;,c000000126,c000126000,cblack;,c000000126,cblack;,c000126000,c126000000,c000126000,cblack;,c126000000! !

!CompiledCode methodsFor: 'as yet unclassified' stamp: 'mt 6/24/2019 13:07'!
hasLiteral: aLiteral
	"Since we cannot enumerate this code's special literals, we have to overwrite this method to invoke the encoder scanner explicitely."

	| scanBlock |
	scanBlock := self class
		scanBlocksForLiteral: aLiteral
		do: [:primaryScanner :secondaryScanner |
			self signFlag ifTrue: [secondaryScanner] ifFalse: [primaryScanner]].
	
	^ self hasLiteralSuchThat: [:lit |
		(lit literalEqual: aLiteral)
			"Note that this can only work of compiled code is regarded a literal, too. See #allLiteralsDo:."
			or: [(lit isCompiledCode and: [scanBlock notNil]) and: [lit scanFor: scanBlock]]]!
]style[(11 1 8 2 133 3 1 1 9 1 1 2 9 1 2 1 4 1 5 3 21 1 8 3 3 3 14 2 16 1 1 4 4 1 8 1 7 1 1 16 1 1 8 1 1 14 1 6 1 1 4 1 19 3 3 1 1 3 1 3 1 13 1 8 1 4 96 4 3 1 1 1 3 1 14 1 4 1 1 9 1 6 1 1 1 4 1 1 3 1 8 1 9 1 1 1)b,cblack;,c000000126,cblack;,c000126126,cblack;,cgray;,cblack;,c106106106,cblack;,cgray;,cblack;,c106106106,cblack;,b,cblack;,c126000000,cblack;,c000000126,cblack;,c000000126,cblack;,c000000126,cblack;,c000000126,cblack;,c000000126,cblack;,c000000126,cblack;,cgray;,cblack;,c126000000,cblack;,c000000126,cblack;,c000000126,cblack;,c000126000,c000000126,c000126000,cblack;,c000000126,cblack;,c000126000,c000000126,c000126000,cblack;,c126000000,cblack;,c126000000,cblack;,c000000126,cblack;,c000000126,cblack;,cgray;,cblack;,c000126000,c000000126,cblack;,c000000126,cblack;,c000000126,c000126000,cblack;,c000126126,cblack;,c000000126,cblack;,c000126000,c126000126,c000000126,cblack;,c000000126,cblack;,c000000126,cblack;,c126000000,c106106106,cblack;,c000000126,c126000000,c126000126,cblack;,c000000126,cblack;,c126000126,c000000126,cblack;,c000000126,cblack;,c106106106,c126000126,c000126000,cblack;! !


!CompiledBlock methodsFor: 'literals' stamp: 'mt 6/24/2019 13:45'!
allLiteralsDo: aBlock
	"Overwritten to not cause infinite loop."

	"I am a literal."
	aBlock value: self.

	"The last literal in a compiled block is its outer context (or home method)."
	1 to: self numLiterals - 1 do: [:index |
		(self objectAt: index + 1) allLiteralsDo: aBlock].!
]style[(14 1 6 2 41 3 17 2 6 1 6 1 4 4 77 2 1 1 3 1 4 1 11 1 1 1 1 1 3 3 5 1 1 3 1 4 1 9 1 5 1 1 1 1 1 1 14 1 6 2)b,cblack;,c000000126,cblack;,c000126126,cblack;,c000126126,cblack;,c000000126,cblack;,c000000126,cblack;,c126000000,cblack;,c000126126,cblack;,c126000000,cblack;,c000000126,cblack;,c126000000,cblack;,c000000126,cblack;,c000000126,cblack;,c126000000,cblack;,c000000126,cblack;,c000000126,cblack;,cgray;,cblack;,c000126000,c126000000,cblack;,c000000126,cblack;,c000000126,cblack;,c000000126,cblack;,c126000000,c000126000,cblack;,c000000126,cblack;,c000000126,cblack;! !


!CompiledMethod methodsFor: 'file in/out' stamp: 'mt 6/5/2019 11:36'!
objectForDataStream: refStrm
	"Reconfigure pragma. Example: #(#FFTPlugin #primitiveFFTTransformData 0 0). See FFT >> #pluginTransformData:."

	self primitive = 117 ifTrue: [(self literalAt: 1) at: 4 put: 0].!
]style[(20 1 7 2 110 3 4 1 9 1 1 1 3 1 7 2 1 4 1 10 1 1 1 1 3 1 1 1 4 1 1 2)b,cblack;,c000000126,cblack;,c000126126,cblack;,c126000000,cblack;,c000000126,cblack;,c000000126,cblack;,c126000000,cblack;,c000000126,cblack;,c000126000,c126000000,cblack;,c000000126,cblack;,c126000000,c000126000,cblack;,c000000126,cblack;,c126000000,cblack;,c000000126,cblack;,c126000000,cblack;! !

!CompiledMethod methodsFor: 'literals' stamp: 'mt 6/24/2019 13:45'!
allLiteralsDo: aBlock
	"Overwritten to skip certain (raw) literals."
		
	"I am a literal."
	aBlock value: self.
	
	" Exclude method selector (or properties) and the method's class."
	1 to: self numLiterals - 2 do: [:index |
		(self objectAt: index + 1) allLiteralsDo: aBlock].

	"Enumerate method selector only through additional method state."
	self penultimateLiteral isMethodProperties
		ifTrue: [self penultimateLiteral allLiteralsDo: aBlock].!
]style[(14 1 6 2 45 5 17 2 6 1 6 1 4 5 66 2 1 1 3 1 4 1 11 1 1 1 1 1 3 3 5 1 1 3 1 4 1 9 1 5 1 1 1 1 1 1 14 1 6 5 65 2 4 1 18 1 18 3 7 2 4 1 18 1 14 1 6 2)b,cblack;,c000000126,cblack;,c000126126,cblack;,c000126126,cblack;,c000000126,cblack;,c000000126,cblack;,c126000000,cblack;,c000126126,cblack;,c126000000,cblack;,c000000126,cblack;,c126000000,cblack;,c000000126,cblack;,c000000126,cblack;,c126000000,cblack;,c000000126,cblack;,c000000126,cblack;,cgray;,cblack;,c000126000,c126000000,cblack;,c000000126,cblack;,c000000126,cblack;,c000000126,cblack;,c126000000,c000126000,cblack;,c000000126,cblack;,c000000126,cblack;,c000126126,cblack;,c126000000,cblack;,c000000126,cblack;,c000000126,cblack;,c000000126,cblack;,c126000000,cblack;,c000000126,cblack;,c000000126,cblack;,c000000126,cblack;! !


!DeepCopier methodsFor: 'like fullCopy' stamp: 'mt 6/5/2019 10:33'!
checkClass: aClass
	| meth |
	"Check that no indexes of instance vars have changed in certain classes.  If you get an error in this method, an implementation of veryDeepCopyWith: needs to be updated.  The idea is to catch a change while it is still in the system of the programmer who made it."

	self checkBasicClasses.	"Unlikely, but important to catch when it does happen."

	"Every class that implements veryDeepInner: must copy all its inst vars.  Danger is that a user will add a new instance variable and forget to copy it.  So check that the last one is mentioned in the copy method."
	(aClass includesSelector: #veryDeepInner:) ifTrue: [ 
		((aClass compiledMethodAt: #veryDeepInner:) writesField: aClass instSize) ifFalse: [
			aClass instSize > 0 ifTrue: [
				self warnIverNotCopiedIn: aClass sel: #veryDeepInner:]]].
	(aClass includesSelector: #veryDeepCopyWith:) ifTrue: [
		meth := aClass compiledMethodAt: #veryDeepCopyWith:.
		(meth size > 20) & (meth hasLiteral: #veryDeepCopyWith:) not ifTrue: [
			(meth writesField: aClass instSize) ifFalse: [
				self warnIverNotCopiedIn: aClass sel: #veryDeepCopyWith:]]].
!
]style[(11 1 6 2 1 1 4 1 1 2 264 3 4 1 17 2 55 3 213 3 6 1 17 1 15 2 7 6 1 1 6 1 17 1 15 1 1 12 1 6 1 8 1 1 8 1 1 4 6 1 8 1 1 1 1 1 7 1 1 5 4 1 20 1 6 1 4 1 15 1 1 5 6 1 17 1 18 2 7 5 4 1 2 1 6 1 17 1 18 4 1 4 1 4 1 1 1 2 1 1 1 1 1 4 1 11 1 18 1 1 3 1 7 1 1 4 1 4 1 12 1 6 1 8 1 1 8 1 1 5 4 1 20 1 6 1 4 1 18 1 1 3)b,cblack;,c000000126,cblack;,cgray;,cblack;,c106106106,cblack;,cgray;,cblack;,c000126126,cblack;,c126000000,cblack;,c000000126,cblack;,c000126126,cblack;,c000126126,cblack;,c000000126,cblack;,c000000126,cblack;,c000000126,cblack;,c000000126,cblack;,c000126000,c126000126,c000000126,cblack;,c000000126,cblack;,c000000126,c126000126,cblack;,c000000126,cblack;,c000000126,cblack;,c000000126,c000126000,cblack;,c000000126,cblack;,c000126000,cblack;,c000000126,cblack;,c000000126,cblack;,c000000126,cblack;,c126000000,cblack;,c000000126,cblack;,c126000126,cblack;,c126000000,cblack;,c000000126,cblack;,c000000126,cblack;,c000000126,cblack;,c000000126,c126000126,c000126000,cblack;,c000000126,cblack;,c000000126,cblack;,c000000126,cblack;,c000000126,cblack;,c106106106,cblack;,b,cblack;,c000000126,cblack;,c000000126,cblack;,c000000126,cblack;,c000126000,c106106106,cblack;,c000000126,cblack;,c000000126,cblack;,c126000000,c000126000,cblack;,c000000126,cblack;,c000126000,c106106106,cblack;,c000000126,cblack;,c000000126,c000126000,cblack;,c000000126,cblack;,c000000126,cblack;,c000126000,cblack;,c126000126,c106106106,cblack;,c000000126,cblack;,c000000126,cblack;,c000000126,c126000126,cblack;,c000000126,cblack;,c126000126,cblack;,c126000000,cblack;,c000000126,cblack;,c000000126,cblack;,c000000126,cblack;,c000000126,c126000126,c000126000,cblack;! !

!DeepCopier methodsFor: 'like fullCopy' stamp: 'mt 6/5/2019 10:33'!
checkVariables
	"Check that no indexes of instance vars have changed in certain classes.  If you get an error in this method, an implementation of veryDeepCopyWith: needs to be updated.  The idea is to catch a change while it is still in the system of the programmer who made it.  
	DeepCopier new checkVariables	"

	self checkBasicClasses.

	"Every class that implements veryDeepInner: must copy all its inst vars.  Danger is that a user will add a new instance variable and forget to copy it.  So check that the last one is mentioned in the copy method."
	(self systemNavigation allClassesImplementing: #veryDeepInner:) do: 
			[:aClass | 
			((aClass compiledMethodAt: #veryDeepInner:) writesField: aClass instSize) 
				ifFalse: 
					[aClass instSize > 0 
						ifTrue: [self warnIverNotCopiedIn: aClass sel: #veryDeepInner:]]].
	(self systemNavigation allClassesImplementing: #veryDeepCopyWith:) do: 
			[:aClass | 
			| meth |
			meth := aClass compiledMethodAt: #veryDeepCopyWith:.
			meth size > 20 & (meth hasLiteral: #veryDeepCopyWith:) not 
				ifTrue: 
					[(meth writesField: aClass instSize) 
						ifFalse: [self warnIverNotCopiedIn: aClass sel: #veryDeepCopyWith:]]]!
]style[(14 2 298 3 4 1 17 4 213 3 4 1 16 1 23 1 15 2 3 7 6 1 1 5 1 1 6 1 17 1 15 1 1 12 1 6 1 8 1 6 8 7 1 6 1 8 1 1 1 1 8 7 1 1 4 1 20 1 6 1 4 1 15 1 1 5 4 1 16 1 23 1 18 2 3 7 6 1 1 5 1 1 4 1 1 4 4 1 2 1 6 1 17 1 18 5 4 1 4 1 1 1 2 1 1 1 1 4 1 11 1 18 1 1 3 6 7 7 1 1 4 1 12 1 6 1 8 1 8 8 1 1 4 1 20 1 6 1 4 1 18 1 1 1)b,cblack;,c000126126,cblack;,c126000000,cblack;,c000000126,cblack;,c000126126,cblack;,c126000000,cblack;,c000000126,cblack;,c000000126,cblack;,c000000126,cblack;,c000000126,cblack;,c000000126,cblack;,cgray;,cblack;,c000126000,c126000126,c000000126,cblack;,c000000126,cblack;,c000000126,c126000126,cblack;,c000000126,cblack;,c000000126,cblack;,c000000126,c000126000,cblack;,c000000126,cblack;,c000126000,c000000126,cblack;,c000000126,cblack;,c000000126,cblack;,c126000000,cblack;,c000000126,cblack;,c126000126,c126000000,cblack;,c000000126,cblack;,c000000126,cblack;,c000000126,cblack;,c000000126,c126000126,c000126000,cblack;,c126000000,cblack;,c000000126,cblack;,c000000126,cblack;,c000000126,cblack;,c000000126,cblack;,c000000126,cblack;,cgray;,cblack;,cgray;,cblack;,cgray;,cblack;,cgray;,cblack;,cgray;,cblack;,b,cblack;,c000000126,cblack;,c000000126,cblack;,c000000126,cblack;,cgray;,cblack;,c000000126,cblack;,c000000126,cblack;,c126000000,cblack;,c000000126,cblack;,c000126000,cgray;,cblack;,c000000126,cblack;,c000000126,c000126000,cblack;,c000000126,cblack;,c000000126,cblack;,c000126000,c126000126,cgray;,cblack;,c000000126,cblack;,c000000126,cblack;,c000000126,c126000126,cblack;,c000000126,cblack;,c126000126,c126000000,cblack;,c000000126,cblack;,c000000126,cblack;,c000000126,cblack;,c000000126,c126000126,c000126000,cblack;! !


!GlobalTest methodsFor: 'tests' stamp: 'mt 6/24/2019 12:32'!
testNaNLiteralEqual

	self assert: ((Float bindingOf: #NaN) literalEqual: (Float bindingOf: #NaN)).!
]style[(19 3 4 1 7 2 1 6 10 1 4 1 1 13 1 1 6 10 1 4 1 2)b,cblack;,c126000000,cblack;,c000000126,cblack;,c000126000,cblack;,c000000126,cblack;,c000000126,c000126000,cblack;,c000000126,cblack;,c000126000,cblack;,c000000126,cblack;,c000000126,c000126000,cblack;! !


!Pragma methodsFor: 'literals' stamp: 'mt 6/5/2019 10:59'!
allLiteralsDo: aBlock

	keyword allLiteralsDo: aBlock.
	arguments allLiteralsDo: aBlock.!
]style[(14 1 6 11 14 1 6 13 14 1 6 1)b,cblack;,c000000126,cblack;,c000000126,cblack;,c000000126,cblack;,c000000126,cblack;,c000000126,cblack;! !

!Pragma methodsFor: 'literals' stamp: 'mt 5/28/2019 12:34'!
hasLiteral: aLiteral
	"Extra support for #hasLiteralTest:."
	
	^ (super hasLiteral: aLiteral)
		or: [keyword == #hasLiteralTest: and: [
			self methodClass theNonMetaClass perform: arguments first with: aLiteral]]!
]style[(11 1 8 2 37 4 1 2 5 1 11 1 8 4 3 10 2 1 16 1 4 1 1 4 4 1 11 1 15 1 8 11 5 1 5 1 8 1 1)b,cblack;,c000000126,cblack;,c000126126,cblack;,c126000000,cblack;,c126000000,cblack;,c000000126,cblack;,c000000126,cblack;,c000000126,cblack;,c000000126,cblack;,c000000126,cblack;,c000000126,cblack;,c000126000,cblack;,c126000000,cblack;,c000000126,cblack;,c000000126,cblack;,c000000126,cblack;,c000000126,cblack;,c000000126,cblack;,c000000126,c000126000,cblack;! !


!SystemNavigation methodsFor: 'query' stamp: 'mt 6/24/2019 13:59'!
allCallsOn: aLiteral fromBehaviors: behaviors sorted: sorted
	"Answer a collection of all the methods implemented by behaviors that call on aLiteral even deeply embedded in literal arrays."
	
	| result |
	result := OrderedCollection new.
	behaviors do: [:behavior |
		behavior selectorsAndMethodsDo: [:selector :method |
			(method hasLiteral: aLiteral)
				ifTrue: [result addLast: method methodReference]]].
	sorted ifTrue: [result sort].
	^result!
]style[(11 1 8 1 14 1 9 1 7 1 6 2 127 4 1 1 6 1 1 2 6 1 2 19 3 3 9 1 3 3 8 1 1 3 8 1 22 1 1 1 8 2 6 1 1 4 1 6 1 11 1 8 1 5 7 1 1 6 1 8 1 6 1 15 1 1 4 6 1 7 2 6 1 4 4 1 6)b,cblack;,c000000126,cblack;,b,cblack;,c000000126,cblack;,b,cblack;,c000000126,cblack;,c000126126,cblack;,cgray;,cblack;,c106106106,cblack;,cgray;,cblack;,c106106106,cblack;,b,cblack;,c000000126,cblack;,c000000126,cblack;,c000000126,cblack;,c000000126,cblack;,cgray;,cblack;,c000000126,cblack;,c000000126,cblack;,c000126000,cblack;,c000000126,cblack;,c000000126,cblack;,cgray;,cblack;,c126000126,c000000126,cblack;,c000000126,cblack;,c000000126,c126000126,cblack;,c000000126,cblack;,c126000126,c106106106,cblack;,c000000126,cblack;,c000000126,cblack;,c000000126,c126000126,c000126000,cblack;,c000000126,cblack;,c000000126,cblack;,c106106106,cblack;,c000000126,cblack;,c126000000,c106106106! !

!SystemNavigation methodsFor: 'query' stamp: 'mt 6/24/2019 14:01'!
allCallsOn: aLiteral fromMethodReferences: methodReferences sorted: sorted
	"Answer a collection of all the methods implemented by behaviors that call on aLiteral even deeply embedded in literal arrays."
	
	| result |
	result := methodReferences select: [:reference |
		reference compiledMethod
			ifNil: [false]
			ifNotNil: [:method | method hasLiteral: aLiteral]].
	sorted ifTrue: [result sort].
	^result!
]style[(11 1 8 1 21 1 16 1 7 1 6 2 127 4 1 1 6 1 1 2 6 1 2 1 16 1 7 3 9 1 1 3 9 1 14 4 6 1 1 5 1 4 9 1 1 1 6 1 1 1 6 1 11 1 8 1 4 6 1 7 2 6 1 4 4 1 6)b,cblack;,c000000126,cblack;,b,cblack;,c000000126,cblack;,b,cblack;,c000000126,cblack;,c000126126,cblack;,cgray;,cblack;,c106106106,cblack;,cgray;,cblack;,c106106106,cblack;,b,cblack;,c000000126,cblack;,c000000126,cblack;,c000000126,cblack;,cgray;,cblack;,c000000126,cblack;,c000000126,cblack;,c000000126,cblack;,c000126000,c126000000,c000126000,cblack;,c000000126,cblack;,c000126000,cblack;,c000000126,cblack;,cgray;,cblack;,c000000126,cblack;,c000000126,cblack;,c000000126,c000126000,cblack;,c000000126,cblack;,c000000126,cblack;,c106106106,cblack;,c000000126,cblack;,c126000000,c106106106! !


!WrappedBreakpoint methodsFor: 'literals' stamp: 'mt 6/24/2019 09:49'!
allLiteralsDo: aBlock
	"This method is necessary to show the breakpoint-flag in the browser."
	
	aBlock value: #break.
	method allLiteralsDo: aBlock.!
]style[(14 1 6 2 70 4 6 1 6 1 6 10 14 1 6 1)b,cblack;,c000000126,cblack;,c000126126,cblack;,c000000126,cblack;,c000000126,cblack;,c000000126,cblack;,c000000126,cblack;,c000000126,cblack;! !

!WrappedBreakpoint methodsFor: 'literals' stamp: 'mt 6/5/2019 11:25'!
literalsDo: aBlock
	"This method is necessary to show the breakpoint-flag in the browser."
	
	aBlock value: #break.
	method literalsDo: aBlock.!
]style[(11 1 6 2 70 4 6 1 6 1 6 10 11 1 6 1)b,cblack;,c000000126,cblack;,c000126126,cblack;,c000000126,cblack;,c000000126,cblack;,c000000126,cblack;,c000000126,cblack;,c000000126,cblack;! !

Pragma removeSelector: #hasLiteralSuchThat:!
Pragma removeSelector: #literalsDo:!

!Pragma reorganize!
('accessing-method' method methodClass selector)
('accessing-pragma' argumentAt: arguments key keyword message numArgs)
('initialization' setArguments: setKeyword: setMethod:)
('printing' printOn:)
('testing')
('comparing' = analogousCodeTo: hash)
('literals' allLiteralsDo: hasLiteral:)
!

Global removeSelector: #literalsDo:!

!Global reorganize!
('converting' asBinding:)
('initialize-release' initializeWithKey:value:)
('comparing')
('evaluating' value)
('accessing' value:)
('literals' literalEqual:)
!

CompiledMethod removeSelector: #allLiterals!
CompiledMethod removeSelector: #hasLiteral:!
CompiledMethod removeSelector: #hasLiteralSuchThat:!
CompiledMethod removeSelector: #hasLiteralThorough:!
CompiledMethod removeSelector: #literalsDo:!

!CompiledMethod reorganize!
('accessing' defaultSelector dragLabel homeMethod method methodClass methodClass: methodClassAssociation methodClassAssociation: methodHome primitive properties properties: returnField searchForClass searchForSelector selector selector:)
('closures' containsBlockClosures embeddedBlockClosures nestedBlockMethods)
('comparing' equivalentTo: hasSameLiteralsAs:)
('decompiling' compilerClass decompilerClass decompileWithTemps methodForDecompile methodNode methodNodeFormattedAndDecorated: parserClass)
('evaluating' valueWithReceiver:arguments:)
('file in/out' objectForDataStream: zapSourcePointer)
('initialize-release')
('literals' allLiteralsDo: indexOfLiteral: literalStrings refersToLiteral: sendsSelector:)
('printing' abstractSymbolic dateMethodLastSubmitted decompileString headerDescription longPrintOn:indent: longPrintRelativeOn:indent: preamble primitiveErrorVariableName printPrimitiveOn: storeLiteralsOn:forClass: timeStamp)
('scanning' hasInstVarRef messages messagesDo: messagesSequence readsField: readsRef: refersTo:bytecodeScanner:thorough: scanForInstructionPattern: scanForInstructionSequence: sendsToSuper writesField: writesRef:)
('source code management' checkOKToAdd:at: copyWithSourceCode: copyWithTempNames: copyWithTempsFromMethodNode: dropSourcePointer fileIndex filePosition getPreambleFrom:at: getSourceFor:in: getSourceFromFile getSourceFromFileAt: holdsTempNames linesOfCode putSource:fromParseNode:class:category:inFile:priorMethod: putSource:fromParseNode:class:category:withStamp:inFile:priorMethod: putSource:fromParseNode:inFile:withPreamble: setSourcePointer: setSourcePosition:inFile: sourceClass sourceFileStream sourcePointer sourceSelector tempNames tempNamesString)
('testing' hasReportableSlip isAbstract isBlueBookCompiled isClosureCompiled isCompiledMethod isDisabled isDisabled: isImplicitlyRequired isInstalled isQuick isReturnField isReturnSelf isReturnSpecial isSubclassResponsibility isSubclassResponsibility: usesClosureBytecodes)
('*Tools-Inspector' inspectorClass)
('private' markerOrNil penultimateLiteral penultimateLiteral: replace:with:in:)
('accessing-pragmas & properties' pragmaAt: pragmas pragmasAt: propertyKeysAndValuesDo: propertyValueAt: propertyValueAt:ifAbsent: propertyValueAt:put: removeProperty: removeProperty:ifAbsent:)
('*Morphic-Explorer')
('*Traits-NanoKernel' originalTraitMethod originalTraitMethod: originalTraitOrClass sameTraitCodeAs:)
('tracing')
('converting' withoutPrimitive)
('copying' postCopy)
('*System-Tools-debugger support' getAndForgetUnbreakpointedOriginal)
('*System-Support')
('*Tools-Debugger-support' blockExtentsToTempsMap debuggerMap startKey tempsSubSequenceFrom:)
('*Traits-testing' isConflict isExplicitlyRequired isExplicitlyRequired: isImplicitlyRequired: isProvided isProvided: isRequired isRequired:)
('*45Deprecated' setMySourcePointer:)
('*SUnit-testing')
('*Kernel-tool support')
('*Tools-Debugger' canonicalArgumentName)
('cleaning')
('*ast-core' parseTree)
('*vivide' acceptObjectService: isTraitMethod retain)
('*MethodWrappers' clientMethod unwrappedMethod)
('*si-reflection' isSignal)
('*Etoys-Squeakland-decompiling' decompileClass:selector: methodNodeDecompileClass:selector:)
('*Etoys-Squeakland-source code management')
('*Etoys-Squeakland-scanning')
('*Etoys-Squeakland-printing' who)
('*Compiler-support' blockExtentsInto:from:to:method:numberer: mapFromBlockKeys:toSchematicTemps: startKeysToBlockExtents)
('*Compiler-private' newBlockStartMap)
!

CompiledBlock removeSelector: #allLiterals!
CompiledBlock removeSelector: #allSubLiterals!
CompiledBlock removeSelector: #hasLiteral:!
CompiledBlock removeSelector: #hasLiteralSuchThat:!
CompiledBlock removeSelector: #literalsDo:!
CompiledCode removeSelector: #hasLiteralSuchThat:!
ClassBinding removeSelector: #literalsDo:!

!ClassBinding reorganize!
('converting' asBinding:)
('accessing' canAssign value:)
('initialize-release' initializeWithKey:value:)
('testing' isSpecialWriteBinding)
('comparing')
('evaluating' value)
('literals' literalEqual:)
!

ChangeSorter removeSelector: #drag:!
ChangeSorter removeSelector: #dragMethod:!

!Alias reorganize!
('converting' asBinding:)
('initialization' initializeWithKey:source:)
('testing' isSpecialReadBinding isSpecialWriteBinding)
('error handling')
('accessing' source value:)
('evaluating' value)
('literals' literalEqual:)
!


!Binding reorganize!
('comparing' analogousCodeTo:)
('accessing' canAssign source)
('testing' isSpecialReadBinding isSpecialWriteBinding)
('objects from disk' objectForDataStream:)
('printing' printOn:)
('literals' allLiteralsDo:)
!


!Behavior reorganize!
('initialize-release' cleanUp cleanUp: emptyMethodDictionary forgetDoIts initialize nonObsoleteClass obsolete superclass:methodDictionary:format:)
('accessing' classDepth environment format methodDict name subclassDefinerClass typeOfClass)
('accessing class hierarchy' allSubclasses allSubclassesWithLevelDo:startingLevel: allSuperclasses subclasses superclass superclass: withAllSubclasses withAllSuperclasses)
('accessing instances and variables' allClassVarNames allInstances allInstVarNames allowsSubInstVars allSharedPools allSubInstances byteSizeOfInstance byteSizeOfInstanceOfSize: classVarNames elementSize instVarIndexFor:ifAbsent: instanceCount instVarNames sharedPools someInstance subclassInstVarNames)
('accessing method dictionary' allSelectors allSelectorsBelow: commentsAt: commentsIn: compiledMethodAt: compiledMethodAt:ifAbsent: compress compressedSourceCodeAt: firstCommentAt: firstPrecodeCommentFor: formalHeaderPartsFor: formalParametersAt: lookupSelector: methodDictionary methodDictionary: methodDict: methodHeaderFor: methodsDo: nextQuotePosIn:startingFrom: precodeCommentOrInheritedCommentFor: rootStubInImageSegment: selectors selectorsAndMethodsDo: selectorsDo: selectorsWithArgs: sourceCodeAt: sourceCodeAt:ifAbsent: sourceMethodAt: sourceMethodAt:ifAbsent: standardMethodHeaderFor: supermostPrecodeCommentFor: ultimateSourceCodeAt:ifAbsent: zapAllMethods >>)
('testing' canZapMethodDictionary instSize instSpec isBehavior isBits isBytes isCompiledMethodClass isEphemeronClass isFixed isImmediateClass isLongs isMeta isObsolete isPointers isShorts isVariable isWeak isWords shouldNotBeRedefined sourceMatchesBytecodeAt:)
('testing class hierarchy' includesBehavior: inheritsFrom: kindOfSubclass)
('testing method dictionary' bindingOf: bindingOf:environment: canUnderstand: classBindingOf: classBindingOf:environment: fullyImplementsVocabulary: hasMethods includesLocalSelector: includesSelector: whichClassIncludesSelector: whichMethodsStoreInto: whichSelectorsAccess: whichSelectorsReferTo: whichSelectorsStoreInto:)
('comparing' hash identityHash)
('adding/removing methods' addSelectorSilently:withMethod: addSelector:withMethod: addSelector:withMethod:notifying: basicAddSelector:withMethod: basicRemoveSelector: localSelectors removeSelectorSilently: removeSelector:)
('compiling' allowUnderscoreAssignments binding compile:environment:notifying:trailer:ifFail: compile:notifying:trailer:ifFail: compileAll compileAllFrom: compilerClass compile: compile:notifying: decompilerClass decompile: defaultMethodTrailer defaultMethodTrailerIfLogSource: evaluatorClass instVarNamesAndOffsetsDo: newCompiler newParser parserClass recompileChanges recompileNonResidentMethod:atSelector:from: recompile: recompile:from: sourceCodeTemplate variablesAndOffsetsDo:)
('enumerating' allInstancesDo: allInstancesOrNil allSubclassesDoGently: allSubclassesDo: allSubInstancesDo: allSuperclassesDo: selectSubclasses: selectSuperclasses: withAllSubclassesDo: withAllSuperAndSubclassesDo: withAllSuperAndSubclassesDoGently: withAllSuperclassesDo:)
('copying' copyOfMethodDictionary deepCopy postCopy veryDeepCopyWith:)
('instance creation' adoptInstance: basicNew basicNew: initializedInstance new new:)
('obsolete subclasses' addObsoleteSubclass: obsoleteSubclasses removeAllObsoleteSubclasses removeObsoleteSubclass:)
('printing' defaultNameStemForInstances formatterClass literalScannedAs:environment:notifying: longPrintOn: prettyPrinterClass printHierarchy printOn: printWithClosureAnalysisOn: storeLiteral:on:)
('queries' whichClassDefinesClassVar: whichClassDefinesInstVar: whichSelectorsRead: whichSuperclassSatisfies:)
('system startup' shutDown shutDown: startUp startUpFrom: startUp:)
('user interface' allUnreferencedInstanceVariables crossReference unreferencedInstanceVariables withAllSubAndSuperclassesDo:)
('private' flushCache handleFailingBasicNew handleFailingBasicNew: handleFailingFailingBasicNew handleFailingFailingBasicNew: setFormat: spaceUsed)
('*Protocols' implementsVocabulary:)
('*ShoutCore-Parsing' shoutParserClass)
('*Tools-Browser-accessors' createGetterFor: createInstVarAccessors createSetterFor: settersReturnValue)
('*System-Support' allCallsOn allCallsOn: allLocalCallsOn: allUnsentMessages)
('*45Deprecated' compile:classified:notifying:trailer:ifFail: whichSelectorsAssign:)
('*System-Changes' changeRecordsAt:)
('*Tools-Browsing' browse)
('*Tools-accessing instances and variables' inspectAllInstances inspectSubInstances)
('Backstop-Traits' allTraits hasTraitComposition traitComposition traitCompositionString)
('*Tools-icons' toolIcon toolIconSelector:)
('*ast-core' parseTreeFor:)
('*RoelTyper-enumerating' nonMetaSubclassesDo:)
('*Ocompletion' allSelectorsForCompletionWithout:)
('*vivide' anyMethodAt: detectSubInstanceSuchThat: hasVivideTools someSubInstance someSubInstances:)
('*Etoys-Squeakland-private' basicCompile:notifying:trailer:ifFail:for: selectorAtMethod:setClass:)
('*60Deprecated-testing method dictionary' thoroughWhichSelectorsReferTo:special:byte: whichSelectorsReferTo:special:byte: whichSelectorsReferTo:special:byte:thorough: whichSelectorsReferTo:thorough:)
('a new method category')
!

Association removeSelector: #hasLiteral:!
Association removeSelector: #literalsDo:!

!Association reorganize!
('accessing' key:value: value value:)
('comparing' = analogousCodeTo: hash)
('filter streaming' byteEncode:)
('printing' printOn: storeOn:)
('testing' isSpecialWriteBinding)
('*services-base-preferences' serviceUpdate)
('*environments' asBinding:)
('*JSON-writing' jsonWriteOn:)
('*vivide' acceptObjectService: asScript storeCompactOn:)
('*ston-core' stonOn:)
('literals' allLiteralsDo: literalEqual:)
!

Array removeSelector: #hasLiteral:!
Array removeSelector: #hasLiteralSuchThat:!
Array removeSelector: #literalsDo:!

!Array reorganize!
('accessing' atWrap: atWrap:put:)
('arithmetic' +* preMultiplyByArray: preMultiplyByMatrix:)
('comparing')
('converting' asArray elementsExchangeIdentityWith: elementsForwardIdentityTo: elementsForwardIdentityTo:copyHash: evalStrings)
('copying' copyWithDependent:)
('filter streaming' byteEncode:)
('printing' printAsBraceFormOn: printAsLiteralOn: printOn: storeOn:)
('self evaluating')
('testing' isArray isLiteral isLiteralIfContainedBy: shouldBePrintedAsLiteral shouldBePrintedAsLiteralVisiting:)
('private' replaceFrom:to:with:startingAt:)
('sorting' sorted:)
('*System-Object Storage-file in/out' objectForDataStream:)
('*monticellofiletree-core' writeCypressJsonOn:forHtml:indent:)
('*vivide' storeCompactOn:)
('*Etoys-Squeakland-comparing' hashMappedBy:)
('*Etoys-Squeakland-translating' literalStringsDo:)
('literals' allLiteralsDo: literalEqual:)
!

AdditionalMethodState removeSelector: #hasLiteralSuchThat:!
AdditionalMethodState removeSelector: #hasLiteralThorough:!
AdditionalMethodState removeSelector: #literalsDo:!

!AdditionalMethodState reorganize!
('testing' analogousCodeTo: hasAtLeastTheSamePropertiesAs: includes: includesKey: isEmpty isMethodProperties notEmpty)
('accessing' at: at:ifAbsent: at:ifAbsentPut: at:put: keysAndValuesDo: method methodHome pragmas properties removeKey:ifAbsent: selector selector: setMethod:)
('copying' copyWith: copyWithout: postCopy)
('properties' includesProperty: propertyKeysAndValuesDo: propertyValueAt: propertyValueAt:ifAbsent: removeKey:)
('decompiling' method:)
('*Traits-NanoKernel' originalTraitMethod originalTraitOrClass)
('printing' printOn:)
('literals' allLiteralsDo:)
!

Object removeSelector: #literalsDo:!

!Object reorganize!
('accessing' at: at:modify: at:put: basicAt: basicAt:put: basicSize bindWithTemp: enclosedSetElement ifNil:ifNotNilDo: ifNotNilDo: ifNotNilDo:ifNil: in: presenter readFromString: size yourself)
('associating' ->)
('binding' bindingOf:)
('casing' caseOf: caseOf:otherwise:)
('class membership' class inheritsFromAnyIn: isKindOf: isKindOf:orOf: isMemberOf: respondsTo: xxxClass)
('comparing' closeTo: hash identityHashPrintString literalEqual: = ~=)
('converting' adaptToFloat:andCompare: adaptToFloat:andSend: adaptToFraction:andCompare: adaptToFraction:andSend: adaptToInteger:andCompare: adaptToInteger:andSend: adaptToScaledDecimal:andCompare: asOrderedCollection asSetElement asString asStringOrText as: changeClassTo: complexContents mustBeBoolean mustBeBooleanIn: printDirectlyToDisplay withoutListWrapper)
('copying' copy copyAddedStateFrom: copyFrom: copySameFrom: copyTwoLevel deepCopy initialDeepCopierSize postCopy shallowCopy veryDeepCopy veryDeepCopySibling veryDeepCopyUsing: veryDeepCopyWith: veryDeepFixupWith: veryDeepInner:)
('debugging' haltIf: needsWork)
('debugging-haltOnce' checkHaltCountExpired clearHaltOnce decrementAndCheckHaltCount decrementHaltCount doExpiredHaltCount doExpiredHaltCount: doExpiredInspectCount haltOnCount: haltOnce haltOnceEnabled haltOnce: halt:onCount: hasHaltCount inspectOnCount: inspectOnce inspectUntilCount: removeHaltCount setHaltCountTo: setHaltOnce toggleHaltOnce)
('dependents access' addDependent: breakDependents canDiscardEdits dependents evaluate:wheneverChangeIn: hasUnacceptedEdits myDependents myDependents: release removeDependent:)
('drag and drop' acceptDroppingMorph:event:inMorph: dragPassengerFor:inMorph: dragStartedFor:transferMorph: dragTransferTypeForMorph: wantsDroppedMorph:event:inMorph:)
('error handling' assert: assert:descriptionBlock: assert:description: backwardCompatibilityOnly: caseError deprecated deprecated: deprecated:block: doesNotUnderstand: dpsTrace: dpsTrace:levels: dpsTrace:levels:withContext: error error: halt halt: handles: notify: notify:at: primitiveFailed primitiveFailed: shouldBeImplemented shouldNotImplement subclassResponsibility traitConflict)
('evaluating' value valueWithArguments:)
('filter streaming' byteEncode: drawOnCanvas: elementSeparator encodePostscriptOn: flattenOnStream: fullDrawPostscriptOn: putOn: writeOnFilterStream:)
('flagging' isThisEverCalled isThisEverCalled: logEntry logExecution logExit)
('graph model' addModelYellowButtonMenuItemsTo:forMorph:hand: hasModelYellowButtonMenuItems)
('macpal' codeStrippedOut: contentsChanged flash instanceVariableValues isUniversalTiles objectRepresented refusesToAcceptCode scriptPerformer slotInfo)
('message handling' executeMethod: perform: perform:orSendTo: perform:with:with:with:with: perform:with:with:with:with:with: perform:withArguments: perform:withArguments:inSuperclass: perform:withEnoughArguments: perform:with: perform:with:with: perform:with:with:with: withArgs:executeMethod: with:executeMethod: with:with:executeMethod: with:with:with:executeMethod: with:with:with:with:executeMethod:)
('objects from disk' comeFullyUpOnReload: convertToCurrentVersion:refStream: fixUponLoad:seg: objectForDataStream: readDataFrom:size: saveOnFile saveOnFileNamed: storeDataOn:)
('printing' fullPrintString isLiteral longPrintOn: longPrintOn:limitedTo:indent: longPrintString longPrintStringLimitedTo: nominallyUnsent: printOn: printString printStringLimitedTo: printWithClosureAnalysisOn: reportableSize storeOn: storeString stringForReadout stringRepresentation)
('scripting' adaptedToWorld: defaultFloatPrecisionFor: evaluateUnloggedForSelf: methodInterfacesForCategory:inVocabulary:limitClass: methodInterfacesForInstanceVariablesCategoryIn: methodInterfacesForScriptsCategoryIn: selfWrittenAsIll selfWrittenAsIm selfWrittenAsMe selfWrittenAsMy selfWrittenAsThis)
('system primitives' asOop className creationStamp instVarAt: instVarAt:put: instVarNamed: instVarNamed:put: oopString primitiveChangeClassTo: rootStubInImageSegment: someObject)
('testing' beViewed belongsToUniClass costumes haltIfNil isArray isBehavior isBlock isBoolean isCharacter isClassReference isClosure isCodeReference isCollection isColor isColorForm isCompiledCode isCompiledMethod isComplex isContext isDictionary isFloat isForm isFraction isHeap isInteger isInterval isMessageSend isMethodContext isMethodProperties isMethodReference isMorph isMorphicEvent isMorphicModel isNumber isPlayer isPoint isPrimitiveCostume isPromise isRectangle isScriptEditorMorph isSketchMorph isStream isString isSymbol isSystemWindow isText isTextView isTrait isTransparent isVariableBinding isWebBrowser isWindowForModel: knownName name nameForViewer renameInternal: renameTo: shouldBePrintedAsLiteral shouldBePrintedAsLiteralVisiting: showDiffs stepAt:in: stepIn: stepTime stepTimeIn: vocabularyDemanded wantsDiffFeedback wantsSteps wantsStepsIn:)
('updating' changed changed: changed:with: handledListVerification noteSelectionIndex:for: okToChange okToClose updateListsAndCodeIn: update: update:with: windowIsClosing)
('user interface' addModelItemsToWindowMenu: addModelMenuItemsTo:forMorph:hand: asExplorerString defaultLabelForInspector launchPartVia: launchPartVia:label: launchTileToRefer modelSleep modelWakeUp modelWakeUpIn: mouseUpBalk: notYetImplemented windowActiveOnFirstClick windowReqNewLabel:)
('*monticello' isConflict)
('*services-base' requestor)
('*system-support' isPrimitiveError systemNavigation)
('*Tools-Explorer' explore exploreWithLabel:)
('*tools-browser' browseHierarchy)
('private' errorImproperStore errorNonIntegerIndex errorNotIndexable errorSubscriptBounds: setPinned: species storeAt:inTempFrame:)
('thumbnail' iconOrThumbnailOfSize:)
('*Morphic-Explorer' explorerContents hasContentsInExplorer)
('futures' future future: futureDo:at:args: futureSend:at:args:)
('*Etoys-viewer' assureUniClass browseOwnClassSubProtocol categoriesForViewer: categoriesForVocabulary:limitClass: chooseNewNameForReference defaultLimitClassForVocabulary: defaultNameStemForInstances elementTypeFor:vocabulary: externalName graphicForViewerTab hasUserDefinedSlots infoFor:inViewer: initialTypeForSlotNamed: isPlayerLike methodInterfacesInPresentationOrderFrom:forCategory: newScriptorAround: newTileMorphRepresentative offerViewerMenuFor:event: offerViewerMenuForEvt:morph: renameScript: tilePhrasesForCategory:inViewer: tilePhrasesForMethodInterfaces:inViewer: tilePhrasesForSelectorList:inViewer: tileToRefer uniqueInstanceVariableNameLike:excluding: uniqueNameForReference uniqueNameForReferenceFrom: uniqueNameForReferenceOrNil updateThresholdForGraphicInViewerTab usableMethodInterfacesIn:)
('*Protocols' currentVocabulary haveFullProtocolBrowsed haveFullProtocolBrowsedShowingSelector:)
('*Etoys-tiles' basicType)
('*Tools-MessageSets' browseAllCallsOn: browseAllImplementorsOf:)
('*Tools-multi-window support' canHaveUnacceptedEdits)
('*morphic' asDraggableMorph asMorph asStringMorph asTextMorph isPluggableListMorph openAsMorph)
('*MorphicExtras-Undo' capturedState commandHistory purgeAllCommands redoFromCapturedState: refineRedoTarget:selector:arguments:in: refineUndoTarget:selector:arguments:in: rememberCommand: rememberUndoableAction:named: undoFromCapturedState:)
('*MorphicExtras-PartsBin' descriptionForPartsBin)
('tracing' inboundPointers inboundPointersExcluding: outboundPointers outboundPointersDo:)
('*Tools-Debugger' canonicalArgumentName chasePointers explorePointers shouldFollowOutboundPointers)
('*System-Object Events-accessing' actionForEvent: actionForEvent:ifAbsent: actionMap actionSequenceForEvent: actionsDo: createActionMap hasActionForEvent: setActionSequence:forEvent: updateableActionMap)
('*System-Change Notification-events' actionsWithReceiver:forEvent: renameActionsWithReceiver:forEvent:toEvent:)
('*System-Change Notification-converting' asActionSequence asActionSequenceTrappingErrors)
('*System-Tools-breakpoint' break)
('*ToolBuilder-Kernel-error handling' confirm: confirm:orCancel:)
('*EToys-user interface' eToyStreamedRepresentationNotifying:)
('*ToolBuilder-Kernel-user interface' inform:)
('*System-Support-user interface' initialExtent)
('*System-Localization-locales' localeChanged localeChangedGently translatedNoop)
('*System-Object Events-accessing-removing' releaseActionMap removeAction:forEvent: removeActionsForEvent: removeActionsSatisfying: removeActionsSatisfying:forEvent: removeActionsWithReceiver: removeActionsWithReceiver:forEvent:)
('*System-Object Events-accessing-triggering' triggerEvent: triggerEvent:ifNotHandled: triggerEvent:with: triggerEvent:with:ifNotHandled: triggerEvent:withArguments: triggerEvent:withArguments:ifNotHandled:)
('*System-Object Events-accessing-registering' when:evaluate: when:send:to: when:send:to:with: when:send:to:withArguments:)
('*Tools-inspecting' basicInspect inspect inspectWithLabel: inspectorClass)
('*Traits' explicitRequirement requirement)
('*Graphics-KernelExtensions' fullScreenSize)
('*System-Finalization' actAsExecutor executor finalizationRegistry finalize hasMultipleExecutors retryWithGC:until: toFinalizeSend:to:with:)
('*collections' asLink compareSafely:)
('*Tools-Browsing' browse)
('*System-Recovery-error handling' primitiveError:)
('*animations-support' compositeAnimations)
('*Tools-error handling' notifyWithLabel:)
('*SUnit-testing' isTestClass)
('*51Deprecated' defaultBackgroundColor dragAnimationFor:transferMorph:)
('*Morphic-Events-Filtering' filterEvent:for:)
('*System-Preferences' applyUserInterfaceTheme canApplyUserInterfaceTheme userInterfaceTheme)
('*metacello-core' metacelloIntegerLessThanSelf: metacelloSemanticIntegerLessThanSelf: metacelloSemanticStringLessThanSelf: metacelloSemanticVersionComponentLessThan: metacelloStringLessThanSelf: metacelloVersionComponentLessThan:)
('*monticellofiletree-core' writeCypressJsonForHtmlOn:indent: writeCypressJsonOn:forHtml:indent: writeCypressJsonOn:indent:)
('*signals-core' connect:signal:to:selector: connect:signal:to:selector:pattern: connect:signal:to:selector:pattern:queue: connect:signal:to:selector:pattern:queue:blocking: connect:signal:to:selector:queue: connect:signal:to:selector:queue:blocking: connect:signal:toSelector: connect:signal:toSelector:pattern: connect:signal:toSelector:pattern:queue: connect:signal:toSelector:pattern:queue:blocking: connect:signal:toSelector:queue: connect:signal:toSelector:queue:blocking: createAutoSignalConnections disconnectAllSignals disconnectSignal: disconnectSignal:from: disconnectSignal:from:selector: emit emitAlways)
('*signals-core-private' connectSignal:to:selector:pattern:queue:blocking: emitSignal:arguments:sender: hasSignalConnections signalConnections signalConnectionsRepository signalMutex)
('*widgets-events' isEventHandler)
('*widgettools-scripts' breakhere: breaktime:)
('*JSON' asJsonString)
('*vivide' <- acceptObjectService: asList asScript classBehindProxy compactStoreString drag hasVivideTools isList isScript isScriptDefinition open retain storeCompactOn:)
('*MethodWrappers' isMwMethodWrapper synchronize unsynchronize)
('*Etoys-Squeakland-accessing' customizeExplorerContents)
('*Etoys-Squeakland-comparing' eToysEQ: eToysGE: eToysGT: eToysLE: eToysLT: eToysNE:)
('*Etoys-Squeakland-error handling' eToysError:)
('*Etoys-Squeakland-Etoys-viewer' hasUserDefinedScripts)
('*Etoys-Squeakland-translation support' inline:)
('*Etoys-Squeakland-testing' isReallyString)
('*Etoys-Squeakland-user interface' launchPartOffsetVia:label:)
('*Etoys-Squeakland-translating' literalStringsDo:)
('*Etoys-Squeakland-Tweak-Kedama' test:ifTrue:ifFalse: times:repeat:)
('*Tools' environment)
('*60Deprecated-copying' clone)
('pinning' isPinned pin unpin)
('*Morphic-Kernel' currentEvent currentHand currentWorld)
('*EToys-Scripting-accessing' addInstanceVarNamed:withValue: basicAddInstanceVarNamed:withValue:)
('*60Deprecated-Tools' exploreAndYourself)
('*ston-core' fromSton: isStonReference stonContainSubObjects stonOn: stonPostReferenceResolution stonProcessSubObjects: stonShouldWriteNilInstVars)
('*Squot' browseFromSquot: hasSquotShadowName squotDecoratedLike: undecorated)
('*Squot-trackable' captureWithSquot squotAddTransientStoreInfoTo: squotInitializeStoreInfo: squotRemoveTransientStoreInfoFrom:)
('*Squot-trackable-capturing' captureWithSquot: shouldHaveNameAssignedBySquot squotCaptureSlotsIn:with: squotReactivateWith: squotRelevantInstVars squotReplacementFor: squotShadowFactory squotShouldKeepIdentity)
('*Squot-serializing' squotWrite:with:)
('*Squit' squitBrowserSupplementObjectMenu:)
('literals' allLiteralsDo: hasLiteral: hasLiteralSuchThat: hasLiteralThorough:)
!

