[squeak-dev] The Trunk: Monticello-eem.592.mcz

commits at source.squeak.org commits at source.squeak.org
Sat May 10 03:03:27 UTC 2014


Eliot Miranda uploaded a new version of Monticello to project The Trunk:
http://source.squeak.org/trunk/Monticello-eem.592.mcz

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

Name: Monticello-eem.592
Author: eem
Time: 9 May 2014, 8:02:58.692 pm
UUID: cd1e8b42-aabc-4cd6-9444-a27763d253cd
Ancestors: Monticello-cmm.591

Default category in MCMethodDefinition when category name
is nil.

Provide some Spur compatibility allowing Spur packages to
be browsed.

=============== Diff against Monticello-cmm.591 ===============

Item was changed:
  ----- Method: MCClassDefinition>>kindOfSubclass (in category 'printing') -----
  kindOfSubclass
+ 	type = #normal ifTrue: [^' subclass: '].
+ 	type = #variable ifTrue: [^' variableSubclass: '].
+ 	type = #bytes ifTrue: [^' variableByteSubclass: '].
+ 	type = #compiledMethod ifTrue: [^' variableByteSubclass: ' ].
+ 	type = #words ifTrue: [^' variableWordSubclass: '].
+ 	type = #weak ifTrue: [^' weakSubclass: ' ].
+ 	type = #ephemeron ifTrue: [^' ephemeronSubclass: ' ].
+ 	type = #immediate ifTrue: [^' immediateSubclass: ' ].
+ 	self error: 'Unrecognized class type'
+ !
- 	type = #normal ifTrue: [^ ' subclass: '].
- 	type = #words ifTrue: [^ ' variableWordSubclass: '].
- 	type = #variable ifTrue: [^ ' variableSubclass: '].
- 	type = #bytes ifTrue: [^ ' variableByteSubclass: '].
- 	type = #weak ifTrue: [^ ' weakSubclass: ' ].
- 	type = #compiledMethod ifTrue: [^ ' variableByteSubclass: ' ].
- 	self error: 'Unrecognized class type'!

Item was changed:
  ----- Method: MCMethodDefinition>>initializeWithClassName:classIsMeta:selector:category:timeStamp:source: (in category 'serializing') -----
  initializeWithClassName: classString
  classIsMeta: metaBoolean
  selector: selectorString
  category: catString
  timeStamp: timeString
  source: sourceString
  	className := classString asSymbol.
  	selector := selectorString asSymbol.
+ 	category := catString ifNil: [Categorizer default] ifNotNil: [catString asSymbol].
- 	category := catString asSymbol.
  	timeStamp := timeString.
  	classIsMeta := metaBoolean.
+ 	source := sourceString withSqueakLineEndings!
- 	source := sourceString withSqueakLineEndings.
- !



More information about the Squeak-dev mailing list