The Trunk: System-topa.950.mcz

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!