Integer>>asDateFromZip

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 <[hidden email]>
> 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:         <a href="tel:2176188416" value="+12176188416">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:         <a href="tel:2176188416" value="+12176188416">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@482.0) corner: (1487.0@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@482.0) corner: (1487.0@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
>
>