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!