- Pharo-dev - lists.pharo.org

[Pharo-project] [update 2.0] #20141
by StÃ©phane Ducasse June 19, 2012

June 19, 2012

20141 ----- - Issue 4734: file out of packages raises an exception with Nautilus. Thanks Sean DeNigris, Guillermo and others :) http://code.google.com/p/pharo/issues/detail?id=4734 - Issue 6054: Error when reading zip files with Squeak date/time format. Thanks Sean DeNigris. http://code.google.com/p/pharo/issues/detail?id=6054

1 0

[Pharo-project] The Magic of FileSystem
by Sean P. DeNigris June 19, 2012

June 19, 2012

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.

2 1

[Pharo-project] Integer>>asDateFromZip
by Sven Van Caekenberghe June 19, 2012

June 19, 2012

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

5 6

[Pharo-project] [XMLRPC] Little client clean up
by Noury Bouraqadi June 19, 2012

June 19, 2012

Hi GermÃ n, I guess we can remove XMLRPCProxy>>sendXmlRpcBAK: data There is sendXmlRpc: that seems to work. Noury -- http://twitter.com/#!/NouryBouraqadi http://www.kroobe.com/profile/noury Afin de contribuer au respect de l'environnement, merci de n'imprimer ce courriel qu'en cas de necessite Please consider the environment before you print

2 4

[Pharo-project] Version of method broken
by Davide Varvello June 19, 2012

June 19, 2012

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. 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.

3 4

[Pharo-project] Mouse down events are being processed twice
by Sean P. DeNigris June 19, 2012

June 19, 2012

This was the reason for the scrollbars scrolling two rows/pages at a time. I merged that issue into the one below. If someone will review the fix (only one line changed), it is ready for 1.4 (all relevant tests pass - two unrelated failures) and 2.0... Issue 6083: Mouse down events are being processed twice http://code.google.com/p/pharo/issues/detail?id=6083 Fixes in inbox: - for 1.4: SLICE-Issue-6083-Mouse-down-events-are-being-processed-twice-SeanDeNigris.1 - for 2.0: SLICE-Issue-6083-Mouse-down-events-are-being-processed-twice-SeanDeNigris.2 * Fix Morph>>#handleMouseDown: to have #mouseDown:fromMorph: called only once, via #mouseDown: -- 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.

3 4

[Pharo-project] compiled method inherits from Collection?
by Fernando Olivero June 19, 2012

June 19, 2012

(Object>>#name) isCollection = true Actually is a subclass of ByteArray (instead of collaborating with one). Does this seem strange to anybody else? Is it really needed? Fernando

4 3

[Pharo-project] default command line arguments
by Francisco Garau June 18, 2012

June 18, 2012

Hi -- opening the latest version of Pharo (build #20134) throws an error when trying to open the startup script (which I don't have). Maybe an empty Pharo-2.0.st should be included in the Pharo-2.0.zip? Cheers, Francisco PS: let me know if I should report this with a bug entry. a CommandLineArguments '/builds/jenkins/workspace/Pharo-2.0/Pharo-2.0/Pharo-2.0.st' '-headless' MultiByteFileStream(Object)>>primitiveFailed MultiByteFileStream(StandardFileStream)>>primClose: MultiByteFileStream(StandardFileStream)>>close [stream close] in FileReference>>readStreamDo: MethodContext(ContextPart)>>resume:through: BlockClosure>>ensure: FileReference>>readStreamDo: BasicCodeLoader>>installSourceFile: [:reference | self installSourceFile: reference] in [sourceFiles do: [:reference | self installSourceFile: reference]] in BasicCodeLoader>>installSourceFiles OrderedCollection>>do: [sourceFiles do: [:reference | self installSourceFile: reference]] in BasicCodeLoader>>installSourceFiles BlockClosure>>ensure: BasicCodeLoader>>installSourceFiles BasicCodeLoader>>activate BasicCodeLoader class(CommandLineHandler class)>>activateWith: DefaultCommandLineHandler>>handleSubcommand DefaultCommandLineHandler>>handleArgument: DefaultCommandLineHandler>>activate [self new activate] in DefaultCommandLineHandler class>>startUp: BlockClosure>>cull: [each cull: resuming] in [:each | self logStartUpErrorDuring: [each cull: resuming] into: errors tryDebugger: self isInteractive] in SmalltalkImage>>executeDeferredStartupActions: BlockClosure>>on:do: SmalltalkImage>>logStartUpErrorDuring:into:tryDebugger: [:each | self logStartUpErrorDuring: [each cull: resuming] into: errors tryDebugger: self isInteractive] in SmalltalkImage>>executeDeferredStartupActions: OrderedCollection>>do: SmalltalkImage>>executeDeferredStartupActions: SmalltalkImage>>startupImage:snapshotWorked: SmalltalkImage>>snapshot:andQuit:

2 1

[Pharo-project] squeaksource is down (eom)
by Chris Muller June 18, 2012

June 18, 2012

2 1

June 18, 2012

Hi guys this morning Igor shows me all his work around dynlib loading of third party plugins. And yes now we get all the third party plugins downloaded and compiled (yes with only one copy of FT2)â¦.Great stuff! Now we would like to organize a little competition for the official look of Pharo 2.0. So if you feel that you are a little bit designer inside, please send us proposals. We propose this one :) based on Curlz MT (welcome to the world of the pink little ponies) :)

12 29