The Inbox: System-ct.1524.mcz

A new version of System was added to project The Inbox:
http://source.squeak.org/inbox/System-ct.1524.mcz

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

Name: System-ct.1524
Author: ct
Time: 12 July 2026, 5:06:40.461575 am
UUID: f04226d4-e503-4f1f-9a32-1645c32ca88a
Ancestors: System-ct.1522

Improves robustness of change record parsing for unrecognized class definitions. Otherwise, SqueakV60.sources cannot be opened in a file-contents browser because ProtoObject has an unusual class definition.

=============== Diff against System-ct.1522 ===============

Item was changed:
  ----- Method: ChangeRecord>>file:position:item: (in category 'initialization') -----
  file: f position: p item: aString
  	file := f.
  	position := p.
  	type := self scanStringForType: aString.
  	type == #methodRemoval ifTrue:
  		[(self scanStringForClass: aString) ifNotNil:
  			[:className|
  			 class := (meta := className endsWith: ' class')
  						ifTrue: [className allButLast: 6]
  						ifFalse: [className]]].
  	(type = #classDefinition
  	or: [type = #doit
  	and: [(aString includesSubstring: 'organization')
  		or: [aString includesSubstring: 'reorganize']]]) ifTrue:
+ 		[(self messageForDoItExpression: aString)
+ 			ifNotNil:
+ 				[:message| | index |
+ 				 class := (meta := message receiver isString not)
+ 							ifTrue: [message receiver receiver]
+ 							ifFalse: [message arguments first].
+ 				 (type = #classDefinition
+ 				 and: [(index := message selector keywords indexOf: #category:) > 0]) ifTrue:
+ 					[category := message arguments at: index]]
+ 			ifNil:
+ 				[type := #doIt]]!
- 		[(self messageForDoItExpression: aString) ifNotNil:
- 			[:message| | index |
- 			 class := (meta := message receiver isString not)
- 						ifTrue: [message receiver receiver]
- 						ifFalse: [message arguments first].
- 			 (type = #classDefinition
- 			 and: [(index := message selector keywords indexOf: #category:) > 0]) ifTrue:
- 				[category := message arguments at: index]]]!

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