- Pharo-dev - lists.pharo.org

Re: [Pharo-project] Mouse down events are being processed twice

by StÃ©phane Ducasse

:) >> It's our Pharo :) And, it's usually easier to fix the bug than to suffer > from it ;-) > > Sean > > -- > View this message in context: http://forum.world.st/Mouse-down-events-are-being-processed-twice-tp4635339… > Sent from the Pharo Smalltalk mailing list archive at Nabble.com. >

June 19, 2012

Re: [Pharo-project] Integer>>asDateFromZip

by Sven Van Caekenberghe

OK, I patched with those changes, it works now, Thx! I tagged issue 6054 as FixToInclude. On 19 Jun 2012, at 14:18, Sean P. DeNigris wrote: > > Sven Van Caekenberghe wrote >> >> Is there some quick patch that I could do to get passed this, as it is >> blocking the loading of code, which is rather fundamental. >> > > I didn't realize this hadn't been integrated... > http://code.google.com/p/pharo/issues/detail?id=6054 > > -- > View this message in context: http://forum.world.st/Integer-asDateFromZip-tp4635452p4635460.html > Sent from the Pharo Smalltalk mailing list archive at Nabble.com. >

June 19, 2012

Re: [Pharo-project] Version of method broken

by Benjamin

I can have a look. Now I can't, but I will in the end of the week :) Think about opening an issue on the issue tracker, with me as cc, type nautilus and milestone 1.4 :) Thanks in advance, Ben On Jun 18, 2012, at 11:11 PM, Mariano Martinez Peck wrote: > > > On Mon, Jun 18, 2012 at 9:21 PM, Davide Varvello <varvello(a)yahoo.com> wrote: > Hi, > Suddenly methods' version is broken, i.e. when I click on a method and > select "versions", the "recent versions" panel appears but looking at method > versions, no differences is displayed with standard red and green colors and > moreover revert button does not work anymore. > > Hi Davide. All I can say is that I remember seeing this bug in previous versions of Nautilus. > Of course this has been fixed in latest Nautilus versions but they are available only for Pharo 2.0. > I guess the version of Nautilus that works in 1.4 is a little bit old. We (Ben) cannot maintain Nautilus working with both versions so in 1.4.1 you need to stick to that version. > Maybe someone can take that version and create a new one with the bug fix... > > I'm on Pharo 1.4 with Nautilus. > Hints? > Thanks > Davide > > -- > View this message in context: http://forum.world.st/Version-of-method-broken-tp4635379.html > Sent from the Pharo Smalltalk mailing list archive at Nabble.com. > > > > > -- > Mariano > http://marianopeck.wordpress.com >

June 19, 2012

[Pharo-project] The Magic of FileSystem

by Sean P. DeNigris

This... localFileName: aString | dir entry parent fileNameWithoutTrailingSlash | super localFileName: aString. parent := FileDirectory default. self flag: 'directoryExists: fails if trailing slash. Replace this whole mess with FS'. fileNameWithoutTrailingSlash := fileName last = $/ ifTrue: [ fileName allButLast ] ifFalse: [ fileName ]. (parent directoryExists: fileNameWithoutTrailingSlash) ifTrue: [ dir := FileDirectory on: (parent fullNameFor: fileName). entry := dir directoryEntry. self modifiedAt: (DateAndTime fromSeconds: entry modificationTime) ]. fileName last = $/ ifFalse: [ fileName := fileName, '/' ]. (which I *think* had an undiscovered bug, invisible due to the complexity) vs. This... localFileName: aString | file | super localFileName: aString. file := aString asFileReference. file exists ifFalse: [ ^ self ]. self modifiedAt: file entry modificationTime. Ahhhh... Cheers, Sean -- View this message in context: http://forum.world.st/The-Magic-of-FileSystem-tp4635471.html Sent from the Pharo Smalltalk mailing list archive at Nabble.com.

June 19, 2012

Re: [Pharo-project] Process Tests and

by Frank Shearar

On 14 June 2012 11:42, Stefan Marr <smalltalk(a)stefan-marr.de> wrote: > Hi: > > On 14 Jun 2012, at 11:34, Frank Shearar wrote: > >>>> How do you #join Processes? I can't see anything in Process' protocol >>>> for doing so. so what am I missing? >>> >>> >>> Nothing. Â Theres no support for join. Â You have to roll your own. >> >> OK, that's what I thought. Stefan's comment intrigued me. > > Yes, my fault. I added it to some random subclass somewhere, because I thought it was handy. > It is indeed not in the standard images. > > >> >> It would be kind've handy to be able to say - even though we don't use >> native threads - something like this: >> >> (0..10).map {|i| >> Â Â Thread.new { sleep(1); i } >> }.map {|t| t.value} >> >> only in a decent language: >> >> ((0 to: 10) >> Â Â collect: [:i | [(Delay forSeconds: 1) wait. i] fork]) >> Â Â Â collect: [:p | p value]. > > Yes, that was part of the discussion. > > For the options discussed of the return value of fork, we have three options: > > Â 1. self [Smalltalk-80 defines it this way, apparently] > Â Â self is the block, > Â Â it is the consistent return value for methods without real return value. > > Â Â -> I think, this is the least useful option > > Â 2. Process [current implementation] > Â Â It's the object created as the side-effect of fork. > Â Â Allows to query whether the fork already completed. > Â Â Process could be extended to offer #join (at a cost of a semaphore, presumably). > > Â 3. Promise > Â Â As the placeholder for the result value of the block computation. > Â Â Benefit is that we get an immediate handle on the result, and the > Â Â ability to wait for the completion of the process, even if we only > Â Â care for its side-effects. > > Â Â There is however currently no Promise class in Pharo. Squeak got one, I think. Yes. Also, this mention of Promise made me start to dig into Promise and Squeak's implementation of futures. That lead me back to asking the above! What I find confusing is that I don't see how a Process can return anything. I mean, in the sense that a Process is an undelimited continuation it doesn't _have_ a return type, but we can pretend for a moment that they do, or can, return. I see no way of getting that return value. Ruby's Thread#value simply waits for the thread to terrminate, and returns the value of the last expression. A bit like a block, actually. Given the long-standing behaviour of #fork (hence many out-of-image packages using it), it seems prudent to have a _new_ API for fork/join. That new API could quite happily use Promises for both forking and joining. frank > Best regards > Stefan > > > > -- > Stefan Marr > Software Languages Lab > Vrije Universiteit Brussel > Pleinlaan 2 / B-1050 Brussels / Belgium > http://soft.vub.ac.be/~smarr > Phone: +32 2 629 2974 > Fax: Â +32 2 629 3525 > >

June 19, 2012

Re: [Pharo-project] compiled method inherits from Collection?

by Henrik Sperre Johansen

On 19.06.2012 11:46, Fernando Olivero wrote: > Thanks for the info, its a shame we cant easily change the vm. > > Oh well, i should first ask for isCompiledMethod before isCollection now... > > Fernando Why? I mean, each CompiledMethod IS a collection of bytes, even though those bytes hold a special meaning. What do you do when you encounter normal ByteArrays? Cheers, Henry

June 19, 2012

Re: [Pharo-project] Integer>>asDateFromZip

by Sean P. DeNigris

Sven Van Caekenberghe wrote > > Is there some quick patch that I could do to get passed this, as it is > blocking the loading of code, which is rather fundamental. > I didn't realize this hadn't been integrated... http://code.google.com/p/pharo/issues/detail?id=6054 -- View this message in context: http://forum.world.st/Integer-asDateFromZip-tp4635452p4635460.html Sent from the Pharo Smalltalk mailing list archive at Nabble.com.

June 19, 2012

Re: [Pharo-project] Integer>>asDateFromZip

by Guillermo Polito

Haha, I did a (monthIndex max: 1) min: 12 :D On Tue, Jun 19, 2012 at 1:57 PM, Camillo Bruni <camillobruni(a)gmail.com>wrote: > I did a rather stupid hack to make that work... > basically deactivating all the sanity checks in the zip date parsing :P > > On 2012-06-19, at 13:39, Sven Van Caekenberghe wrote: > > > Even with the latest build, I still get problems with illegal Zip dates > when trying to load older MC packages, I thought this was fixed ? > > Is there some quick patch that I could do to get passed this, as it is > blocking the loading of code, which is rather fundamental. > > > > Thx, > > > > Sven > > > > > > 19 June 2012 1:37:18.454 pm > > > > VM: Mac OS - intel - 1074 - CoInterpreter > VMMaker-oscog-EstebanLorenzano.139 uuid: > 5aa53979-d7d8-4ca3-91fe-cfc3b4109c33 Dec 11 2011, > StackToRegisterMappingCogit VMMaker-oscog-EstebanLorenzano.139 uuid: > 5aa53979-d7d8-4ca3-91fe-cfc3b4109c33 Dec 11 2011, > https://git.gitorious.org/cogvm/blessed.git Commit: > 364a7f1fab69798c1bdc9575ba15e18ea319585a Date: Sun Dec 11 15:17:52 2011 > -0300 By: Esteban Lorenzano <estebanlm(a)gmail.com> > > Image: Pharo2.0a [Latest update: #20134] > > > > Array(Object)>>errorSubscriptBounds: > > Receiver: #(31 28 31 30 31 30 31 31 30 31 30 31) > > Arguments and temporary variables: > > <<error during printing> > > Receiver's instance variables: > > #(31 28 31 30 31 30 31 31 30 31 30 31) > > > > Array(Object)>>at: > > Receiver: #(31 28 31 30 31 30 31 31 30 31 30 31) > > Arguments and temporary variables: > > <<error during printing> > > Receiver's instance variables: > > #(31 28 31 30 31 30 31 31 30 31 30 31) > > > > Month class>>daysInMonth:forYear: > > Receiver: Month > > Arguments and temporary variables: > > <<error during printing> > > Receiver's instance variables: > > superclass: Timespan > > methodDict: a > MethodDictionary(#asMonth->(Month>>#asMonth "a CompiledMethod(611...etc... > > format: 134 > > layout: nil > > instanceVariables: nil > > organization: a ClassOrganizer > > subclasses: nil > > name: #Month > > classPool: nil > > sharedPools: an OrderedCollection(ChronologyConstants) > > environment: a SystemDictionary(lots of globals) > > category: #'Kernel-Chronology' > > traitComposition: nil > > localSelectors: nil > > > > DateAndTime class>>year:month:day:hour:minute:second:nanoSecond:offset: > > Receiver: DateAndTime > > Arguments and temporary variables: > > <<error during printing> > > Receiver's instance variables: > > superclass: Magnitude > > methodDict: a MethodDictionary(#+->(DateAndTime>>#+ "a > CompiledMethod(868220928...etc... > > format: 138 > > layout: nil > > instanceVariables: #('seconds' 'offset' 'jdn' 'nanos') > > organization: a ClassOrganizer > > subclasses: {TimeStamp} > > name: #DateAndTime > > classPool: a Dictionary(#ClockProvider->Time > #DaysSinceEpoch->2456098 #LastMill...etc... > > sharedPools: an OrderedCollection(ChronologyConstants) > > environment: a SystemDictionary(lots of globals) > > category: #'Kernel-Chronology' > > traitComposition: {} > > localSelectors: nil > > > > DateAndTime class>>year:month:day:hour:minute:second:offset: > > Receiver: DateAndTime > > Arguments and temporary variables: > > <<error during printing> > > Receiver's instance variables: > > superclass: Magnitude > > methodDict: a MethodDictionary(#+->(DateAndTime>>#+ "a > CompiledMethod(868220928...etc... > > format: 138 > > layout: nil > > instanceVariables: #('seconds' 'offset' 'jdn' 'nanos') > > organization: a ClassOrganizer > > subclasses: {TimeStamp} > > name: #DateAndTime > > classPool: a Dictionary(#ClockProvider->Time > #DaysSinceEpoch->2456098 #LastMill...etc... > > sharedPools: an OrderedCollection(ChronologyConstants) > > environment: a SystemDictionary(lots of globals) > > category: #'Kernel-Chronology' > > traitComposition: {} > > localSelectors: nil > > > > DateAndTime class>>year:month:day:hour:minute:second: > > Receiver: DateAndTime > > Arguments and temporary variables: > > <<error during printing> > > Receiver's instance variables: > > superclass: Magnitude > > methodDict: a MethodDictionary(#+->(DateAndTime>>#+ "a > CompiledMethod(868220928...etc... > > format: 138 > > layout: nil > > instanceVariables: #('seconds' 'offset' 'jdn' 'nanos') > > organization: a ClassOrganizer > > subclasses: {TimeStamp} > > name: #DateAndTime > > classPool: a Dictionary(#ClockProvider->Time > #DaysSinceEpoch->2456098 #LastMill...etc... > > sharedPools: an OrderedCollection(ChronologyConstants) > > environment: a SystemDictionary(lots of globals) > > category: #'Kernel-Chronology' > > traitComposition: {} > > localSelectors: nil > > > > DateAndTime class>>year:month:day:hour:minute: > > Receiver: DateAndTime > > Arguments and temporary variables: > > <<error during printing> > > Receiver's instance variables: > > superclass: Magnitude > > methodDict: a MethodDictionary(#+->(DateAndTime>>#+ "a > CompiledMethod(868220928...etc... > > format: 138 > > layout: nil > > instanceVariables: #('seconds' 'offset' 'jdn' 'nanos') > > organization: a ClassOrganizer > > subclasses: {TimeStamp} > > name: #DateAndTime > > classPool: a Dictionary(#ClockProvider->Time > #DaysSinceEpoch->2456098 #LastMill...etc... > > sharedPools: an OrderedCollection(ChronologyConstants) > > environment: a SystemDictionary(lots of globals) > > category: #'Kernel-Chronology' > > traitComposition: {} > > localSelectors: nil > > > > DateAndTime class>>year:month:day: > > Receiver: DateAndTime > > Arguments and temporary variables: > > <<error during printing> > > Receiver's instance variables: > > superclass: Magnitude > > methodDict: a MethodDictionary(#+->(DateAndTime>>#+ "a > CompiledMethod(868220928...etc... > > format: 138 > > layout: nil > > instanceVariables: #('seconds' 'offset' 'jdn' 'nanos') > > organization: a ClassOrganizer > > subclasses: {TimeStamp} > > name: #DateAndTime > > classPool: a Dictionary(#ClockProvider->Time > #DaysSinceEpoch->2456098 #LastMill...etc... > > sharedPools: an OrderedCollection(ChronologyConstants) > > environment: a SystemDictionary(lots of globals) > > category: #'Kernel-Chronology' > > traitComposition: {} > > localSelectors: nil > > > > Date class>>year:month:day: > > Receiver: Date > > Arguments and temporary variables: > > <<error during printing> > > Receiver's instance variables: > > superclass: Timespan > > methodDict: a > MethodDictionary(#addDays:->(Date>>#addDays: "a CompiledMethod(28...etc... > > format: 134 > > layout: nil > > instanceVariables: nil > > organization: a ClassOrganizer > > subclasses: nil > > name: #Date > > classPool: nil > > sharedPools: an OrderedCollection(ChronologyConstants) > > environment: a SystemDictionary(lots of globals) > > category: #'Kernel-Chronology' > > traitComposition: {} > > localSelectors: nil > > > > SmallInteger(Integer)>>asDateFromZip > > Receiver: 15370 > > Arguments and temporary variables: > > <<error during printing> > > Receiver's instance variables: > > 15370 > > > > ZipFileMember>>readCentralDirectoryFileHeaderFrom: > > Receiver: a ZipFileMember() > > Arguments and temporary variables: > > <<error during printing> > > Receiver's instance variables: > > fileName: '' > > isCorrupt: false > > lastModFileDateTime: 1901-01-01T00:00:00+02:00 > > fileAttributeFormat: 3 > > versionMadeBy: 20 > > versionNeededToExtract: 20 > > bitFlag: 0 > > compressionMethod: 8 > > desiredCompressionMethod: 8 > > desiredCompressionLevel: 6 > > internalFileAttributes: 0 > > externalFileAttributes: 2176188416 > > cdExtraField: '' > > localExtraField: '' > > fileComment: '' > > crc32: 0 > > compressedSize: 0 > > uncompressedSize: 0 > > writeLocalHeaderRelativeOffset: nil > > readDataRemaining: nil > > externalFileName: > '/Users/sven/smalltalk/package-cache/Zinc-AWS-SvenVanCaekenbe...etc... > > stream: MultiByteFileStream: > '/Users/sven/smalltalk/package-cache/Zinc-AWS-Sven...etc... > > localHeaderRelativeOffset: 0 > > dataOffset: 0 > > > > ZipFileMember>>readFrom: > > Receiver: a ZipFileMember() > > Arguments and temporary variables: > > <<error during printing> > > Receiver's instance variables: > > fileName: '' > > isCorrupt: false > > lastModFileDateTime: 1901-01-01T00:00:00+02:00 > > fileAttributeFormat: 3 > > versionMadeBy: 20 > > versionNeededToExtract: 20 > > bitFlag: 0 > > compressionMethod: 8 > > desiredCompressionMethod: 8 > > desiredCompressionLevel: 6 > > internalFileAttributes: 0 > > externalFileAttributes: 2176188416 > > cdExtraField: '' > > localExtraField: '' > > fileComment: '' > > crc32: 0 > > compressedSize: 0 > > uncompressedSize: 0 > > writeLocalHeaderRelativeOffset: nil > > readDataRemaining: nil > > externalFileName: > '/Users/sven/smalltalk/package-cache/Zinc-AWS-SvenVanCaekenbe...etc... > > stream: MultiByteFileStream: > '/Users/sven/smalltalk/package-cache/Zinc-AWS-Sven...etc... > > localHeaderRelativeOffset: 0 > > dataOffset: 0 > > > > ZipArchive>>readMembersFrom:named: > > Receiver: a ZipArchive > > Arguments and temporary variables: > > <<error during printing> > > Receiver's instance variables: > > members: an OrderedCollection() > > centralDirectorySize: 228 > > centralDirectoryOffsetWRTStartingDiskNumber: 9759 > > zipFileComment: #[] > > writeCentralDirectoryOffset: 0 > > writeEOCDOffset: 0 > > > > ZipArchive>>readFrom: > > Receiver: a ZipArchive > > Arguments and temporary variables: > > <<error during printing> > > Receiver's instance variables: > > members: an OrderedCollection() > > centralDirectorySize: 228 > > centralDirectoryOffsetWRTStartingDiskNumber: 9759 > > zipFileComment: #[] > > writeCentralDirectoryOffset: 0 > > writeEOCDOffset: 0 > > > > MCMczReader>>zip > > Receiver: a MCMczReader > > Arguments and temporary variables: > > <<error during printing> > > Receiver's instance variables: > > stream: MultiByteFileStream: > '/Users/sven/smalltalk/package-cache/Zinc-AWS-Sven...etc... > > package: nil > > info: nil > > definitions: nil > > dependencies: nil > > zip: a ZipArchive > > infoCache: nil > > > > MCMczReader>>parseMember: > > Receiver: a MCMczReader > > Arguments and temporary variables: > > <<error during printing> > > Receiver's instance variables: > > stream: MultiByteFileStream: > '/Users/sven/smalltalk/package-cache/Zinc-AWS-Sven...etc... > > package: nil > > info: nil > > definitions: nil > > dependencies: nil > > zip: a ZipArchive > > infoCache: nil > > > > MCMczReader>>loadPackage > > Receiver: a MCMczReader > > Arguments and temporary variables: > > <<error during printing> > > Receiver's instance variables: > > stream: MultiByteFileStream: > '/Users/sven/smalltalk/package-cache/Zinc-AWS-Sven...etc... > > package: nil > > info: nil > > definitions: nil > > dependencies: nil > > zip: a ZipArchive > > infoCache: nil > > > > MCMczReader(MCVersionReader)>>package > > Receiver: a MCMczReader > > Arguments and temporary variables: > > <<error during printing> > > Receiver's instance variables: > > stream: MultiByteFileStream: > '/Users/sven/smalltalk/package-cache/Zinc-AWS-Sven...etc... > > package: nil > > info: nil > > definitions: nil > > dependencies: nil > > zip: a ZipArchive > > infoCache: nil > > > > MCMczReader(MCVersionReader)>>basicVersion > > Receiver: a MCMczReader > > Arguments and temporary variables: > > <<error during printing> > > Receiver's instance variables: > > stream: MultiByteFileStream: > '/Users/sven/smalltalk/package-cache/Zinc-AWS-Sven...etc... > > package: nil > > info: nil > > definitions: nil > > dependencies: nil > > zip: a ZipArchive > > infoCache: nil > > > > MCMczReader(MCVersionReader)>>version > > Receiver: a MCMczReader > > Arguments and temporary variables: > > <<error during printing> > > Receiver's instance variables: > > stream: MultiByteFileStream: > '/Users/sven/smalltalk/package-cache/Zinc-AWS-Sven...etc... > > package: nil > > info: nil > > definitions: nil > > dependencies: nil > > zip: a ZipArchive > > infoCache: nil > > > > [:r | r version] in MCCacheRepository>>loadVersionFromFileNamed: > > Receiver: a MCCacheRepository(/Users/sven/smalltalk/package-cache) > > Arguments and temporary variables: > > <<error during printing> > > Receiver's instance variables: > > creationTemplate: nil > > storeDiffs: nil > > cache: nil > > allFileNames: nil > > cacheFileNames: nil > > directory: UnixFileDirectory on > '/Users/sven/smalltalk/package-cache' > > packageCaches: nil > > seenFiles: nil > > > > [:s | (MCVersionReader readerClassForFileNamed: aString) > > ifNotNil: [:class | aBlock > > value: (class on: s fileName: aString)]] > in MCCacheRepository(MCFileBasedRepository)>>versionReaderForFileNamed:do: > > Receiver: a MCCacheRepository(/Users/sven/smalltalk/package-cache) > > Arguments and temporary variables: > > <<error during printing> > > Receiver's instance variables: > > creationTemplate: nil > > storeDiffs: nil > > cache: nil > > allFileNames: nil > > cacheFileNames: nil > > directory: UnixFileDirectory on > '/Users/sven/smalltalk/package-cache' > > packageCaches: nil > > seenFiles: nil > > > > MCCacheRepository(MCDirectoryRepository)>>readStreamForFileNamed:do: > > Receiver: a MCCacheRepository(/Users/sven/smalltalk/package-cache) > > Arguments and temporary variables: > > <<error during printing> > > Receiver's instance variables: > > creationTemplate: nil > > storeDiffs: nil > > cache: nil > > allFileNames: nil > > cacheFileNames: nil > > directory: UnixFileDirectory on > '/Users/sven/smalltalk/package-cache' > > packageCaches: nil > > seenFiles: nil > > > > MCCacheRepository(MCFileBasedRepository)>>versionReaderForFileNamed:do: > > Receiver: a MCCacheRepository(/Users/sven/smalltalk/package-cache) > > Arguments and temporary variables: > > <<error during printing> > > Receiver's instance variables: > > creationTemplate: nil > > storeDiffs: nil > > cache: nil > > allFileNames: nil > > cacheFileNames: nil > > directory: UnixFileDirectory on > '/Users/sven/smalltalk/package-cache' > > packageCaches: nil > > seenFiles: nil > > > > MCCacheRepository>>loadVersionFromFileNamed: > > Receiver: a MCCacheRepository(/Users/sven/smalltalk/package-cache) > > Arguments and temporary variables: > > <<error during printing> > > Receiver's instance variables: > > creationTemplate: nil > > storeDiffs: nil > > cache: nil > > allFileNames: nil > > cacheFileNames: nil > > directory: UnixFileDirectory on > '/Users/sven/smalltalk/package-cache' > > packageCaches: nil > > seenFiles: nil > > > > MCHttpRepository(MCFileBasedRepository)>>loadVersionFromFileNamed: > > Receiver: a MCHttpRepository(http://mc.stfx.eu/ZincHTTPComponents) > > Arguments and temporary variables: > > <<error during printing> > > Receiver's instance variables: > > creationTemplate: 'MCHttpRepository > > location: ''http://mc.stfx.eu/ZincHTTPComp...etc... > > storeDiffs: nil > > cache: a > Dictionary('Zinc-HTTP-SvenVanCaekenberghe.280.mcz'->a > MCVersion(Zinc-H...etc... > > allFileNames: nil > > cacheFileNames: nil > > location: 'http://mc.stfx.eu/ZincHTTPComponents' > > user: '' > > password: '' > > readerCache: nil > > > > [self loadVersionFromFileNamed: aString] in > MCHttpRepository(MCFileBasedRepository)>>versionFromFileNamed: > > Receiver: a MCHttpRepository(http://mc.stfx.eu/ZincHTTPComponents) > > Arguments and temporary variables: > > <<error during printing> > > Receiver's instance variables: > > creationTemplate: 'MCHttpRepository > > location: ''http://mc.stfx.eu/ZincHTTPComp...etc... > > storeDiffs: nil > > cache: a > Dictionary('Zinc-HTTP-SvenVanCaekenberghe.280.mcz'->a > MCVersion(Zinc-H...etc... > > allFileNames: nil > > cacheFileNames: nil > > location: 'http://mc.stfx.eu/ZincHTTPComponents' > > user: '' > > password: '' > > readerCache: nil > > > > Dictionary>>at:ifAbsent: > > Receiver: a Dictionary('Zinc-HTTP-SvenVanCaekenberghe.280.mcz'->a > MCVersion(Zinc-HTTP-SvenVanCaekenb...etc... > > Arguments and temporary variables: > > <<error during printing> > > Receiver's instance variables: > > tally: 1 > > array: an Array(nil nil nil nil > 'Zinc-HTTP-SvenVanCaekenberghe.280.mcz'->a MCVe...etc... > > > > MCHttpRepository(MCFileBasedRepository)>>versionFromFileNamed: > > Receiver: a MCHttpRepository(http://mc.stfx.eu/ZincHTTPComponents) > > Arguments and temporary variables: > > <<error during printing> > > Receiver's instance variables: > > creationTemplate: 'MCHttpRepository > > location: ''http://mc.stfx.eu/ZincHTTPComp...etc... > > storeDiffs: nil > > cache: a > Dictionary('Zinc-HTTP-SvenVanCaekenberghe.280.mcz'->a > MCVersion(Zinc-H...etc... > > allFileNames: nil > > cacheFileNames: nil > > location: 'http://mc.stfx.eu/ZincHTTPComponents' > > user: '' > > password: '' > > readerCache: nil > > > > [version := repository versionFromFileNamed: selectedVersion] in > MCFileRepositoryInspector>>version > > Receiver: a MCFileRepositoryInspector > > Arguments and temporary variables: > > <<error during printing> > > Receiver's instance variables: > > morph: a SystemWindow(418381824) > > label: nil > > modal: false > > modalValue: nil > > version: nil > > repository: a MCHttpRepository( > http://mc.stfx.eu/ZincHTTPComponents) > > versions: #(#('Zinc-Tests' 'SvenVanCaekenberghe' 2 > 'Zinc-Tests-SvenVanCaekenber...etc... > > loaded: a > Set('System-FileRegistry-StephaneDucasse.17' > 'System-Clipboard-Stepha...etc... > > newer: a Set('Zinc-Tests' 'Zinc-HTTP') > > inherited: a Set('Network-Url-TonyFleig.46' > 'EmergencyEvaluator-StephaneDucasse...etc... > > packageList: an Array(a Text for 'Zinc-HTTP' a Text for > 'Zinc-Patch-HTTPSocket'...etc... > > selectedPackage: 'Zinc-AWS' > > selectedVersion: > 'Zinc-AWS-SvenVanCaekenberghe.15.mcz' > > order: 5 > > versionInfo: nil > > pattern: nil > > packagePattern: nil > > versionPattern: nil > > > > BlockClosure>>ensure: > > Receiver: [version := repository versionFromFileNamed: > selectedVersion] > > Arguments and temporary variables: > > <<error during printing> > > Receiver's instance variables: > > outerContext: MCFileRepositoryInspector>>version > > startpc: 46 > > numArgs: 0 > > > > CursorWithMask(Cursor)>>showWhile: > > Receiver: ((CursorWithMask > > extent: (16@16) > > depth: 1 > > fromArray: #( > > 2r0 > > 2r111111111111110000000...etc... > > Arguments and temporary variables: > > <<error during printing> > > Receiver's instance variables: > > bits: a Bitmap of length 16 > > width: 16 > > height: 16 > > depth: 1 > > offset: (-1@ -1) > > maskForm: Form(16x16x1) > > > > MCFileRepositoryInspector>>version > > Receiver: a MCFileRepositoryInspector > > Arguments and temporary variables: > > <<error during printing> > > Receiver's instance variables: > > morph: a SystemWindow(418381824) > > label: nil > > modal: false > > modalValue: nil > > version: nil > > repository: a MCHttpRepository( > http://mc.stfx.eu/ZincHTTPComponents) > > versions: #(#('Zinc-Tests' 'SvenVanCaekenberghe' 2 > 'Zinc-Tests-SvenVanCaekenber...etc... > > loaded: a > Set('System-FileRegistry-StephaneDucasse.17' > 'System-Clipboard-Stepha...etc... > > newer: a Set('Zinc-Tests' 'Zinc-HTTP') > > inherited: a Set('Network-Url-TonyFleig.46' > 'EmergencyEvaluator-StephaneDucasse...etc... > > packageList: an Array(a Text for 'Zinc-HTTP' a Text for > 'Zinc-Patch-HTTPSocket'...etc... > > selectedPackage: 'Zinc-AWS' > > selectedVersion: > 'Zinc-AWS-SvenVanCaekenberghe.15.mcz' > > order: 5 > > versionInfo: nil > > pattern: nil > > packagePattern: nil > > versionPattern: nil > > > > MCFileRepositoryInspector(MCVersionInspector)>>versionSummary > > Receiver: a MCFileRepositoryInspector > > Arguments and temporary variables: > > <<error during printing> > > Receiver's instance variables: > > morph: a SystemWindow(418381824) > > label: nil > > modal: false > > modalValue: nil > > version: nil > > repository: a MCHttpRepository( > http://mc.stfx.eu/ZincHTTPComponents) > > versions: #(#('Zinc-Tests' 'SvenVanCaekenberghe' 2 > 'Zinc-Tests-SvenVanCaekenber...etc... > > loaded: a > Set('System-FileRegistry-StephaneDucasse.17' > 'System-Clipboard-Stepha...etc... > > newer: a Set('Zinc-Tests' 'Zinc-HTTP') > > inherited: a Set('Network-Url-TonyFleig.46' > 'EmergencyEvaluator-StephaneDucasse...etc... > > packageList: an Array(a Text for 'Zinc-HTTP' a Text for > 'Zinc-Patch-HTTPSocket'...etc... > > selectedPackage: 'Zinc-AWS' > > selectedVersion: > 'Zinc-AWS-SvenVanCaekenberghe.15.mcz' > > order: 5 > > versionInfo: nil > > pattern: nil > > packagePattern: nil > > versionPattern: nil > > > > MCFileRepositoryInspector(MCVersionInspector)>>summary > > Receiver: a MCFileRepositoryInspector > > Arguments and temporary variables: > > <<error during printing> > > Receiver's instance variables: > > morph: a SystemWindow(418381824) > > label: nil > > modal: false > > modalValue: nil > > version: nil > > repository: a MCHttpRepository( > http://mc.stfx.eu/ZincHTTPComponents) > > versions: #(#('Zinc-Tests' 'SvenVanCaekenberghe' 2 > 'Zinc-Tests-SvenVanCaekenber...etc... > > loaded: a > Set('System-FileRegistry-StephaneDucasse.17' > 'System-Clipboard-Stepha...etc... > > newer: a Set('Zinc-Tests' 'Zinc-HTTP') > > inherited: a Set('Network-Url-TonyFleig.46' > 'EmergencyEvaluator-StephaneDucasse...etc... > > packageList: an Array(a Text for 'Zinc-HTTP' a Text for > 'Zinc-Patch-HTTPSocket'...etc... > > selectedPackage: 'Zinc-AWS' > > selectedVersion: > 'Zinc-AWS-SvenVanCaekenberghe.15.mcz' > > order: 5 > > versionInfo: nil > > pattern: nil > > packagePattern: nil > > versionPattern: nil > > > > PluggableTextMorph>>getText > > Receiver: a PluggableTextMorph(489160704) > > Arguments and temporary variables: > > <<error during printing> > > Receiver's instance variables: > > bounds: (857.0(a)482.0) corner: (1487.0(a)653.0) > > owner: a SystemWindow(418381824) > > submorphs: an Array(a TransformMorph(142606336)) > > fullBounds: (857@482) corner: (1487@653) > > color: Color white > > extension: a MorphExtension (597164032) [locked] > [other: (kmDispatcher -> a K...etc... > > borderWidth: 1 > > borderColor: (Color r: 0.706 g: 0.706 b: 0.706) > > model: a MCFileRepositoryInspector > > open: false > > accessor: nil > > scrollBar: a ScrollBar(502267904) > > scroller: a TransformMorph(142606336) > > retractableScrollBar: false > > scrollBarOnLeft: false > > getMenuSelector: nil > > getMenuTitleSelector: nil > > hasFocus: false > > hScrollBar: a ScrollBar(323485696) > > textMorph: a TextMorphForEditView(618397696) > > getTextSelector: #summary > > setTextSelector: #summary: > > getSelectionSelector: nil > > hasUnacceptedEdits: false > > askBeforeDiscardingEdits: true > > selectionInterval: (1 to: 0) > > hasEditingConflicts: false > > acceptAction: nil > > getColorSelector: nil > > unstyledAcceptText: nil > > styler: nil > > autoAccept: nil > > enabled: true > > getEnabledSelector: nil > > highlights: an OrderedCollection() > > acceptOnFocusChange: nil > > selectionColor: nil > > alwaysAccept: nil > > changedAction: nil > > > > PluggableTextMorph>>update: > > Receiver: a PluggableTextMorph(489160704) > > Arguments and temporary variables: > > <<error during printing> > > Receiver's instance variables: > > bounds: (857.0(a)482.0) corner: (1487.0(a)653.0) > > owner: a SystemWindow(418381824) > > submorphs: an Array(a TransformMorph(142606336)) > > fullBounds: (857@482) corner: (1487@653) > > color: Color white > > extension: a MorphExtension (597164032) [locked] > [other: (kmDispatcher -> a K...etc... > > borderWidth: 1 > > borderColor: (Color r: 0.706 g: 0.706 b: 0.706) > > model: a MCFileRepositoryInspector > > open: false > > accessor: nil > > scrollBar: a ScrollBar(502267904) > > scroller: a TransformMorph(142606336) > > retractableScrollBar: false > > scrollBarOnLeft: false > > getMenuSelector: nil > > getMenuTitleSelector: nil > > hasFocus: false > > hScrollBar: a ScrollBar(323485696) > > textMorph: a TextMorphForEditView(618397696) > > getTextSelector: #summary > > setTextSelector: #summary: > > getSelectionSelector: nil > > hasUnacceptedEdits: false > > askBeforeDiscardingEdits: true > > selectionInterval: (1 to: 0) > > hasEditingConflicts: false > > acceptAction: nil > > getColorSelector: nil > > unstyledAcceptText: nil > > styler: nil > > autoAccept: nil > > enabled: true > > getEnabledSelector: nil > > highlights: an OrderedCollection() > > acceptOnFocusChange: nil > > selectionColor: nil > > alwaysAccept: nil > > changedAction: nil > > > > [:aDependent | aDependent update: aParameter] in > MCFileRepositoryInspector(Object)>>changed: > > Receiver: a MCFileRepositoryInspector > > Arguments and temporary variables: > > <<error during printing> > > Receiver's instance variables: > > morph: a SystemWindow(418381824) > > label: nil > > modal: false > > modalValue: nil > > version: nil > > repository: a MCHttpRepository( > http://mc.stfx.eu/ZincHTTPComponents) > > versions: #(#('Zinc-Tests' 'SvenVanCaekenberghe' 2 > 'Zinc-Tests-SvenVanCaekenber...etc... > > loaded: a > Set('System-FileRegistry-StephaneDucasse.17' > 'System-Clipboard-Stepha...etc... > > newer: a Set('Zinc-Tests' 'Zinc-HTTP') > > inherited: a Set('Network-Url-TonyFleig.46' > 'EmergencyEvaluator-StephaneDucasse...etc... > > packageList: an Array(a Text for 'Zinc-HTTP' a Text for > 'Zinc-Patch-HTTPSocket'...etc... > > selectedPackage: 'Zinc-AWS' > > selectedVersion: > 'Zinc-AWS-SvenVanCaekenberghe.15.mcz' > > order: 5 > > versionInfo: nil > > pattern: nil > > packagePattern: nil > > versionPattern: nil > > > > DependentsArray>>do: > > Receiver: a DependentsArray(a SystemWindow(418381824) a > PluggableButtonMorph(757071872) a PluggableB...etc... > > Arguments and temporary variables: > > <<error during printing> > > Receiver's instance variables: > > a DependentsArray(a SystemWindow(418381824) a > PluggableButtonMorph(757071872) a PluggableB...etc... > > > > > > --- The full stack --- > > Array(Object)>>errorSubscriptBounds: > > Array(Object)>>at: > > Month class>>daysInMonth:forYear: > > DateAndTime class>>year:month:day:hour:minute:second:nanoSecond:offset: > > DateAndTime class>>year:month:day:hour:minute:second:offset: > > DateAndTime class>>year:month:day:hour:minute:second: > > DateAndTime class>>year:month:day:hour:minute: > > DateAndTime class>>year:month:day: > > Date class>>year:month:day: > > SmallInteger(Integer)>>asDateFromZip > > ZipFileMember>>readCentralDirectoryFileHeaderFrom: > > ZipFileMember>>readFrom: > > ZipArchive>>readMembersFrom:named: > > ZipArchive>>readFrom: > > MCMczReader>>zip > > MCMczReader>>parseMember: > > MCMczReader>>loadPackage > > MCMczReader(MCVersionReader)>>package > > MCMczReader(MCVersionReader)>>basicVersion > > MCMczReader(MCVersionReader)>>version > > [:r | r version] in MCCacheRepository>>loadVersionFromFileNamed: > > [:s | (MCVersionReader readerClassForFileNamed: aString) > > ifNotNil: [:class | aBlock > > value: (class on: s fileName: aString)]] > in MCCacheRepository(MCFileBasedRepository)>>versionReaderForFileNamed:do: > > MCCacheRepository(MCDirectoryRepository)>>readStreamForFileNamed:do: > > MCCacheRepository(MCFileBasedRepository)>>versionReaderForFileNamed:do: > > MCCacheRepository>>loadVersionFromFileNamed: > > MCHttpRepository(MCFileBasedRepository)>>loadVersionFromFileNamed: > > [self loadVersionFromFileNamed: aString] in > MCHttpRepository(MCFileBasedRepository)>>versionFromFileNamed: > > Dictionary>>at:ifAbsent: > > MCHttpRepository(MCFileBasedRepository)>>versionFromFileNamed: > > [version := repository versionFromFileNamed: selectedVersion] in > MCFileRepositoryInspector>>version > > BlockClosure>>ensure: > > CursorWithMask(Cursor)>>showWhile: > > MCFileRepositoryInspector>>version > > MCFileRepositoryInspector(MCVersionInspector)>>versionSummary > > MCFileRepositoryInspector(MCVersionInspector)>>summary > > PluggableTextMorph>>getText > > PluggableTextMorph>>update: > > [:aDependent | aDependent update: aParameter] in > MCFileRepositoryInspector(Object)>>changed: > > DependentsArray>>do: > > - - - - - - - - - - - - - - - > > - - - - - - - - - - - - - - - - - - > > MCFileRepositoryInspector(Object)>>changed: > > MCFileRepositoryInspector>>versionSelection: > > PluggableListMorph>>changeModelSelection: > > PluggableListMorph>>mouseUpOnSingle: > > PluggableListMorph>>mouseUp: > > PluggableListMorph(Morph)>>handleMouseUp: > > MouseButtonEvent>>sentTo: > > PluggableListMorph(Morph)>>handleEvent: > > MorphicEventDispatcher>>dispatchDefault:with: > > MorphicEventDispatcher>>dispatchEvent:with: > > PluggableListMorph(Morph)>>processEvent:using: > > PluggableListMorph(Morph)>>processEvent: > > PluggableListMorph>>handleFocusEvent: > > [ActiveHand := self. > > ActiveEvent := anEvent. > > result := focusHolder > > handleFocusEvent: (anEvent > > transformedBy: > (focusHolder transformedFrom: self))] in HandMorph>>sendFocusEvent:to:clear: > > [aBlock value] in PasteUpMorph>>becomeActiveDuring: > > BlockClosure>>on:do: > > PasteUpMorph>>becomeActiveDuring: > > HandMorph>>sendFocusEvent:to:clear: > > HandMorph>>sendEvent:focus:clear: > > HandMorph>>sendMouseEvent: > > HandMorph>>handleEvent: > > HandMorph>>processEvents > > [:h | > > ActiveHand := h. > > h processEvents. > > ActiveHand := nil] in WorldState>>doOneCycleNowFor: > > Array(SequenceableCollection)>>do: > > WorldState>>handsDo: > > WorldState>>doOneCycleNowFor: > > WorldState>>doOneCycleFor: > > PasteUpMorph>>doOneCycle > > [[World doOneCycle. > > Processor yield. > > false] whileFalse. > > nil] in MorphicUIManager>>spawnNewProcess > > [self value. > > Processor terminateActive] in BlockClosure>>newProcess > > > > > > >

June 19, 2012

Re: [Pharo-project] Integer>>asDateFromZip

by Camillo Bruni

I did a rather stupid hack to make that work... basically deactivating all the sanity checks in the zip date parsing :P On 2012-06-19, at 13:39, Sven Van Caekenberghe wrote: > Even with the latest build, I still get problems with illegal Zip dates when trying to load older MC packages, I thought this was fixed ? > Is there some quick patch that I could do to get passed this, as it is blocking the loading of code, which is rather fundamental. > > Thx, > > Sven > > > 19 June 2012 1:37:18.454 pm > > VM: Mac OS - intel - 1074 - CoInterpreter VMMaker-oscog-EstebanLorenzano.139 uuid: 5aa53979-d7d8-4ca3-91fe-cfc3b4109c33 Dec 11 2011, StackToRegisterMappingCogit VMMaker-oscog-EstebanLorenzano.139 uuid: 5aa53979-d7d8-4ca3-91fe-cfc3b4109c33 Dec 11 2011, https://git.gitorious.org/cogvm/blessed.git Commit: 364a7f1fab69798c1bdc9575ba15e18ea319585a Date: Sun Dec 11 15:17:52 2011 -0300 By: Esteban Lorenzano <estebanlm(a)gmail.com> > Image: Pharo2.0a [Latest update: #20134] > > Array(Object)>>errorSubscriptBounds: > Receiver: #(31 28 31 30 31 30 31 31 30 31 30 31) > Arguments and temporary variables: > <<error during printing> > Receiver's instance variables: > #(31 28 31 30 31 30 31 31 30 31 30 31) > > Array(Object)>>at: > Receiver: #(31 28 31 30 31 30 31 31 30 31 30 31) > Arguments and temporary variables: > <<error during printing> > Receiver's instance variables: > #(31 28 31 30 31 30 31 31 30 31 30 31) > > Month class>>daysInMonth:forYear: > Receiver: Month > Arguments and temporary variables: > <<error during printing> > Receiver's instance variables: > superclass: Timespan > methodDict: a MethodDictionary(#asMonth->(Month>>#asMonth "a CompiledMethod(611...etc... > format: 134 > layout: nil > instanceVariables: nil > organization: a ClassOrganizer > subclasses: nil > name: #Month > classPool: nil > sharedPools: an OrderedCollection(ChronologyConstants) > environment: a SystemDictionary(lots of globals) > category: #'Kernel-Chronology' > traitComposition: nil > localSelectors: nil > > DateAndTime class>>year:month:day:hour:minute:second:nanoSecond:offset: > Receiver: DateAndTime > Arguments and temporary variables: > <<error during printing> > Receiver's instance variables: > superclass: Magnitude > methodDict: a MethodDictionary(#+->(DateAndTime>>#+ "a CompiledMethod(868220928...etc... > format: 138 > layout: nil > instanceVariables: #('seconds' 'offset' 'jdn' 'nanos') > organization: a ClassOrganizer > subclasses: {TimeStamp} > name: #DateAndTime > classPool: a Dictionary(#ClockProvider->Time #DaysSinceEpoch->2456098 #LastMill...etc... > sharedPools: an OrderedCollection(ChronologyConstants) > environment: a SystemDictionary(lots of globals) > category: #'Kernel-Chronology' > traitComposition: {} > localSelectors: nil > > DateAndTime class>>year:month:day:hour:minute:second:offset: > Receiver: DateAndTime > Arguments and temporary variables: > <<error during printing> > Receiver's instance variables: > superclass: Magnitude > methodDict: a MethodDictionary(#+->(DateAndTime>>#+ "a CompiledMethod(868220928...etc... > format: 138 > layout: nil > instanceVariables: #('seconds' 'offset' 'jdn' 'nanos') > organization: a ClassOrganizer > subclasses: {TimeStamp} > name: #DateAndTime > classPool: a Dictionary(#ClockProvider->Time #DaysSinceEpoch->2456098 #LastMill...etc... > sharedPools: an OrderedCollection(ChronologyConstants) > environment: a SystemDictionary(lots of globals) > category: #'Kernel-Chronology' > traitComposition: {} > localSelectors: nil > > DateAndTime class>>year:month:day:hour:minute:second: > Receiver: DateAndTime > Arguments and temporary variables: > <<error during printing> > Receiver's instance variables: > superclass: Magnitude > methodDict: a MethodDictionary(#+->(DateAndTime>>#+ "a CompiledMethod(868220928...etc... > format: 138 > layout: nil > instanceVariables: #('seconds' 'offset' 'jdn' 'nanos') > organization: a ClassOrganizer > subclasses: {TimeStamp} > name: #DateAndTime > classPool: a Dictionary(#ClockProvider->Time #DaysSinceEpoch->2456098 #LastMill...etc... > sharedPools: an OrderedCollection(ChronologyConstants) > environment: a SystemDictionary(lots of globals) > category: #'Kernel-Chronology' > traitComposition: {} > localSelectors: nil > > DateAndTime class>>year:month:day:hour:minute: > Receiver: DateAndTime > Arguments and temporary variables: > <<error during printing> > Receiver's instance variables: > superclass: Magnitude > methodDict: a MethodDictionary(#+->(DateAndTime>>#+ "a CompiledMethod(868220928...etc... > format: 138 > layout: nil > instanceVariables: #('seconds' 'offset' 'jdn' 'nanos') > organization: a ClassOrganizer > subclasses: {TimeStamp} > name: #DateAndTime > classPool: a Dictionary(#ClockProvider->Time #DaysSinceEpoch->2456098 #LastMill...etc... > sharedPools: an OrderedCollection(ChronologyConstants) > environment: a SystemDictionary(lots of globals) > category: #'Kernel-Chronology' > traitComposition: {} > localSelectors: nil > > DateAndTime class>>year:month:day: > Receiver: DateAndTime > Arguments and temporary variables: > <<error during printing> > Receiver's instance variables: > superclass: Magnitude > methodDict: a MethodDictionary(#+->(DateAndTime>>#+ "a CompiledMethod(868220928...etc... > format: 138 > layout: nil > instanceVariables: #('seconds' 'offset' 'jdn' 'nanos') > organization: a ClassOrganizer > subclasses: {TimeStamp} > name: #DateAndTime > classPool: a Dictionary(#ClockProvider->Time #DaysSinceEpoch->2456098 #LastMill...etc... > sharedPools: an OrderedCollection(ChronologyConstants) > environment: a SystemDictionary(lots of globals) > category: #'Kernel-Chronology' > traitComposition: {} > localSelectors: nil > > Date class>>year:month:day: > Receiver: Date > Arguments and temporary variables: > <<error during printing> > Receiver's instance variables: > superclass: Timespan > methodDict: a MethodDictionary(#addDays:->(Date>>#addDays: "a CompiledMethod(28...etc... > format: 134 > layout: nil > instanceVariables: nil > organization: a ClassOrganizer > subclasses: nil > name: #Date > classPool: nil > sharedPools: an OrderedCollection(ChronologyConstants) > environment: a SystemDictionary(lots of globals) > category: #'Kernel-Chronology' > traitComposition: {} > localSelectors: nil > > SmallInteger(Integer)>>asDateFromZip > Receiver: 15370 > Arguments and temporary variables: > <<error during printing> > Receiver's instance variables: > 15370 > > ZipFileMember>>readCentralDirectoryFileHeaderFrom: > Receiver: a ZipFileMember() > Arguments and temporary variables: > <<error during printing> > Receiver's instance variables: > fileName: '' > isCorrupt: false > lastModFileDateTime: 1901-01-01T00:00:00+02:00 > fileAttributeFormat: 3 > versionMadeBy: 20 > versionNeededToExtract: 20 > bitFlag: 0 > compressionMethod: 8 > desiredCompressionMethod: 8 > desiredCompressionLevel: 6 > internalFileAttributes: 0 > externalFileAttributes: 2176188416 > cdExtraField: '' > localExtraField: '' > fileComment: '' > crc32: 0 > compressedSize: 0 > uncompressedSize: 0 > writeLocalHeaderRelativeOffset: nil > readDataRemaining: nil > externalFileName: '/Users/sven/smalltalk/package-cache/Zinc-AWS-SvenVanCaekenbe...etc... > stream: MultiByteFileStream: '/Users/sven/smalltalk/package-cache/Zinc-AWS-Sven...etc... > localHeaderRelativeOffset: 0 > dataOffset: 0 > > ZipFileMember>>readFrom: > Receiver: a ZipFileMember() > Arguments and temporary variables: > <<error during printing> > Receiver's instance variables: > fileName: '' > isCorrupt: false > lastModFileDateTime: 1901-01-01T00:00:00+02:00 > fileAttributeFormat: 3 > versionMadeBy: 20 > versionNeededToExtract: 20 > bitFlag: 0 > compressionMethod: 8 > desiredCompressionMethod: 8 > desiredCompressionLevel: 6 > internalFileAttributes: 0 > externalFileAttributes: 2176188416 > cdExtraField: '' > localExtraField: '' > fileComment: '' > crc32: 0 > compressedSize: 0 > uncompressedSize: 0 > writeLocalHeaderRelativeOffset: nil > readDataRemaining: nil > externalFileName: '/Users/sven/smalltalk/package-cache/Zinc-AWS-SvenVanCaekenbe...etc... > stream: MultiByteFileStream: '/Users/sven/smalltalk/package-cache/Zinc-AWS-Sven...etc... > localHeaderRelativeOffset: 0 > dataOffset: 0 > > ZipArchive>>readMembersFrom:named: > Receiver: a ZipArchive > Arguments and temporary variables: > <<error during printing> > Receiver's instance variables: > members: an OrderedCollection() > centralDirectorySize: 228 > centralDirectoryOffsetWRTStartingDiskNumber: 9759 > zipFileComment: #[] > writeCentralDirectoryOffset: 0 > writeEOCDOffset: 0 > > ZipArchive>>readFrom: > Receiver: a ZipArchive > Arguments and temporary variables: > <<error during printing> > Receiver's instance variables: > members: an OrderedCollection() > centralDirectorySize: 228 > centralDirectoryOffsetWRTStartingDiskNumber: 9759 > zipFileComment: #[] > writeCentralDirectoryOffset: 0 > writeEOCDOffset: 0 > > MCMczReader>>zip > Receiver: a MCMczReader > Arguments and temporary variables: > <<error during printing> > Receiver's instance variables: > stream: MultiByteFileStream: '/Users/sven/smalltalk/package-cache/Zinc-AWS-Sven...etc... > package: nil > info: nil > definitions: nil > dependencies: nil > zip: a ZipArchive > infoCache: nil > > MCMczReader>>parseMember: > Receiver: a MCMczReader > Arguments and temporary variables: > <<error during printing> > Receiver's instance variables: > stream: MultiByteFileStream: '/Users/sven/smalltalk/package-cache/Zinc-AWS-Sven...etc... > package: nil > info: nil > definitions: nil > dependencies: nil > zip: a ZipArchive > infoCache: nil > > MCMczReader>>loadPackage > Receiver: a MCMczReader > Arguments and temporary variables: > <<error during printing> > Receiver's instance variables: > stream: MultiByteFileStream: '/Users/sven/smalltalk/package-cache/Zinc-AWS-Sven...etc... > package: nil > info: nil > definitions: nil > dependencies: nil > zip: a ZipArchive > infoCache: nil > > MCMczReader(MCVersionReader)>>package > Receiver: a MCMczReader > Arguments and temporary variables: > <<error during printing> > Receiver's instance variables: > stream: MultiByteFileStream: '/Users/sven/smalltalk/package-cache/Zinc-AWS-Sven...etc... > package: nil > info: nil > definitions: nil > dependencies: nil > zip: a ZipArchive > infoCache: nil > > MCMczReader(MCVersionReader)>>basicVersion > Receiver: a MCMczReader > Arguments and temporary variables: > <<error during printing> > Receiver's instance variables: > stream: MultiByteFileStream: '/Users/sven/smalltalk/package-cache/Zinc-AWS-Sven...etc... > package: nil > info: nil > definitions: nil > dependencies: nil > zip: a ZipArchive > infoCache: nil > > MCMczReader(MCVersionReader)>>version > Receiver: a MCMczReader > Arguments and temporary variables: > <<error during printing> > Receiver's instance variables: > stream: MultiByteFileStream: '/Users/sven/smalltalk/package-cache/Zinc-AWS-Sven...etc... > package: nil > info: nil > definitions: nil > dependencies: nil > zip: a ZipArchive > infoCache: nil > > [:r | r version] in MCCacheRepository>>loadVersionFromFileNamed: > Receiver: a MCCacheRepository(/Users/sven/smalltalk/package-cache) > Arguments and temporary variables: > <<error during printing> > Receiver's instance variables: > creationTemplate: nil > storeDiffs: nil > cache: nil > allFileNames: nil > cacheFileNames: nil > directory: UnixFileDirectory on '/Users/sven/smalltalk/package-cache' > packageCaches: nil > seenFiles: nil > > [:s | (MCVersionReader readerClassForFileNamed: aString) > ifNotNil: [:class | aBlock > value: (class on: s fileName: aString)]] in MCCacheRepository(MCFileBasedRepository)>>versionReaderForFileNamed:do: > Receiver: a MCCacheRepository(/Users/sven/smalltalk/package-cache) > Arguments and temporary variables: > <<error during printing> > Receiver's instance variables: > creationTemplate: nil > storeDiffs: nil > cache: nil > allFileNames: nil > cacheFileNames: nil > directory: UnixFileDirectory on '/Users/sven/smalltalk/package-cache' > packageCaches: nil > seenFiles: nil > > MCCacheRepository(MCDirectoryRepository)>>readStreamForFileNamed:do: > Receiver: a MCCacheRepository(/Users/sven/smalltalk/package-cache) > Arguments and temporary variables: > <<error during printing> > Receiver's instance variables: > creationTemplate: nil > storeDiffs: nil > cache: nil > allFileNames: nil > cacheFileNames: nil > directory: UnixFileDirectory on '/Users/sven/smalltalk/package-cache' > packageCaches: nil > seenFiles: nil > > MCCacheRepository(MCFileBasedRepository)>>versionReaderForFileNamed:do: > Receiver: a MCCacheRepository(/Users/sven/smalltalk/package-cache) > Arguments and temporary variables: > <<error during printing> > Receiver's instance variables: > creationTemplate: nil > storeDiffs: nil > cache: nil > allFileNames: nil > cacheFileNames: nil > directory: UnixFileDirectory on '/Users/sven/smalltalk/package-cache' > packageCaches: nil > seenFiles: nil > > MCCacheRepository>>loadVersionFromFileNamed: > Receiver: a MCCacheRepository(/Users/sven/smalltalk/package-cache) > Arguments and temporary variables: > <<error during printing> > Receiver's instance variables: > creationTemplate: nil > storeDiffs: nil > cache: nil > allFileNames: nil > cacheFileNames: nil > directory: UnixFileDirectory on '/Users/sven/smalltalk/package-cache' > packageCaches: nil > seenFiles: nil > > MCHttpRepository(MCFileBasedRepository)>>loadVersionFromFileNamed: > Receiver: a MCHttpRepository(http://mc.stfx.eu/ZincHTTPComponents) > Arguments and temporary variables: > <<error during printing> > Receiver's instance variables: > creationTemplate: 'MCHttpRepository > location: ''http://mc.stfx.eu/ZincHTTPComp...etc... > storeDiffs: nil > cache: a Dictionary('Zinc-HTTP-SvenVanCaekenberghe.280.mcz'->a MCVersion(Zinc-H...etc... > allFileNames: nil > cacheFileNames: nil > location: 'http://mc.stfx.eu/ZincHTTPComponents' > user: '' > password: '' > readerCache: nil > > [self loadVersionFromFileNamed: aString] in MCHttpRepository(MCFileBasedRepository)>>versionFromFileNamed: > Receiver: a MCHttpRepository(http://mc.stfx.eu/ZincHTTPComponents) > Arguments and temporary variables: > <<error during printing> > Receiver's instance variables: > creationTemplate: 'MCHttpRepository > location: ''http://mc.stfx.eu/ZincHTTPComp...etc... > storeDiffs: nil > cache: a Dictionary('Zinc-HTTP-SvenVanCaekenberghe.280.mcz'->a MCVersion(Zinc-H...etc... > allFileNames: nil > cacheFileNames: nil > location: 'http://mc.stfx.eu/ZincHTTPComponents' > user: '' > password: '' > readerCache: nil > > Dictionary>>at:ifAbsent: > Receiver: a Dictionary('Zinc-HTTP-SvenVanCaekenberghe.280.mcz'->a MCVersion(Zinc-HTTP-SvenVanCaekenb...etc... > Arguments and temporary variables: > <<error during printing> > Receiver's instance variables: > tally: 1 > array: an Array(nil nil nil nil 'Zinc-HTTP-SvenVanCaekenberghe.280.mcz'->a MCVe...etc... > > MCHttpRepository(MCFileBasedRepository)>>versionFromFileNamed: > Receiver: a MCHttpRepository(http://mc.stfx.eu/ZincHTTPComponents) > Arguments and temporary variables: > <<error during printing> > Receiver's instance variables: > creationTemplate: 'MCHttpRepository > location: ''http://mc.stfx.eu/ZincHTTPComp...etc... > storeDiffs: nil > cache: a Dictionary('Zinc-HTTP-SvenVanCaekenberghe.280.mcz'->a MCVersion(Zinc-H...etc... > allFileNames: nil > cacheFileNames: nil > location: 'http://mc.stfx.eu/ZincHTTPComponents' > user: '' > password: '' > readerCache: nil > > [version := repository versionFromFileNamed: selectedVersion] in MCFileRepositoryInspector>>version > Receiver: a MCFileRepositoryInspector > Arguments and temporary variables: > <<error during printing> > Receiver's instance variables: > morph: a SystemWindow(418381824) > label: nil > modal: false > modalValue: nil > version: nil > repository: a MCHttpRepository(http://mc.stfx.eu/ZincHTTPComponents) > versions: #(#('Zinc-Tests' 'SvenVanCaekenberghe' 2 'Zinc-Tests-SvenVanCaekenber...etc... > loaded: a Set('System-FileRegistry-StephaneDucasse.17' 'System-Clipboard-Stepha...etc... > newer: a Set('Zinc-Tests' 'Zinc-HTTP') > inherited: a Set('Network-Url-TonyFleig.46' 'EmergencyEvaluator-StephaneDucasse...etc... > packageList: an Array(a Text for 'Zinc-HTTP' a Text for 'Zinc-Patch-HTTPSocket'...etc... > selectedPackage: 'Zinc-AWS' > selectedVersion: 'Zinc-AWS-SvenVanCaekenberghe.15.mcz' > order: 5 > versionInfo: nil > pattern: nil > packagePattern: nil > versionPattern: nil > > BlockClosure>>ensure: > Receiver: [version := repository versionFromFileNamed: selectedVersion] > Arguments and temporary variables: > <<error during printing> > Receiver's instance variables: > outerContext: MCFileRepositoryInspector>>version > startpc: 46 > numArgs: 0 > > CursorWithMask(Cursor)>>showWhile: > Receiver: ((CursorWithMask > extent: (16@16) > depth: 1 > fromArray: #( > 2r0 > 2r111111111111110000000...etc... > Arguments and temporary variables: > <<error during printing> > Receiver's instance variables: > bits: a Bitmap of length 16 > width: 16 > height: 16 > depth: 1 > offset: (-1@ -1) > maskForm: Form(16x16x1) > > MCFileRepositoryInspector>>version > Receiver: a MCFileRepositoryInspector > Arguments and temporary variables: > <<error during printing> > Receiver's instance variables: > morph: a SystemWindow(418381824) > label: nil > modal: false > modalValue: nil > version: nil > repository: a MCHttpRepository(http://mc.stfx.eu/ZincHTTPComponents) > versions: #(#('Zinc-Tests' 'SvenVanCaekenberghe' 2 'Zinc-Tests-SvenVanCaekenber...etc... > loaded: a Set('System-FileRegistry-StephaneDucasse.17' 'System-Clipboard-Stepha...etc... > newer: a Set('Zinc-Tests' 'Zinc-HTTP') > inherited: a Set('Network-Url-TonyFleig.46' 'EmergencyEvaluator-StephaneDucasse...etc... > packageList: an Array(a Text for 'Zinc-HTTP' a Text for 'Zinc-Patch-HTTPSocket'...etc... > selectedPackage: 'Zinc-AWS' > selectedVersion: 'Zinc-AWS-SvenVanCaekenberghe.15.mcz' > order: 5 > versionInfo: nil > pattern: nil > packagePattern: nil > versionPattern: nil > > MCFileRepositoryInspector(MCVersionInspector)>>versionSummary > Receiver: a MCFileRepositoryInspector > Arguments and temporary variables: > <<error during printing> > Receiver's instance variables: > morph: a SystemWindow(418381824) > label: nil > modal: false > modalValue: nil > version: nil > repository: a MCHttpRepository(http://mc.stfx.eu/ZincHTTPComponents) > versions: #(#('Zinc-Tests' 'SvenVanCaekenberghe' 2 'Zinc-Tests-SvenVanCaekenber...etc... > loaded: a Set('System-FileRegistry-StephaneDucasse.17' 'System-Clipboard-Stepha...etc... > newer: a Set('Zinc-Tests' 'Zinc-HTTP') > inherited: a Set('Network-Url-TonyFleig.46' 'EmergencyEvaluator-StephaneDucasse...etc... > packageList: an Array(a Text for 'Zinc-HTTP' a Text for 'Zinc-Patch-HTTPSocket'...etc... > selectedPackage: 'Zinc-AWS' > selectedVersion: 'Zinc-AWS-SvenVanCaekenberghe.15.mcz' > order: 5 > versionInfo: nil > pattern: nil > packagePattern: nil > versionPattern: nil > > MCFileRepositoryInspector(MCVersionInspector)>>summary > Receiver: a MCFileRepositoryInspector > Arguments and temporary variables: > <<error during printing> > Receiver's instance variables: > morph: a SystemWindow(418381824) > label: nil > modal: false > modalValue: nil > version: nil > repository: a MCHttpRepository(http://mc.stfx.eu/ZincHTTPComponents) > versions: #(#('Zinc-Tests' 'SvenVanCaekenberghe' 2 'Zinc-Tests-SvenVanCaekenber...etc... > loaded: a Set('System-FileRegistry-StephaneDucasse.17' 'System-Clipboard-Stepha...etc... > newer: a Set('Zinc-Tests' 'Zinc-HTTP') > inherited: a Set('Network-Url-TonyFleig.46' 'EmergencyEvaluator-StephaneDucasse...etc... > packageList: an Array(a Text for 'Zinc-HTTP' a Text for 'Zinc-Patch-HTTPSocket'...etc... > selectedPackage: 'Zinc-AWS' > selectedVersion: 'Zinc-AWS-SvenVanCaekenberghe.15.mcz' > order: 5 > versionInfo: nil > pattern: nil > packagePattern: nil > versionPattern: nil > > PluggableTextMorph>>getText > Receiver: a PluggableTextMorph(489160704) > Arguments and temporary variables: > <<error during printing> > Receiver's instance variables: > bounds: (857.0(a)482.0) corner: (1487.0(a)653.0) > owner: a SystemWindow(418381824) > submorphs: an Array(a TransformMorph(142606336)) > fullBounds: (857@482) corner: (1487@653) > color: Color white > extension: a MorphExtension (597164032) [locked] [other: (kmDispatcher -> a K...etc... > borderWidth: 1 > borderColor: (Color r: 0.706 g: 0.706 b: 0.706) > model: a MCFileRepositoryInspector > open: false > accessor: nil > scrollBar: a ScrollBar(502267904) > scroller: a TransformMorph(142606336) > retractableScrollBar: false > scrollBarOnLeft: false > getMenuSelector: nil > getMenuTitleSelector: nil > hasFocus: false > hScrollBar: a ScrollBar(323485696) > textMorph: a TextMorphForEditView(618397696) > getTextSelector: #summary > setTextSelector: #summary: > getSelectionSelector: nil > hasUnacceptedEdits: false > askBeforeDiscardingEdits: true > selectionInterval: (1 to: 0) > hasEditingConflicts: false > acceptAction: nil > getColorSelector: nil > unstyledAcceptText: nil > styler: nil > autoAccept: nil > enabled: true > getEnabledSelector: nil > highlights: an OrderedCollection() > acceptOnFocusChange: nil > selectionColor: nil > alwaysAccept: nil > changedAction: nil > > PluggableTextMorph>>update: > Receiver: a PluggableTextMorph(489160704) > Arguments and temporary variables: > <<error during printing> > Receiver's instance variables: > bounds: (857.0(a)482.0) corner: (1487.0(a)653.0) > owner: a SystemWindow(418381824) > submorphs: an Array(a TransformMorph(142606336)) > fullBounds: (857@482) corner: (1487@653) > color: Color white > extension: a MorphExtension (597164032) [locked] [other: (kmDispatcher -> a K...etc... > borderWidth: 1 > borderColor: (Color r: 0.706 g: 0.706 b: 0.706) > model: a MCFileRepositoryInspector > open: false > accessor: nil > scrollBar: a ScrollBar(502267904) > scroller: a TransformMorph(142606336) > retractableScrollBar: false > scrollBarOnLeft: false > getMenuSelector: nil > getMenuTitleSelector: nil > hasFocus: false > hScrollBar: a ScrollBar(323485696) > textMorph: a TextMorphForEditView(618397696) > getTextSelector: #summary > setTextSelector: #summary: > getSelectionSelector: nil > hasUnacceptedEdits: false > askBeforeDiscardingEdits: true > selectionInterval: (1 to: 0) > hasEditingConflicts: false > acceptAction: nil > getColorSelector: nil > unstyledAcceptText: nil > styler: nil > autoAccept: nil > enabled: true > getEnabledSelector: nil > highlights: an OrderedCollection() > acceptOnFocusChange: nil > selectionColor: nil > alwaysAccept: nil > changedAction: nil > > [:aDependent | aDependent update: aParameter] in MCFileRepositoryInspector(Object)>>changed: > Receiver: a MCFileRepositoryInspector > Arguments and temporary variables: > <<error during printing> > Receiver's instance variables: > morph: a SystemWindow(418381824) > label: nil > modal: false > modalValue: nil > version: nil > repository: a MCHttpRepository(http://mc.stfx.eu/ZincHTTPComponents) > versions: #(#('Zinc-Tests' 'SvenVanCaekenberghe' 2 'Zinc-Tests-SvenVanCaekenber...etc... > loaded: a Set('System-FileRegistry-StephaneDucasse.17' 'System-Clipboard-Stepha...etc... > newer: a Set('Zinc-Tests' 'Zinc-HTTP') > inherited: a Set('Network-Url-TonyFleig.46' 'EmergencyEvaluator-StephaneDucasse...etc... > packageList: an Array(a Text for 'Zinc-HTTP' a Text for 'Zinc-Patch-HTTPSocket'...etc... > selectedPackage: 'Zinc-AWS' > selectedVersion: 'Zinc-AWS-SvenVanCaekenberghe.15.mcz' > order: 5 > versionInfo: nil > pattern: nil > packagePattern: nil > versionPattern: nil > > DependentsArray>>do: > Receiver: a DependentsArray(a SystemWindow(418381824) a PluggableButtonMorph(757071872) a PluggableB...etc... > Arguments and temporary variables: > <<error during printing> > Receiver's instance variables: > a DependentsArray(a SystemWindow(418381824) a PluggableButtonMorph(757071872) a PluggableB...etc... > > > --- The full stack --- > Array(Object)>>errorSubscriptBounds: > Array(Object)>>at: > Month class>>daysInMonth:forYear: > DateAndTime class>>year:month:day:hour:minute:second:nanoSecond:offset: > DateAndTime class>>year:month:day:hour:minute:second:offset: > DateAndTime class>>year:month:day:hour:minute:second: > DateAndTime class>>year:month:day:hour:minute: > DateAndTime class>>year:month:day: > Date class>>year:month:day: > SmallInteger(Integer)>>asDateFromZip > ZipFileMember>>readCentralDirectoryFileHeaderFrom: > ZipFileMember>>readFrom: > ZipArchive>>readMembersFrom:named: > ZipArchive>>readFrom: > MCMczReader>>zip > MCMczReader>>parseMember: > MCMczReader>>loadPackage > MCMczReader(MCVersionReader)>>package > MCMczReader(MCVersionReader)>>basicVersion > MCMczReader(MCVersionReader)>>version > [:r | r version] in MCCacheRepository>>loadVersionFromFileNamed: > [:s | (MCVersionReader readerClassForFileNamed: aString) > ifNotNil: [:class | aBlock > value: (class on: s fileName: aString)]] in MCCacheRepository(MCFileBasedRepository)>>versionReaderForFileNamed:do: > MCCacheRepository(MCDirectoryRepository)>>readStreamForFileNamed:do: > MCCacheRepository(MCFileBasedRepository)>>versionReaderForFileNamed:do: > MCCacheRepository>>loadVersionFromFileNamed: > MCHttpRepository(MCFileBasedRepository)>>loadVersionFromFileNamed: > [self loadVersionFromFileNamed: aString] in MCHttpRepository(MCFileBasedRepository)>>versionFromFileNamed: > Dictionary>>at:ifAbsent: > MCHttpRepository(MCFileBasedRepository)>>versionFromFileNamed: > [version := repository versionFromFileNamed: selectedVersion] in MCFileRepositoryInspector>>version > BlockClosure>>ensure: > CursorWithMask(Cursor)>>showWhile: > MCFileRepositoryInspector>>version > MCFileRepositoryInspector(MCVersionInspector)>>versionSummary > MCFileRepositoryInspector(MCVersionInspector)>>summary > PluggableTextMorph>>getText > PluggableTextMorph>>update: > [:aDependent | aDependent update: aParameter] in MCFileRepositoryInspector(Object)>>changed: > DependentsArray>>do: > - - - - - - - - - - - - - - - > - - - - - - - - - - - - - - - - - - > MCFileRepositoryInspector(Object)>>changed: > MCFileRepositoryInspector>>versionSelection: > PluggableListMorph>>changeModelSelection: > PluggableListMorph>>mouseUpOnSingle: > PluggableListMorph>>mouseUp: > PluggableListMorph(Morph)>>handleMouseUp: > MouseButtonEvent>>sentTo: > PluggableListMorph(Morph)>>handleEvent: > MorphicEventDispatcher>>dispatchDefault:with: > MorphicEventDispatcher>>dispatchEvent:with: > PluggableListMorph(Morph)>>processEvent:using: > PluggableListMorph(Morph)>>processEvent: > PluggableListMorph>>handleFocusEvent: > [ActiveHand := self. > ActiveEvent := anEvent. > result := focusHolder > handleFocusEvent: (anEvent > transformedBy: (focusHolder transformedFrom: self))] in HandMorph>>sendFocusEvent:to:clear: > [aBlock value] in PasteUpMorph>>becomeActiveDuring: > BlockClosure>>on:do: > PasteUpMorph>>becomeActiveDuring: > HandMorph>>sendFocusEvent:to:clear: > HandMorph>>sendEvent:focus:clear: > HandMorph>>sendMouseEvent: > HandMorph>>handleEvent: > HandMorph>>processEvents > [:h | > ActiveHand := h. > h processEvents. > ActiveHand := nil] in WorldState>>doOneCycleNowFor: > Array(SequenceableCollection)>>do: > WorldState>>handsDo: > WorldState>>doOneCycleNowFor: > WorldState>>doOneCycleFor: > PasteUpMorph>>doOneCycle > [[World doOneCycle. > Processor yield. > false] whileFalse. > nil] in MorphicUIManager>>spawnNewProcess > [self value. > Processor terminateActive] in BlockClosure>>newProcess > >

June 19, 2012

[Pharo-project] Integer>>asDateFromZip

by Sven Van Caekenberghe

Even with the latest build, I still get problems with illegal Zip dates when trying to load older MC packages, I thought this was fixed ? Is there some quick patch that I could do to get passed this, as it is blocking the loading of code, which is rather fundamental. Thx, Sven 19 June 2012 1:37:18.454 pm VM: Mac OS - intel - 1074 - CoInterpreter VMMaker-oscog-EstebanLorenzano.139 uuid: 5aa53979-d7d8-4ca3-91fe-cfc3b4109c33 Dec 11 2011, StackToRegisterMappingCogit VMMaker-oscog-EstebanLorenzano.139 uuid: 5aa53979-d7d8-4ca3-91fe-cfc3b4109c33 Dec 11 2011, https://git.gitorious.org/cogvm/blessed.git Commit: 364a7f1fab69798c1bdc9575ba15e18ea319585a Date: Sun Dec 11 15:17:52 2011 -0300 By: Esteban Lorenzano <estebanlm(a)gmail.com> Image: Pharo2.0a [Latest update: #20134] Array(Object)>>errorSubscriptBounds: Receiver: #(31 28 31 30 31 30 31 31 30 31 30 31) Arguments and temporary variables: <<error during printing> Receiver's instance variables: #(31 28 31 30 31 30 31 31 30 31 30 31) Array(Object)>>at: Receiver: #(31 28 31 30 31 30 31 31 30 31 30 31) Arguments and temporary variables: <<error during printing> Receiver's instance variables: #(31 28 31 30 31 30 31 31 30 31 30 31) Month class>>daysInMonth:forYear: Receiver: Month Arguments and temporary variables: <<error during printing> Receiver's instance variables: superclass: Timespan methodDict: a MethodDictionary(#asMonth->(Month>>#asMonth "a CompiledMethod(611...etc... format: 134 layout: nil instanceVariables: nil organization: a ClassOrganizer subclasses: nil name: #Month classPool: nil sharedPools: an OrderedCollection(ChronologyConstants) environment: a SystemDictionary(lots of globals) category: #'Kernel-Chronology' traitComposition: nil localSelectors: nil DateAndTime class>>year:month:day:hour:minute:second:nanoSecond:offset: Receiver: DateAndTime Arguments and temporary variables: <<error during printing> Receiver's instance variables: superclass: Magnitude methodDict: a MethodDictionary(#+->(DateAndTime>>#+ "a CompiledMethod(868220928...etc... format: 138 layout: nil instanceVariables: #('seconds' 'offset' 'jdn' 'nanos') organization: a ClassOrganizer subclasses: {TimeStamp} name: #DateAndTime classPool: a Dictionary(#ClockProvider->Time #DaysSinceEpoch->2456098 #LastMill...etc... sharedPools: an OrderedCollection(ChronologyConstants) environment: a SystemDictionary(lots of globals) category: #'Kernel-Chronology' traitComposition: {} localSelectors: nil DateAndTime class>>year:month:day:hour:minute:second:offset: Receiver: DateAndTime Arguments and temporary variables: <<error during printing> Receiver's instance variables: superclass: Magnitude methodDict: a MethodDictionary(#+->(DateAndTime>>#+ "a CompiledMethod(868220928...etc... format: 138 layout: nil instanceVariables: #('seconds' 'offset' 'jdn' 'nanos') organization: a ClassOrganizer subclasses: {TimeStamp} name: #DateAndTime classPool: a Dictionary(#ClockProvider->Time #DaysSinceEpoch->2456098 #LastMill...etc... sharedPools: an OrderedCollection(ChronologyConstants) environment: a SystemDictionary(lots of globals) category: #'Kernel-Chronology' traitComposition: {} localSelectors: nil DateAndTime class>>year:month:day:hour:minute:second: Receiver: DateAndTime Arguments and temporary variables: <<error during printing> Receiver's instance variables: superclass: Magnitude methodDict: a MethodDictionary(#+->(DateAndTime>>#+ "a CompiledMethod(868220928...etc... format: 138 layout: nil instanceVariables: #('seconds' 'offset' 'jdn' 'nanos') organization: a ClassOrganizer subclasses: {TimeStamp} name: #DateAndTime classPool: a Dictionary(#ClockProvider->Time #DaysSinceEpoch->2456098 #LastMill...etc... sharedPools: an OrderedCollection(ChronologyConstants) environment: a SystemDictionary(lots of globals) category: #'Kernel-Chronology' traitComposition: {} localSelectors: nil DateAndTime class>>year:month:day:hour:minute: Receiver: DateAndTime Arguments and temporary variables: <<error during printing> Receiver's instance variables: superclass: Magnitude methodDict: a MethodDictionary(#+->(DateAndTime>>#+ "a CompiledMethod(868220928...etc... format: 138 layout: nil instanceVariables: #('seconds' 'offset' 'jdn' 'nanos') organization: a ClassOrganizer subclasses: {TimeStamp} name: #DateAndTime classPool: a Dictionary(#ClockProvider->Time #DaysSinceEpoch->2456098 #LastMill...etc... sharedPools: an OrderedCollection(ChronologyConstants) environment: a SystemDictionary(lots of globals) category: #'Kernel-Chronology' traitComposition: {} localSelectors: nil DateAndTime class>>year:month:day: Receiver: DateAndTime Arguments and temporary variables: <<error during printing> Receiver's instance variables: superclass: Magnitude methodDict: a MethodDictionary(#+->(DateAndTime>>#+ "a CompiledMethod(868220928...etc... format: 138 layout: nil instanceVariables: #('seconds' 'offset' 'jdn' 'nanos') organization: a ClassOrganizer subclasses: {TimeStamp} name: #DateAndTime classPool: a Dictionary(#ClockProvider->Time #DaysSinceEpoch->2456098 #LastMill...etc... sharedPools: an OrderedCollection(ChronologyConstants) environment: a SystemDictionary(lots of globals) category: #'Kernel-Chronology' traitComposition: {} localSelectors: nil Date class>>year:month:day: Receiver: Date Arguments and temporary variables: <<error during printing> Receiver's instance variables: superclass: Timespan methodDict: a MethodDictionary(#addDays:->(Date>>#addDays: "a CompiledMethod(28...etc... format: 134 layout: nil instanceVariables: nil organization: a ClassOrganizer subclasses: nil name: #Date classPool: nil sharedPools: an OrderedCollection(ChronologyConstants) environment: a SystemDictionary(lots of globals) category: #'Kernel-Chronology' traitComposition: {} localSelectors: nil SmallInteger(Integer)>>asDateFromZip Receiver: 15370 Arguments and temporary variables: <<error during printing> Receiver's instance variables: 15370 ZipFileMember>>readCentralDirectoryFileHeaderFrom: Receiver: a ZipFileMember() Arguments and temporary variables: <<error during printing> Receiver's instance variables: fileName: '' isCorrupt: false lastModFileDateTime: 1901-01-01T00:00:00+02:00 fileAttributeFormat: 3 versionMadeBy: 20 versionNeededToExtract: 20 bitFlag: 0 compressionMethod: 8 desiredCompressionMethod: 8 desiredCompressionLevel: 6 internalFileAttributes: 0 externalFileAttributes: 2176188416 cdExtraField: '' localExtraField: '' fileComment: '' crc32: 0 compressedSize: 0 uncompressedSize: 0 writeLocalHeaderRelativeOffset: nil readDataRemaining: nil externalFileName: '/Users/sven/smalltalk/package-cache/Zinc-AWS-SvenVanCaekenbe...etc... stream: MultiByteFileStream: '/Users/sven/smalltalk/package-cache/Zinc-AWS-Sven...etc... localHeaderRelativeOffset: 0 dataOffset: 0 ZipFileMember>>readFrom: Receiver: a ZipFileMember() Arguments and temporary variables: <<error during printing> Receiver's instance variables: fileName: '' isCorrupt: false lastModFileDateTime: 1901-01-01T00:00:00+02:00 fileAttributeFormat: 3 versionMadeBy: 20 versionNeededToExtract: 20 bitFlag: 0 compressionMethod: 8 desiredCompressionMethod: 8 desiredCompressionLevel: 6 internalFileAttributes: 0 externalFileAttributes: 2176188416 cdExtraField: '' localExtraField: '' fileComment: '' crc32: 0 compressedSize: 0 uncompressedSize: 0 writeLocalHeaderRelativeOffset: nil readDataRemaining: nil externalFileName: '/Users/sven/smalltalk/package-cache/Zinc-AWS-SvenVanCaekenbe...etc... stream: MultiByteFileStream: '/Users/sven/smalltalk/package-cache/Zinc-AWS-Sven...etc... localHeaderRelativeOffset: 0 dataOffset: 0 ZipArchive>>readMembersFrom:named: Receiver: a ZipArchive Arguments and temporary variables: <<error during printing> Receiver's instance variables: members: an OrderedCollection() centralDirectorySize: 228 centralDirectoryOffsetWRTStartingDiskNumber: 9759 zipFileComment: #[] writeCentralDirectoryOffset: 0 writeEOCDOffset: 0 ZipArchive>>readFrom: Receiver: a ZipArchive Arguments and temporary variables: <<error during printing> Receiver's instance variables: members: an OrderedCollection() centralDirectorySize: 228 centralDirectoryOffsetWRTStartingDiskNumber: 9759 zipFileComment: #[] writeCentralDirectoryOffset: 0 writeEOCDOffset: 0 MCMczReader>>zip Receiver: a MCMczReader Arguments and temporary variables: <<error during printing> Receiver's instance variables: stream: MultiByteFileStream: '/Users/sven/smalltalk/package-cache/Zinc-AWS-Sven...etc... package: nil info: nil definitions: nil dependencies: nil zip: a ZipArchive infoCache: nil MCMczReader>>parseMember: Receiver: a MCMczReader Arguments and temporary variables: <<error during printing> Receiver's instance variables: stream: MultiByteFileStream: '/Users/sven/smalltalk/package-cache/Zinc-AWS-Sven...etc... package: nil info: nil definitions: nil dependencies: nil zip: a ZipArchive infoCache: nil MCMczReader>>loadPackage Receiver: a MCMczReader Arguments and temporary variables: <<error during printing> Receiver's instance variables: stream: MultiByteFileStream: '/Users/sven/smalltalk/package-cache/Zinc-AWS-Sven...etc... package: nil info: nil definitions: nil dependencies: nil zip: a ZipArchive infoCache: nil MCMczReader(MCVersionReader)>>package Receiver: a MCMczReader Arguments and temporary variables: <<error during printing> Receiver's instance variables: stream: MultiByteFileStream: '/Users/sven/smalltalk/package-cache/Zinc-AWS-Sven...etc... package: nil info: nil definitions: nil dependencies: nil zip: a ZipArchive infoCache: nil MCMczReader(MCVersionReader)>>basicVersion Receiver: a MCMczReader Arguments and temporary variables: <<error during printing> Receiver's instance variables: stream: MultiByteFileStream: '/Users/sven/smalltalk/package-cache/Zinc-AWS-Sven...etc... package: nil info: nil definitions: nil dependencies: nil zip: a ZipArchive infoCache: nil MCMczReader(MCVersionReader)>>version Receiver: a MCMczReader Arguments and temporary variables: <<error during printing> Receiver's instance variables: stream: MultiByteFileStream: '/Users/sven/smalltalk/package-cache/Zinc-AWS-Sven...etc... package: nil info: nil definitions: nil dependencies: nil zip: a ZipArchive infoCache: nil [:r | r version] in MCCacheRepository>>loadVersionFromFileNamed: Receiver: a MCCacheRepository(/Users/sven/smalltalk/package-cache) Arguments and temporary variables: <<error during printing> Receiver's instance variables: creationTemplate: nil storeDiffs: nil cache: nil allFileNames: nil cacheFileNames: nil directory: UnixFileDirectory on '/Users/sven/smalltalk/package-cache' packageCaches: nil seenFiles: nil [:s | (MCVersionReader readerClassForFileNamed: aString) ifNotNil: [:class | aBlock value: (class on: s fileName: aString)]] in MCCacheRepository(MCFileBasedRepository)>>versionReaderForFileNamed:do: Receiver: a MCCacheRepository(/Users/sven/smalltalk/package-cache) Arguments and temporary variables: <<error during printing> Receiver's instance variables: creationTemplate: nil storeDiffs: nil cache: nil allFileNames: nil cacheFileNames: nil directory: UnixFileDirectory on '/Users/sven/smalltalk/package-cache' packageCaches: nil seenFiles: nil MCCacheRepository(MCDirectoryRepository)>>readStreamForFileNamed:do: Receiver: a MCCacheRepository(/Users/sven/smalltalk/package-cache) Arguments and temporary variables: <<error during printing> Receiver's instance variables: creationTemplate: nil storeDiffs: nil cache: nil allFileNames: nil cacheFileNames: nil directory: UnixFileDirectory on '/Users/sven/smalltalk/package-cache' packageCaches: nil seenFiles: nil MCCacheRepository(MCFileBasedRepository)>>versionReaderForFileNamed:do: Receiver: a MCCacheRepository(/Users/sven/smalltalk/package-cache) Arguments and temporary variables: <<error during printing> Receiver's instance variables: creationTemplate: nil storeDiffs: nil cache: nil allFileNames: nil cacheFileNames: nil directory: UnixFileDirectory on '/Users/sven/smalltalk/package-cache' packageCaches: nil seenFiles: nil MCCacheRepository>>loadVersionFromFileNamed: Receiver: a MCCacheRepository(/Users/sven/smalltalk/package-cache) Arguments and temporary variables: <<error during printing> Receiver's instance variables: creationTemplate: nil storeDiffs: nil cache: nil allFileNames: nil cacheFileNames: nil directory: UnixFileDirectory on '/Users/sven/smalltalk/package-cache' packageCaches: nil seenFiles: nil MCHttpRepository(MCFileBasedRepository)>>loadVersionFromFileNamed: Receiver: a MCHttpRepository(http://mc.stfx.eu/ZincHTTPComponents) Arguments and temporary variables: <<error during printing> Receiver's instance variables: creationTemplate: 'MCHttpRepository location: ''http://mc.stfx.eu/ZincHTTPComp...etc... storeDiffs: nil cache: a Dictionary('Zinc-HTTP-SvenVanCaekenberghe.280.mcz'->a MCVersion(Zinc-H...etc... allFileNames: nil cacheFileNames: nil location: 'http://mc.stfx.eu/ZincHTTPComponents' user: '' password: '' readerCache: nil [self loadVersionFromFileNamed: aString] in MCHttpRepository(MCFileBasedRepository)>>versionFromFileNamed: Receiver: a MCHttpRepository(http://mc.stfx.eu/ZincHTTPComponents) Arguments and temporary variables: <<error during printing> Receiver's instance variables: creationTemplate: 'MCHttpRepository location: ''http://mc.stfx.eu/ZincHTTPComp...etc... storeDiffs: nil cache: a Dictionary('Zinc-HTTP-SvenVanCaekenberghe.280.mcz'->a MCVersion(Zinc-H...etc... allFileNames: nil cacheFileNames: nil location: 'http://mc.stfx.eu/ZincHTTPComponents' user: '' password: '' readerCache: nil Dictionary>>at:ifAbsent: Receiver: a Dictionary('Zinc-HTTP-SvenVanCaekenberghe.280.mcz'->a MCVersion(Zinc-HTTP-SvenVanCaekenb...etc... Arguments and temporary variables: <<error during printing> Receiver's instance variables: tally: 1 array: an Array(nil nil nil nil 'Zinc-HTTP-SvenVanCaekenberghe.280.mcz'->a MCVe...etc... MCHttpRepository(MCFileBasedRepository)>>versionFromFileNamed: Receiver: a MCHttpRepository(http://mc.stfx.eu/ZincHTTPComponents) Arguments and temporary variables: <<error during printing> Receiver's instance variables: creationTemplate: 'MCHttpRepository location: ''http://mc.stfx.eu/ZincHTTPComp...etc... storeDiffs: nil cache: a Dictionary('Zinc-HTTP-SvenVanCaekenberghe.280.mcz'->a MCVersion(Zinc-H...etc... allFileNames: nil cacheFileNames: nil location: 'http://mc.stfx.eu/ZincHTTPComponents' user: '' password: '' readerCache: nil [version := repository versionFromFileNamed: selectedVersion] in MCFileRepositoryInspector>>version Receiver: a MCFileRepositoryInspector Arguments and temporary variables: <<error during printing> Receiver's instance variables: morph: a SystemWindow(418381824) label: nil modal: false modalValue: nil version: nil repository: a MCHttpRepository(http://mc.stfx.eu/ZincHTTPComponents) versions: #(#('Zinc-Tests' 'SvenVanCaekenberghe' 2 'Zinc-Tests-SvenVanCaekenber...etc... loaded: a Set('System-FileRegistry-StephaneDucasse.17' 'System-Clipboard-Stepha...etc... newer: a Set('Zinc-Tests' 'Zinc-HTTP') inherited: a Set('Network-Url-TonyFleig.46' 'EmergencyEvaluator-StephaneDucasse...etc... packageList: an Array(a Text for 'Zinc-HTTP' a Text for 'Zinc-Patch-HTTPSocket'...etc... selectedPackage: 'Zinc-AWS' selectedVersion: 'Zinc-AWS-SvenVanCaekenberghe.15.mcz' order: 5 versionInfo: nil pattern: nil packagePattern: nil versionPattern: nil BlockClosure>>ensure: Receiver: [version := repository versionFromFileNamed: selectedVersion] Arguments and temporary variables: <<error during printing> Receiver's instance variables: outerContext: MCFileRepositoryInspector>>version startpc: 46 numArgs: 0 CursorWithMask(Cursor)>>showWhile: Receiver: ((CursorWithMask extent: (16@16) depth: 1 fromArray: #( 2r0 2r111111111111110000000...etc... Arguments and temporary variables: <<error during printing> Receiver's instance variables: bits: a Bitmap of length 16 width: 16 height: 16 depth: 1 offset: (-1@ -1) maskForm: Form(16x16x1) MCFileRepositoryInspector>>version Receiver: a MCFileRepositoryInspector Arguments and temporary variables: <<error during printing> Receiver's instance variables: morph: a SystemWindow(418381824) label: nil modal: false modalValue: nil version: nil repository: a MCHttpRepository(http://mc.stfx.eu/ZincHTTPComponents) versions: #(#('Zinc-Tests' 'SvenVanCaekenberghe' 2 'Zinc-Tests-SvenVanCaekenber...etc... loaded: a Set('System-FileRegistry-StephaneDucasse.17' 'System-Clipboard-Stepha...etc... newer: a Set('Zinc-Tests' 'Zinc-HTTP') inherited: a Set('Network-Url-TonyFleig.46' 'EmergencyEvaluator-StephaneDucasse...etc... packageList: an Array(a Text for 'Zinc-HTTP' a Text for 'Zinc-Patch-HTTPSocket'...etc... selectedPackage: 'Zinc-AWS' selectedVersion: 'Zinc-AWS-SvenVanCaekenberghe.15.mcz' order: 5 versionInfo: nil pattern: nil packagePattern: nil versionPattern: nil MCFileRepositoryInspector(MCVersionInspector)>>versionSummary Receiver: a MCFileRepositoryInspector Arguments and temporary variables: <<error during printing> Receiver's instance variables: morph: a SystemWindow(418381824) label: nil modal: false modalValue: nil version: nil repository: a MCHttpRepository(http://mc.stfx.eu/ZincHTTPComponents) versions: #(#('Zinc-Tests' 'SvenVanCaekenberghe' 2 'Zinc-Tests-SvenVanCaekenber...etc... loaded: a Set('System-FileRegistry-StephaneDucasse.17' 'System-Clipboard-Stepha...etc... newer: a Set('Zinc-Tests' 'Zinc-HTTP') inherited: a Set('Network-Url-TonyFleig.46' 'EmergencyEvaluator-StephaneDucasse...etc... packageList: an Array(a Text for 'Zinc-HTTP' a Text for 'Zinc-Patch-HTTPSocket'...etc... selectedPackage: 'Zinc-AWS' selectedVersion: 'Zinc-AWS-SvenVanCaekenberghe.15.mcz' order: 5 versionInfo: nil pattern: nil packagePattern: nil versionPattern: nil MCFileRepositoryInspector(MCVersionInspector)>>summary Receiver: a MCFileRepositoryInspector Arguments and temporary variables: <<error during printing> Receiver's instance variables: morph: a SystemWindow(418381824) label: nil modal: false modalValue: nil version: nil repository: a MCHttpRepository(http://mc.stfx.eu/ZincHTTPComponents) versions: #(#('Zinc-Tests' 'SvenVanCaekenberghe' 2 'Zinc-Tests-SvenVanCaekenber...etc... loaded: a Set('System-FileRegistry-StephaneDucasse.17' 'System-Clipboard-Stepha...etc... newer: a Set('Zinc-Tests' 'Zinc-HTTP') inherited: a Set('Network-Url-TonyFleig.46' 'EmergencyEvaluator-StephaneDucasse...etc... packageList: an Array(a Text for 'Zinc-HTTP' a Text for 'Zinc-Patch-HTTPSocket'...etc... selectedPackage: 'Zinc-AWS' selectedVersion: 'Zinc-AWS-SvenVanCaekenberghe.15.mcz' order: 5 versionInfo: nil pattern: nil packagePattern: nil versionPattern: nil PluggableTextMorph>>getText Receiver: a PluggableTextMorph(489160704) Arguments and temporary variables: <<error during printing> Receiver's instance variables: bounds: (857.0(a)482.0) corner: (1487.0(a)653.0) owner: a SystemWindow(418381824) submorphs: an Array(a TransformMorph(142606336)) fullBounds: (857@482) corner: (1487@653) color: Color white extension: a MorphExtension (597164032) [locked] [other: (kmDispatcher -> a K...etc... borderWidth: 1 borderColor: (Color r: 0.706 g: 0.706 b: 0.706) model: a MCFileRepositoryInspector open: false accessor: nil scrollBar: a ScrollBar(502267904) scroller: a TransformMorph(142606336) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: nil getMenuTitleSelector: nil hasFocus: false hScrollBar: a ScrollBar(323485696) textMorph: a TextMorphForEditView(618397696) getTextSelector: #summary setTextSelector: #summary: getSelectionSelector: nil hasUnacceptedEdits: false askBeforeDiscardingEdits: true selectionInterval: (1 to: 0) hasEditingConflicts: false acceptAction: nil getColorSelector: nil unstyledAcceptText: nil styler: nil autoAccept: nil enabled: true getEnabledSelector: nil highlights: an OrderedCollection() acceptOnFocusChange: nil selectionColor: nil alwaysAccept: nil changedAction: nil PluggableTextMorph>>update: Receiver: a PluggableTextMorph(489160704) Arguments and temporary variables: <<error during printing> Receiver's instance variables: bounds: (857.0(a)482.0) corner: (1487.0(a)653.0) owner: a SystemWindow(418381824) submorphs: an Array(a TransformMorph(142606336)) fullBounds: (857@482) corner: (1487@653) color: Color white extension: a MorphExtension (597164032) [locked] [other: (kmDispatcher -> a K...etc... borderWidth: 1 borderColor: (Color r: 0.706 g: 0.706 b: 0.706) model: a MCFileRepositoryInspector open: false accessor: nil scrollBar: a ScrollBar(502267904) scroller: a TransformMorph(142606336) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: nil getMenuTitleSelector: nil hasFocus: false hScrollBar: a ScrollBar(323485696) textMorph: a TextMorphForEditView(618397696) getTextSelector: #summary setTextSelector: #summary: getSelectionSelector: nil hasUnacceptedEdits: false askBeforeDiscardingEdits: true selectionInterval: (1 to: 0) hasEditingConflicts: false acceptAction: nil getColorSelector: nil unstyledAcceptText: nil styler: nil autoAccept: nil enabled: true getEnabledSelector: nil highlights: an OrderedCollection() acceptOnFocusChange: nil selectionColor: nil alwaysAccept: nil changedAction: nil [:aDependent | aDependent update: aParameter] in MCFileRepositoryInspector(Object)>>changed: Receiver: a MCFileRepositoryInspector Arguments and temporary variables: <<error during printing> Receiver's instance variables: morph: a SystemWindow(418381824) label: nil modal: false modalValue: nil version: nil repository: a MCHttpRepository(http://mc.stfx.eu/ZincHTTPComponents) versions: #(#('Zinc-Tests' 'SvenVanCaekenberghe' 2 'Zinc-Tests-SvenVanCaekenber...etc... loaded: a Set('System-FileRegistry-StephaneDucasse.17' 'System-Clipboard-Stepha...etc... newer: a Set('Zinc-Tests' 'Zinc-HTTP') inherited: a Set('Network-Url-TonyFleig.46' 'EmergencyEvaluator-StephaneDucasse...etc... packageList: an Array(a Text for 'Zinc-HTTP' a Text for 'Zinc-Patch-HTTPSocket'...etc... selectedPackage: 'Zinc-AWS' selectedVersion: 'Zinc-AWS-SvenVanCaekenberghe.15.mcz' order: 5 versionInfo: nil pattern: nil packagePattern: nil versionPattern: nil DependentsArray>>do: Receiver: a DependentsArray(a SystemWindow(418381824) a PluggableButtonMorph(757071872) a PluggableB...etc... Arguments and temporary variables: <<error during printing> Receiver's instance variables: a DependentsArray(a SystemWindow(418381824) a PluggableButtonMorph(757071872) a PluggableB...etc... --- The full stack --- Array(Object)>>errorSubscriptBounds: Array(Object)>>at: Month class>>daysInMonth:forYear: DateAndTime class>>year:month:day:hour:minute:second:nanoSecond:offset: DateAndTime class>>year:month:day:hour:minute:second:offset: DateAndTime class>>year:month:day:hour:minute:second: DateAndTime class>>year:month:day:hour:minute: DateAndTime class>>year:month:day: Date class>>year:month:day: SmallInteger(Integer)>>asDateFromZip ZipFileMember>>readCentralDirectoryFileHeaderFrom: ZipFileMember>>readFrom: ZipArchive>>readMembersFrom:named: ZipArchive>>readFrom: MCMczReader>>zip MCMczReader>>parseMember: MCMczReader>>loadPackage MCMczReader(MCVersionReader)>>package MCMczReader(MCVersionReader)>>basicVersion MCMczReader(MCVersionReader)>>version [:r | r version] in MCCacheRepository>>loadVersionFromFileNamed: [:s | (MCVersionReader readerClassForFileNamed: aString) ifNotNil: [:class | aBlock value: (class on: s fileName: aString)]] in MCCacheRepository(MCFileBasedRepository)>>versionReaderForFileNamed:do: MCCacheRepository(MCDirectoryRepository)>>readStreamForFileNamed:do: MCCacheRepository(MCFileBasedRepository)>>versionReaderForFileNamed:do: MCCacheRepository>>loadVersionFromFileNamed: MCHttpRepository(MCFileBasedRepository)>>loadVersionFromFileNamed: [self loadVersionFromFileNamed: aString] in MCHttpRepository(MCFileBasedRepository)>>versionFromFileNamed: Dictionary>>at:ifAbsent: MCHttpRepository(MCFileBasedRepository)>>versionFromFileNamed: [version := repository versionFromFileNamed: selectedVersion] in MCFileRepositoryInspector>>version BlockClosure>>ensure: CursorWithMask(Cursor)>>showWhile: MCFileRepositoryInspector>>version MCFileRepositoryInspector(MCVersionInspector)>>versionSummary MCFileRepositoryInspector(MCVersionInspector)>>summary PluggableTextMorph>>getText PluggableTextMorph>>update: [:aDependent | aDependent update: aParameter] in MCFileRepositoryInspector(Object)>>changed: DependentsArray>>do: - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - MCFileRepositoryInspector(Object)>>changed: MCFileRepositoryInspector>>versionSelection: PluggableListMorph>>changeModelSelection: PluggableListMorph>>mouseUpOnSingle: PluggableListMorph>>mouseUp: PluggableListMorph(Morph)>>handleMouseUp: MouseButtonEvent>>sentTo: PluggableListMorph(Morph)>>handleEvent: MorphicEventDispatcher>>dispatchDefault:with: MorphicEventDispatcher>>dispatchEvent:with: PluggableListMorph(Morph)>>processEvent:using: PluggableListMorph(Morph)>>processEvent: PluggableListMorph>>handleFocusEvent: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder handleFocusEvent: (anEvent transformedBy: (focusHolder transformedFrom: self))] in HandMorph>>sendFocusEvent:to:clear: [aBlock value] in PasteUpMorph>>becomeActiveDuring: BlockClosure>>on:do: PasteUpMorph>>becomeActiveDuring: HandMorph>>sendFocusEvent:to:clear: HandMorph>>sendEvent:focus:clear: HandMorph>>sendMouseEvent: HandMorph>>handleEvent: HandMorph>>processEvents [:h | ActiveHand := h. h processEvents. ActiveHand := nil] in WorldState>>doOneCycleNowFor: Array(SequenceableCollection)>>do: WorldState>>handsDo: WorldState>>doOneCycleNowFor: WorldState>>doOneCycleFor: PasteUpMorph>>doOneCycle [[World doOneCycle. Processor yield. false] whileFalse. nil] in MorphicUIManager>>spawnNewProcess [self value. Processor terminateActive] in BlockClosure>>newProcess

June 19, 2012