Tobias Pape uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-jr.919.mcz
==================== Summary ====================
Name: System-jr.919 Author: jr Time: 12 February 2017, 4:10:59.703498 pm UUID: 95683f1a-e60c-fe4e-a86a-62cc5b00a151 Ancestors: System-cmm.918
add PseudoTrait and support for it in FilePackage
main objective is to let Monticello read Trait comments from the st snapshot, which does not work when the trait definition is only treated as a doIt
=============== Diff against System-cmm.918 ===============
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!