[squeak-dev] The Trunk: System-topa.950.mcz

commits at source.squeak.org commits at source.squeak.org
Sat May 20 20:50:17 UTC 2017


Tobias Pape uploaded a new version of System to project The Trunk:
http://source.squeak.org/trunk/System-topa.950.mcz

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

Name: System-topa.950
Author: topa
Time: 20 May 2017, 10:50:05.027234 pm
UUID: 6bdeb556-5250-402b-af40-c917ed15f810
Ancestors: System-tpr.949, System-jr.919

Merge

=============== Diff against System-tpr.949 ===============

Item was changed:
  ----- Method: FilePackage>>doIt: (in category 'change record types') -----
  doIt: chgRec
  	| string |
  	string := chgRec string.
  	('*ubclass:*instanceVariableNames:*classVariableNames:*poolDictionaries:*category:*'
  		match: string) ifTrue:[^self classDefinition: string with: chgRec].
+ 	('*named:*uses:*category:*'
+ 		match: string) ifTrue:["Trait" ^ self traitDefinition: string with: chgRec].
  	('* class*instanceVariableNames:*'
  		match: string) ifTrue:[^self metaClassDefinition: string with: chgRec].
  	('* removeSelector: *'
  		match: string) ifTrue:[^self removedMethod: string with: chgRec].
  	('* comment:*'
  		match: string) ifTrue:[^self msgClassComment: string with: chgRec].
  	('* initialize'
  		match: string) ifTrue:[^self]. "Initialization is done based on class>>initialize"
  	('''From *'
  		match: string) ifTrue:[^self possibleSystemSource: chgRec].
  	doIts add: chgRec.!

Item was added:
+ ----- Method: FilePackage>>getBehavior:factory: (in category 'private') -----
+ getBehavior: name factory: pseudoBehaviorFactory
+ 	| pseudoBehavior |
+ 	(classes includesKey: name) ifTrue:[
+ 		^classes at: name.
+ 	].
+ 	pseudoBehavior := pseudoBehaviorFactory new.
+ 	pseudoBehavior name: name.
+ 	classes at: name put: pseudoBehavior.
+ 	^pseudoBehavior.!

Item was changed:
  ----- Method: FilePackage>>getClass: (in category 'private') -----
  getClass: className
+ 	^ self getBehavior: className factory: PseudoClass!
- 	| pseudoClass |
- 	(classes includesKey: className) ifTrue:[
- 		^classes at: className.
- 	].
- 	pseudoClass := PseudoClass new.
- 	pseudoClass name: className.
- 	classes at: className put: pseudoClass.
- 	^pseudoClass.!

Item was added:
+ ----- Method: FilePackage>>getTrait: (in category 'private') -----
+ getTrait: traitName
+ 	^ self getBehavior: traitName factory: PseudoTrait!

Item was added:
+ PseudoClass subclass: #PseudoTrait
+ 	instanceVariableNames: ''
+ 	classVariableNames: ''
+ 	poolDictionaries: ''
+ 	category: 'System-FilePackage'!
+ 
+ !PseudoTrait commentStamp: 'jr 2/12/2017 15:50' prior: 0!
+ Like a PseudoClass, but standing in for a Trait. Works identically to PseudoClass otherwise.!

Item was added:
+ ----- Method: PseudoTrait>>isTrait (in category 'testing') -----
+ isTrait
+ 	^ true!



More information about the Squeak-dev mailing list