Here the changeset which allows loading the packages with classes
having nil superclass in MC.
I'm not sure who is in change with MC, so i cross-posted it to dev list(s).
--
Best regards,
Igor Stasenko AKA sig.
'From Pharo1.0beta of 16 May 2008 [Latest update: #10451] on 25 September 2009 at 10:42:32 pm'!
!MCClassDefinition methodsFor: 'comparing' stamp: 'Igor.Stasenko 9/25/2009 22:33'!
requirements
^ superclassName == #nil ifTrue: [ self poolDictionaries ]
ifFalse: [ (Array with: superclassName), self poolDictionaries ]! !
!MCClassDefinition methodsFor: 'installing' stamp: 'Igor.Stasenko 9/25/2009 22:40'!
createClass
| superClass class |
superClass := (superclassName == #nil) ifTrue: [nil] ifFalse: [ Smalltalk at: superclassName ].
class := (ClassBuilder new)
name: name
inEnvironment: superClass environment
subclassOf: superClass
type: type
instanceVariableNames: self instanceVariablesString
classVariableNames: self classVariablesString
poolDictionaries: self sharedPoolsString
category: category.
self traitComposition ifNotNil: [
class setTraitComposition: (Compiler
evaluate: self traitComposition) asTraitComposition ].
self classTraitComposition ifNotNil: [
class class setTraitComposition: (Compiler
evaluate: self classTraitComposition) asTraitComposition ].
^class.
! !
!MCClassDefinition reorganize!
('*Polymorph-Tools-Diff' classDefinitionString printClassDefinitionOn:)
('accessing' actualClass category classInstVarNames className classTraitComposition classTraitCompositionString classVarNames comment commentStamp description instVarNames poolDictionaries selectVariables: sortKey sortedVariables superclassName traitComposition traitCompositionString type variables)
('annotations' printAnnotations:on:)
('comparing' hash provisions requirements)
('initializing' addVariables:ofType: defaultCommentStamp initializeWithName:superclassName:category:instVarNames:classVarNames:poolDictionaryNames:classInstVarNames:type:comment:commentStamp: initializeWithName:superclassName:traitComposition:classTraitComposition:category:instVarNames:classVarNames:poolDictionaryNames:classInstVarNames:type:comment:commentStamp:)
('installing' createClass load stringForSortedVariablesOfType: stringForVariablesOfType: unload)
('printing' classInstanceVariablesString classVariablesString definitionString instanceVariablesString kindOfSubclass printDefinitionOn: sharedPoolsString source summary)
('serializing' storeDataOn:)
('testing' hasClassInstanceVariables hasClassTraitComposition hasComment hasTraitComposition isClassDefinition isCodeDefinition)
('visiting' accept: =)
!
_______________________________________________
Pharo-project mailing list
[email protected]
http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project
