[Seaside] Anyone using a newer version of Magritte for VW
w/Seaside 2.8?
Richard E. Flower
rickf at ca-flower.com
Thu Jun 19 14:25:13 UTC 2008
Thanks Michel --
That works like a charm.. I created a nice little override and all is
good!
-- Rick
On Jun 18, 2008, at 11:04 PM, Bany, Michel wrote:
> 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: seaside-bounces at lists.squeakfoundation.org
>> [mailto:seaside-bounces at lists.squeakfoundation.org] 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
>> seaside at lists.squeakfoundation.org
>> http://lists.squeakfoundation.org/cgi-bin/mailman/listinfo/seaside
>>
> _______________________________________________
> seaside mailing list
> seaside at lists.squeakfoundation.org
> http://lists.squeakfoundation.org/cgi-bin/mailman/listinfo/seaside
>
More information about the seaside
mailing list