Anyone using a newer version of Magritte for VW w/ Seaside 2.8?

> -----Original Message-----
> From: [hidden email]
> [mailto:[hidden email]] On Behalf
> Of Richard E. Flower
> Sent: jeudi, 19. juin 2008 06:05
> To: Seaside - general discussion
> Subject: [Seaside] Anyone using a newer version of Magritte
> for VW w/Seaside 2.8?
>
> I tried loading MagritteForVisualworks (lr.251
> CS12.NFR.11,niallr) and it had an issue w/ loading..  Anyone
> got a newer version for use w/ VW7.6?  Thanks!
>
> Below is the MNU backtrace:
>
> Unhandled exception: Message not understood: #current Date
> class(Object)>>doesNotUnderstand:
> Magritte.MAObject class>>license
> Magritte.MAObject class>>initialize
> Magritte.MAObject class(ClassDescription)>>postLoad:
> optimized [] in Store.Package>>initializeClasses:
> optimized [] in OrderedCollection>>collect:
> OrderedCollection>>do:
> OrderedCollection>>collect:
> Store.Package>>initializeClasses:
> Store.Package>>doSourceLoad:within:
> optimized [] in [] in
> Store.Package>>sourceLoadFromDBloadWithin:warnReplace:
> optimized [] in Store.XMainChangeSet class>>ignoreMainChangesWhile:
> BlockClosure>>ensure:
> Store.XMainChangeSet class>>ignoreMainChangesWhile:
> optimized [] in Store.Package>>sourceLoadFromDBloadWithin:warnReplace:
> optimized [] in Store.BasicPackagePolicy>>forcePackage:while:
> BlockClosure>>ensure:
> Store.BasicPackagePolicy>>forcePackage:while:
>
> ----------------------------------------------------------------------
> Date class(Object)>>doesNotUnderstand:
> Receiver:
> a Date class
> Instance Variables:
> superclass = Magnitude
> methodDict = a MethodDictionary[47]
> format = 16386
> subclasses = nil
> instanceVariables = an Array[2]
> organization = ('comparing' #< #= #hash) ('accessing'
> #- #day #leap #month #monthIndex #monthName #next #previous
> #start #weekday #year) ('arithmetic' #addDays: #subtractDate:
> #subtractDays:) ('inquiries' #dayOfMonth #dayOfYear
> #daysInMonth #daysInYear #daysLeftInYear #firstDayOfMonth
> #previous:) ('converting' #asDateAndTime #asDays #asMonth
> #asSeconds #asTimeStamp
> #asTimestamp)
> ('printing' #glorpPrintSQLOn: #longPrintString #mmddyyyy #months
> #printOn: #shortPrintString #storeOn: #yyyymmdd) ('private'
> #day:year: #firstDayOfMonthIndex: #literalArrayEncoding
> #printOn:policy:format: #weekdayIndex)
> ('private-spin-button' #decrementBy:boundedBy:highValue:wrapAround:  
> #incrementBy:boundedBy:lowValue:wrapAround:)
> ('backward compatiblity - printing' #printFormat: #printOn:format:)
>
> name = #Date
> classPool = a NameSpaceOfClass[5]
> environment = a NameSpace[228]
> Arguments:
> aMessage = a Message with selector: #current and arguments: #()
> Temporaries:
> excpt = a MessageNotUnderstood
> resumeValue = nil
> Context PC = 25
>
> ----------------------------------------------------------------------
> Magritte.MAObject class>>license
> Receiver:
> a Magritte.MAObject class
> Instance Variables:
> superclass = Object
> methodDict = a MethodDictionary[13]
> format = 16385
> subclasses = nil
> instanceVariables = an Array[1]
> organization = ('copying' #postCopy)
> ('accessing' #properties #propertyAt: #propertyAt:ifAbsent:  
> #propertyAt:ifAbsentPut: #propertyAt:ifPresent:
> #propertyAt:put:) ('visiting' #acceptMagritte:) ('testing'
> #hasProperty:) ('initialization' #initialize) ('private'
> #errorPropertyNotFound:) ('comparing' #= #hash)
>
> name = #MAObject
> classPool = a NameSpaceOfClass[0]
> environment = a FirstFindNameSpace[13]
> Context PC = 5
>
> ----------------------------------------------------------------------
> Magritte.MAObject class>>initialize
> Receiver:
> a Magritte.MAObject class
> Instance Variables:
> superclass = Object
> methodDict = a MethodDictionary[13]
> format = 16385
> subclasses = nil
> instanceVariables = an Array[1]
> organization = ('copying' #postCopy)
> ('accessing' #properties #propertyAt: #propertyAt:ifAbsent:  
> #propertyAt:ifAbsentPut: #propertyAt:ifPresent:
> #propertyAt:put:) ('visiting' #acceptMagritte:) ('testing'
> #hasProperty:) ('initialization' #initialize) ('private'
> #errorPropertyNotFound:) ('comparing' #= #hash)
>
> name = #MAObject
> classPool = a NameSpaceOfClass[0]
> environment = a FirstFindNameSpace[13]
> Context PC = 5
>
> ----------------------------------------------------------------------
> Magritte.MAObject class(ClassDescription)>>postLoad:
> Receiver:
> a Magritte.MAObject class
> Instance Variables:
> superclass = Object
> methodDict = a MethodDictionary[13]
> format = 16385
> subclasses = nil
> instanceVariables = an Array[1]
> organization = ('copying' #postCopy)
> ('accessing' #properties #propertyAt: #propertyAt:ifAbsent:  
> #propertyAt:ifAbsentPut: #propertyAt:ifPresent:
> #propertyAt:put:) ('visiting' #acceptMagritte:) ('testing'
> #hasProperty:) ('initialization' #initialize) ('private'
> #errorPropertyNotFound:) ('comparing' #= #hash)
>
> name = #MAObject
> classPool = a NameSpaceOfClass[0]
> environment = a FirstFindNameSpace[13]
> Arguments:
> aParcel = {'Magritte-Model-Core'-'lr.248'-47532}
> Context PC = 10
>
> ----------------------------------------------------------------------
> optimized [] in Store.Package>>initializeClasses:
> Receiver:
> an UndefinedObject
> Arguments:
> cls = ClassRecord{48925-MAObject}
> Temporaries:
> obj = Magritte.MAObject
> .super = {'Magritte-Model-Core'-'lr.248'-47532}
> Context PC = 14
>
> ----------------------------------------------------------------------
> optimized [] in OrderedCollection>>collect:
> Receiver:
> an UndefinedObject
> Arguments:
> each = ClassRecord{48925-MAObject}
> Temporaries:
> .newCollection = an OrderedCollection[1]
> .aBlock = BlockClosure [] in Store.Package>>initializeClasses:
> Context PC = 7
>
> ----------------------------------------------------------------------
> OrderedCollection>>do:
> Receiver:
> an OrderedCollection
> Instance Variables:
> firstIndex = 1
> lastIndex = 2
> Arguments:
> aBlock = BlockClosure [] in OrderedCollection>>collect:
> Temporaries:
> index = 2
> Context PC = 17
>
> ----------------------------------------------------------------------
> OrderedCollection>>collect:
> Receiver:
> an OrderedCollection
> Instance Variables:
> firstIndex = 1
> lastIndex = 2
> Arguments:
> aBlock = BlockClosure [] in Store.Package>>initializeClasses:
> Temporaries:
> newCollection = an OrderedCollection[1] Context PC = 16
>
> ----------------------------------------------------------------------
> Store.Package>>initializeClasses:
> Receiver:
> a Store.Package
> Instance Variables:
> primaryKey = 47532
> name = 'Magritte-Model-Core'
> timeStamp = 447072424
> version = 'lr.248'
> userName = 'NiallRoss'
> trace = 16675
> dbIdentifier = #psql_public_cst_2007
> blessingLevel = 20
> commentID = 0
> propertiesID = 0
> properties = an IdentityDictionary[0]
> propertyRecords = an OrderedCollection[0]
> commentStr = nil
> namespaces = an OrderedCollection[0]
> classes = an OrderedCollection[2]
> metaclasses = nil
> methods = an OrderedCollection[29]
> binFile = ''
> data = an OrderedCollection[0]
> overrides = nil
> parcelID = nil
> Arguments:
> dbClasses = an OrderedCollection[2]
> Temporaries:
> toPostLoad = nil
> toInit = nil
> Context PC = 8
>
> ----------------------------------------------------------------------
> Store.Package>>doSourceLoad:within:
> Receiver:
> a Store.Package
> Instance Variables:
> primaryKey = 47532
> name = 'Magritte-Model-Core'
> timeStamp = 447072424
> version = 'lr.248'
> userName = 'NiallRoss'
> trace = 16675
> dbIdentifier = #psql_public_cst_2007
> blessingLevel = 20
> commentID = 0
> propertiesID = 0
> properties = an IdentityDictionary[0]
> propertyRecords = an OrderedCollection[0]
> commentStr = nil
> namespaces = an OrderedCollection[0]
> classes = an OrderedCollection[2]
> metaclasses = nil
> methods = an OrderedCollection[29]
> binFile = ''
> data = an OrderedCollection[0]
> overrides = nil
> parcelID = nil
> Arguments:
> imPkg = [Magritte-Model-Core]
> parentBundle = {'Magritte'-'lr.251'-22236}
> Temporaries:
> dbClasses = an OrderedCollection[2]
> dbNamespaces = an OrderedCollection[0]
> retry = an OrderedCollection[0]
> unloadable = an OrderedCollection[0]
> Context PC = 51
>
> ----------------------------------------------------------------------
> optimized [] in [] in
> Store.Package>>sourceLoadFromDBloadWithin:warnReplace:
> Receiver:
> an UndefinedObject
> Temporaries:
> .imPkg = [Magritte-Model-Core]
> .parentBundle = {'Magritte'-'lr.251'-22236}
> .super = {'Magritte-Model-Core'-'lr.248'-47532}
> loadRes = nil
> Context PC = 62
>
> ----------------------------------------------------------------------
> optimized [] in Store.XMainChangeSet class>>ignoreMainChangesWhile:
> Receiver:
> an UndefinedObject
> Temporaries:
> .aBlock = BlockClosure [] in [] in
> Store.Package>>sourceLoadFromDBloadWithin:warnReplace:
> Context PC = 9
>
> ----------------------------------------------------------------------
> BlockClosure>>ensure:
> Receiver:
> a BlockClosure
> Instance Variables:
> method = CompiledBlock [] in Store.XMainChangeSet  
> class>>ignoreMainChangesWhile:
> outerContext = nil
> copiedValues = BlockClosure [] in [] in
> Store.Package>>sourceLoadFromDBloadWithin:warnReplace:
> Arguments:
> aBlock = BlockClosure [] in Store.XMainChangeSet  
> class>>ignoreMainChangesWhile:
> Temporaries:
> result = nil
> Context PC = 4
>
> ----------------------------------------------------------------------
> Store.XMainChangeSet class>>ignoreMainChangesWhile:
> Receiver:
> a Store.XMainChangeSet class
> Instance Variables:
> superclass = Store.XChangeSet
> methodDict = a MethodDictionary[108]
> format = 20486
> subclasses = nil
> instanceVariables = an Array[2]
> organization = ('public-method changes'
> #addSelector:class:toPackage:  
> #changeSelector:class:toPackage: #correctSelector:class:toPackage:  
> #removeSelector:class: #removeSelector:class:fromPackage:  
> #removeSelectorChanges:class: #revertData:owner:
> #revertSelector:class:) ('public-data changes'
> #addDataKey:class:package:  
> #addDataKey:nameSpace:package: #changeDataKey:class:  
> #changeDataKey:class:package: #changeDataKey:nameSpace:  
> #changeDataKey:nameSpace:package: #relocateBinding:from:to:  
> #removeBinding:in: #removeChangesDataKey:class:
> #removeDataKey:class:  
> #removeDataKey:class:from: #removeDataKey:nameSpace:  
> #removeDataKey:nameSpace:from: #renameBinding:in:as:)
> ('public-fileIn/Out' #putStatsOn:) ('public-other changes'
> #addDoIt: #addPatch: #removeDoIt:  
> #reorganizeClassData: #reorganizeSystem) ('public-testing'
> #isEmpty #isMainChangeSet) ('public-package movement'
> #moveClassDefinition:from:toPackage:  
> #moveClassDefinition:toPackage: #moveClassModel:to:  
> #moveClassName:from:to: #moveDataKey:class:toPackage:  
> #moveDataKey:nameSpace:toPackage: #moveDataKey:owner:toPackage:  
> #moveDefinition:toPackage: #moveNameSpaceDefinition:from:toPackage:  
> #moveNameSpaceDefinition:toPackage: #moveNameSpaceModel:to:  
> #moveObject:from:to: #moveSelector:class:fromPackage:  
> #moveSelector:class:toPackage: #moveSelectors:class:toPackage:  
> #moveUnpackagedClassDefinition:toPackage:  
> #moveUnpackagedDataKey:nameSpace:toPackage:  
> #moveUnpackagedInWholeClass:toPackage:  
> #moveUnpackagedInWholeNameSpace:toPackage:  
> #moveUnpackagedNameSpaceDefinition:toPackage:  
> #moveUnpackagedSelector:class:toPackage: #moveWholeClass:toPackage:  
> #moveWholeNameSpace:toPackage: #moveWholeObject:toPackage:)
> ('events' #addBinding:in: #addBinding:in:attributes: #addClass:  
> #addClass:attributes: #addNameSpace: #addNameSpace:attributes:  
> #addSelector:class: #addSelector:class:attributes:
> #changeBinding:in:  
> #changeBinding:in:attributes: #changeClass: #changeClass:attributes:  
> #changeNameSpace: #changeNameSpace:attributes:
> #changeSelector:class:  
> #changeSelector:class:attributes:
> #changeSelector:class:documentation:  
> #changeSelector:class:protocol: #packageFromAttributes:  
> #reorganizeClass: #update:with:from:)
> ('public-namespace changes' #addNameSpace:toPackage:  
> #addNameSpaceDefinition:toPackage: #changeNameSpace:toPackage:  
> #commentNameSpace: #component:property:value: #component:renamedTo:  
> #relocateNameSpace:from:to: #removeNameSpace: #renameNameSpace:as:  
> #reorganizeNameSpace:)
> ('public-class changes' #addClass:toPackage:  
> #addClassDefinition:toPackage: #changeClass:toPackage:  
> #changeDefinitionClass: #commentClass: #relocateClass:from:to:  
> #removeChangesPropagatingClass: #removeClass: #removeClass:from:  
> #removeClassChanges: #renameClass:as:)
> ('private- cascade changes' #cascadeRelocateNameSpace:to:  
> #renameClass:asAbsoluteSymbol: #renameNameSpace:asAbsoluteSymbol:)
> ('private-fileIn/Out' #fileOutSpecialOn:) ('events-parcels'
> #installedClasses:toPackage:  
> #installedMethods:toPackage: #installedNameSpaces:toPackage:  
> #installedOverrideMethods:toPackage:)
> ('db phantoms' #addRemoveClass:package: #addRemoveNameSpace:package:  
> #addRemoveSelector:className:meta:package:  
> #addRemoveStatic:ownerName:isInNameSpace:package:)
>
> name = #XMainChangeSet
> classPool = a NameSpaceOfClass[0]
> environment = a NameSpace[255]
> Arguments:
> aBlock = BlockClosure [] in [] in
> Store.Package>>sourceLoadFromDBloadWithin:warnReplace:
> Temporaries:
> currentCS = a Store.XMainChangeSet[1977] Context PC = 15
>
> ----------------------------------------------------------------------
> optimized [] in Store.Package>>sourceLoadFromDBloadWithin:warnReplace:
> Receiver:
> an UndefinedObject
> Temporaries:
> .imPkg = [Magritte-Model-Core]
> .parentBundle = {'Magritte'-'lr.251'-22236}
> .super = {'Magritte-Model-Core'-'lr.248'-47532}
> loadRes = nil
> Context PC = 12
>
> ----------------------------------------------------------------------
>
>
> _______________________________________________
> seaside mailing list
> [hidden email]
> http://lists.squeakfoundation.org/cgi-bin/mailman/listinfo/seaside
>

> Hi Rick,
>
> I'm using this combination. I just make sure that Date class >>  
> current
> is implemented to send #today before loading Magritte, then everything
> is just fine.
>
>
>
>
>> -----Original Message-----
>> From: [hidden email]
>> [mailto:[hidden email]] On Behalf
>> Of Richard E. Flower
>> Sent: jeudi, 19. juin 2008 06:05
>> To: Seaside - general discussion
>> Subject: [Seaside] Anyone using a newer version of Magritte
>> for VW w/Seaside 2.8?
>>
>> I tried loading MagritteForVisualworks (lr.251
>> CS12.NFR.11,niallr) and it had an issue w/ loading..  Anyone
>> got a newer version for use w/ VW7.6?  Thanks!
>>
>> Below is the MNU backtrace:
>>
>> Unhandled exception: Message not understood: #current Date
>> class(Object)>>doesNotUnderstand:
>> Magritte.MAObject class>>license
>> Magritte.MAObject class>>initialize
>> Magritte.MAObject class(ClassDescription)>>postLoad:
>> optimized [] in Store.Package>>initializeClasses:
>> optimized [] in OrderedCollection>>collect:
>> OrderedCollection>>do:
>> OrderedCollection>>collect:
>> Store.Package>>initializeClasses:
>> Store.Package>>doSourceLoad:within:
>> optimized [] in [] in
>> Store.Package>>sourceLoadFromDBloadWithin:warnReplace:
>> optimized [] in Store.XMainChangeSet class>>ignoreMainChangesWhile:
>> BlockClosure>>ensure:
>> Store.XMainChangeSet class>>ignoreMainChangesWhile:
>> optimized [] in  
>> Store.Package>>sourceLoadFromDBloadWithin:warnReplace:
>> optimized [] in Store.BasicPackagePolicy>>forcePackage:while:
>> BlockClosure>>ensure:
>> Store.BasicPackagePolicy>>forcePackage:while:
>>
>> ----------------------------------------------------------------------
>> Date class(Object)>>doesNotUnderstand:
>> Receiver:
>> a Date class
>> Instance Variables:
>> superclass = Magnitude
>> methodDict = a MethodDictionary[47]
>> format = 16386
>> subclasses = nil
>> instanceVariables = an Array[2]
>> organization = ('comparing' #< #= #hash) ('accessing'
>> #- #day #leap #month #monthIndex #monthName #next #previous
>> #start #weekday #year) ('arithmetic' #addDays: #subtractDate:
>> #subtractDays:) ('inquiries' #dayOfMonth #dayOfYear
>> #daysInMonth #daysInYear #daysLeftInYear #firstDayOfMonth
>> #previous:) ('converting' #asDateAndTime #asDays #asMonth
>> #asSeconds #asTimeStamp
>> #asTimestamp)
>> ('printing' #glorpPrintSQLOn: #longPrintString #mmddyyyy #months
>> #printOn: #shortPrintString #storeOn: #yyyymmdd) ('private'
>> #day:year: #firstDayOfMonthIndex: #literalArrayEncoding
>> #printOn:policy:format: #weekdayIndex)
>> ('private-spin-button' #decrementBy:boundedBy:highValue:wrapAround:
>> #incrementBy:boundedBy:lowValue:wrapAround:)
>> ('backward compatiblity - printing' #printFormat: #printOn:format:)
>>
>> name = #Date
>> classPool = a NameSpaceOfClass[5]
>> environment = a NameSpace[228]
>> Arguments:
>> aMessage = a Message with selector: #current and arguments: #()
>> Temporaries:
>> excpt = a MessageNotUnderstood
>> resumeValue = nil
>> Context PC = 25
>>
>> ----------------------------------------------------------------------
>> Magritte.MAObject class>>license
>> Receiver:
>> a Magritte.MAObject class
>> Instance Variables:
>> superclass = Object
>> methodDict = a MethodDictionary[13]
>> format = 16385
>> subclasses = nil
>> instanceVariables = an Array[1]
>> organization = ('copying' #postCopy)
>> ('accessing' #properties #propertyAt: #propertyAt:ifAbsent:
>> #propertyAt:ifAbsentPut: #propertyAt:ifPresent:
>> #propertyAt:put:) ('visiting' #acceptMagritte:) ('testing'
>> #hasProperty:) ('initialization' #initialize) ('private'
>> #errorPropertyNotFound:) ('comparing' #= #hash)
>>
>> name = #MAObject
>> classPool = a NameSpaceOfClass[0]
>> environment = a FirstFindNameSpace[13]
>> Context PC = 5
>>
>> ----------------------------------------------------------------------
>> Magritte.MAObject class>>initialize
>> Receiver:
>> a Magritte.MAObject class
>> Instance Variables:
>> superclass = Object
>> methodDict = a MethodDictionary[13]
>> format = 16385
>> subclasses = nil
>> instanceVariables = an Array[1]
>> organization = ('copying' #postCopy)
>> ('accessing' #properties #propertyAt: #propertyAt:ifAbsent:
>> #propertyAt:ifAbsentPut: #propertyAt:ifPresent:
>> #propertyAt:put:) ('visiting' #acceptMagritte:) ('testing'
>> #hasProperty:) ('initialization' #initialize) ('private'
>> #errorPropertyNotFound:) ('comparing' #= #hash)
>>
>> name = #MAObject
>> classPool = a NameSpaceOfClass[0]
>> environment = a FirstFindNameSpace[13]
>> Context PC = 5
>>
>> ----------------------------------------------------------------------
>> Magritte.MAObject class(ClassDescription)>>postLoad:
>> Receiver:
>> a Magritte.MAObject class
>> Instance Variables:
>> superclass = Object
>> methodDict = a MethodDictionary[13]
>> format = 16385
>> subclasses = nil
>> instanceVariables = an Array[1]
>> organization = ('copying' #postCopy)
>> ('accessing' #properties #propertyAt: #propertyAt:ifAbsent:
>> #propertyAt:ifAbsentPut: #propertyAt:ifPresent:
>> #propertyAt:put:) ('visiting' #acceptMagritte:) ('testing'
>> #hasProperty:) ('initialization' #initialize) ('private'
>> #errorPropertyNotFound:) ('comparing' #= #hash)
>>
>> name = #MAObject
>> classPool = a NameSpaceOfClass[0]
>> environment = a FirstFindNameSpace[13]
>> Arguments:
>> aParcel = {'Magritte-Model-Core'-'lr.248'-47532}
>> Context PC = 10
>>
>> ----------------------------------------------------------------------
>> optimized [] in Store.Package>>initializeClasses:
>> Receiver:
>> an UndefinedObject
>> Arguments:
>> cls = ClassRecord{48925-MAObject}
>> Temporaries:
>> obj = Magritte.MAObject
>> .super = {'Magritte-Model-Core'-'lr.248'-47532}
>> Context PC = 14
>>
>> ----------------------------------------------------------------------
>> optimized [] in OrderedCollection>>collect:
>> Receiver:
>> an UndefinedObject
>> Arguments:
>> each = ClassRecord{48925-MAObject}
>> Temporaries:
>> .newCollection = an OrderedCollection[1]
>> .aBlock = BlockClosure [] in Store.Package>>initializeClasses:
>> Context PC = 7
>>
>> ----------------------------------------------------------------------
>> OrderedCollection>>do:
>> Receiver:
>> an OrderedCollection
>> Instance Variables:
>> firstIndex = 1
>> lastIndex = 2
>> Arguments:
>> aBlock = BlockClosure [] in OrderedCollection>>collect:
>> Temporaries:
>> index = 2
>> Context PC = 17
>>
>> ----------------------------------------------------------------------
>> OrderedCollection>>collect:
>> Receiver:
>> an OrderedCollection
>> Instance Variables:
>> firstIndex = 1
>> lastIndex = 2
>> Arguments:
>> aBlock = BlockClosure [] in Store.Package>>initializeClasses:
>> Temporaries:
>> newCollection = an OrderedCollection[1] Context PC = 16
>>
>> ----------------------------------------------------------------------
>> Store.Package>>initializeClasses:
>> Receiver:
>> a Store.Package
>> Instance Variables:
>> primaryKey = 47532
>> name = 'Magritte-Model-Core'
>> timeStamp = 447072424
>> version = 'lr.248'
>> userName = 'NiallRoss'
>> trace = 16675
>> dbIdentifier = #psql_public_cst_2007
>> blessingLevel = 20
>> commentID = 0
>> propertiesID = 0
>> properties = an IdentityDictionary[0]
>> propertyRecords = an OrderedCollection[0]
>> commentStr = nil
>> namespaces = an OrderedCollection[0]
>> classes = an OrderedCollection[2]
>> metaclasses = nil
>> methods = an OrderedCollection[29]
>> binFile = ''
>> data = an OrderedCollection[0]
>> overrides = nil
>> parcelID = nil
>> Arguments:
>> dbClasses = an OrderedCollection[2]
>> Temporaries:
>> toPostLoad = nil
>> toInit = nil
>> Context PC = 8
>>
>> ----------------------------------------------------------------------
>> Store.Package>>doSourceLoad:within:
>> Receiver:
>> a Store.Package
>> Instance Variables:
>> primaryKey = 47532
>> name = 'Magritte-Model-Core'
>> timeStamp = 447072424
>> version = 'lr.248'
>> userName = 'NiallRoss'
>> trace = 16675
>> dbIdentifier = #psql_public_cst_2007
>> blessingLevel = 20
>> commentID = 0
>> propertiesID = 0
>> properties = an IdentityDictionary[0]
>> propertyRecords = an OrderedCollection[0]
>> commentStr = nil
>> namespaces = an OrderedCollection[0]
>> classes = an OrderedCollection[2]
>> metaclasses = nil
>> methods = an OrderedCollection[29]
>> binFile = ''
>> data = an OrderedCollection[0]
>> overrides = nil
>> parcelID = nil
>> Arguments:
>> imPkg = [Magritte-Model-Core]
>> parentBundle = {'Magritte'-'lr.251'-22236}
>> Temporaries:
>> dbClasses = an OrderedCollection[2]
>> dbNamespaces = an OrderedCollection[0]
>> retry = an OrderedCollection[0]
>> unloadable = an OrderedCollection[0]
>> Context PC = 51
>>
>> ----------------------------------------------------------------------
>> optimized [] in [] in
>> Store.Package>>sourceLoadFromDBloadWithin:warnReplace:
>> Receiver:
>> an UndefinedObject
>> Temporaries:
>> .imPkg = [Magritte-Model-Core]
>> .parentBundle = {'Magritte'-'lr.251'-22236}
>> .super = {'Magritte-Model-Core'-'lr.248'-47532}
>> loadRes = nil
>> Context PC = 62
>>
>> ----------------------------------------------------------------------
>> optimized [] in Store.XMainChangeSet class>>ignoreMainChangesWhile:
>> Receiver:
>> an UndefinedObject
>> Temporaries:
>> .aBlock = BlockClosure [] in [] in
>> Store.Package>>sourceLoadFromDBloadWithin:warnReplace:
>> Context PC = 9
>>
>> ----------------------------------------------------------------------
>> BlockClosure>>ensure:
>> Receiver:
>> a BlockClosure
>> Instance Variables:
>> method = CompiledBlock [] in Store.XMainChangeSet
>> class>>ignoreMainChangesWhile:
>> outerContext = nil
>> copiedValues = BlockClosure [] in [] in
>> Store.Package>>sourceLoadFromDBloadWithin:warnReplace:
>> Arguments:
>> aBlock = BlockClosure [] in Store.XMainChangeSet
>> class>>ignoreMainChangesWhile:
>> Temporaries:
>> result = nil
>> Context PC = 4
>>
>> ----------------------------------------------------------------------
>> Store.XMainChangeSet class>>ignoreMainChangesWhile:
>> Receiver:
>> a Store.XMainChangeSet class
>> Instance Variables:
>> superclass = Store.XChangeSet
>> methodDict = a MethodDictionary[108]
>> format = 20486
>> subclasses = nil
>> instanceVariables = an Array[2]
>> organization = ('public-method changes'
>> #addSelector:class:toPackage:
>> #changeSelector:class:toPackage: #correctSelector:class:toPackage:
>> #removeSelector:class: #removeSelector:class:fromPackage:
>> #removeSelectorChanges:class: #revertData:owner:
>> #revertSelector:class:) ('public-data changes'
>> #addDataKey:class:package:
>> #addDataKey:nameSpace:package: #changeDataKey:class:
>> #changeDataKey:class:package: #changeDataKey:nameSpace:
>> #changeDataKey:nameSpace:package: #relocateBinding:from:to:
>> #removeBinding:in: #removeChangesDataKey:class:
>> #removeDataKey:class:
>> #removeDataKey:class:from: #removeDataKey:nameSpace:
>> #removeDataKey:nameSpace:from: #renameBinding:in:as:)
>> ('public-fileIn/Out' #putStatsOn:) ('public-other changes'
>> #addDoIt: #addPatch: #removeDoIt:
>> #reorganizeClassData: #reorganizeSystem) ('public-testing'
>> #isEmpty #isMainChangeSet) ('public-package movement'
>> #moveClassDefinition:from:toPackage:
>> #moveClassDefinition:toPackage: #moveClassModel:to:
>> #moveClassName:from:to: #moveDataKey:class:toPackage:
>> #moveDataKey:nameSpace:toPackage: #moveDataKey:owner:toPackage:
>> #moveDefinition:toPackage: #moveNameSpaceDefinition:from:toPackage:
>> #moveNameSpaceDefinition:toPackage: #moveNameSpaceModel:to:
>> #moveObject:from:to: #moveSelector:class:fromPackage:
>> #moveSelector:class:toPackage: #moveSelectors:class:toPackage:
>> #moveUnpackagedClassDefinition:toPackage:
>> #moveUnpackagedDataKey:nameSpace:toPackage:
>> #moveUnpackagedInWholeClass:toPackage:
>> #moveUnpackagedInWholeNameSpace:toPackage:
>> #moveUnpackagedNameSpaceDefinition:toPackage:
>> #moveUnpackagedSelector:class:toPackage: #moveWholeClass:toPackage:
>> #moveWholeNameSpace:toPackage: #moveWholeObject:toPackage:)
>> ('events' #addBinding:in: #addBinding:in:attributes: #addClass:
>> #addClass:attributes: #addNameSpace: #addNameSpace:attributes:
>> #addSelector:class: #addSelector:class:attributes:
>> #changeBinding:in:
>> #changeBinding:in:attributes: #changeClass: #changeClass:attributes:
>> #changeNameSpace: #changeNameSpace:attributes:
>> #changeSelector:class:
>> #changeSelector:class:attributes:
>> #changeSelector:class:documentation:
>> #changeSelector:class:protocol: #packageFromAttributes:
>> #reorganizeClass: #update:with:from:)
>> ('public-namespace changes' #addNameSpace:toPackage:
>> #addNameSpaceDefinition:toPackage: #changeNameSpace:toPackage:
>> #commentNameSpace: #component:property:value: #component:renamedTo:
>> #relocateNameSpace:from:to: #removeNameSpace: #renameNameSpace:as:
>> #reorganizeNameSpace:)
>> ('public-class changes' #addClass:toPackage:
>> #addClassDefinition:toPackage: #changeClass:toPackage:
>> #changeDefinitionClass: #commentClass: #relocateClass:from:to:
>> #removeChangesPropagatingClass: #removeClass: #removeClass:from:
>> #removeClassChanges: #renameClass:as:)
>> ('private- cascade changes' #cascadeRelocateNameSpace:to:
>> #renameClass:asAbsoluteSymbol: #renameNameSpace:asAbsoluteSymbol:)
>> ('private-fileIn/Out' #fileOutSpecialOn:) ('events-parcels'
>> #installedClasses:toPackage:
>> #installedMethods:toPackage: #installedNameSpaces:toPackage:
>> #installedOverrideMethods:toPackage:)
>> ('db phantoms' #addRemoveClass:package: #addRemoveNameSpace:package:
>> #addRemoveSelector:className:meta:package:
>> #addRemoveStatic:ownerName:isInNameSpace:package:)
>>
>> name = #XMainChangeSet
>> classPool = a NameSpaceOfClass[0]
>> environment = a NameSpace[255]
>> Arguments:
>> aBlock = BlockClosure [] in [] in
>> Store.Package>>sourceLoadFromDBloadWithin:warnReplace:
>> Temporaries:
>> currentCS = a Store.XMainChangeSet[1977] Context PC = 15
>>
>> ----------------------------------------------------------------------
>> optimized [] in  
>> Store.Package>>sourceLoadFromDBloadWithin:warnReplace:
>> Receiver:
>> an UndefinedObject
>> Temporaries:
>> .imPkg = [Magritte-Model-Core]
>> .parentBundle = {'Magritte'-'lr.251'-22236}
>> .super = {'Magritte-Model-Core'-'lr.248'-47532}
>> loadRes = nil
>> Context PC = 12
>>
>> ----------------------------------------------------------------------
>>
>>
>> _______________________________________________
>> seaside mailing list
>> [hidden email]
>> http://lists.squeakfoundation.org/cgi-bin/mailman/listinfo/seaside
>>
> _______________________________________________
> seaside mailing list
> [hidden email]
> http://lists.squeakfoundation.org/cgi-bin/mailman/listinfo/seaside
>