June 2012 - Pharo-dev - lists.pharo.org

[Pharo-project] ScriptManager config in 1.4
by Torsten Bergmann June 20, 2012

June 20, 2012

The ConfigurationOfScriptManager is now also in the Pharo 1.4. repo and therefore directly available for easy loading in "Tools" -> "Configuration Browser" Bye T. -- Empfehlen Sie GMX DSL Ihren Freunden und Bekannten und wir belohnen Sie mit bis zu 50,- Euro! https://freundschaftswerbung.gmx.de

4 3

[Pharo-project] who can have a look at Issue 5913: Remove Squeak epoch
by StÃ©phane Ducasse June 20, 2012

June 20, 2012

I will review it but I would like to know if somebody else can have a look at it http://code.google.com/p/pharo/issues/detail?id=5913 Stef

5 9

[Pharo-project] Process Tests and
by Sean P. DeNigris June 19, 2012

June 19, 2012

I was reading the Blue Book chapter on processes and figured I'd turn it into tests... Issue 6009: Improved ProcessTest http://code.google.com/p/pharo/issues/detail?id=6009 During the process, I noticed that the Blue Book specifies that #fork returns the block itself (pg. 252), while in Pharo it returns the process (see #testFork in the slice). Should our implementation be changed to match the Blue Book? Thanks, Sean -- View this message in context: http://forum.world.st/Process-Tests-and-tp4632878.html Sent from the Pharo Smalltalk mailing list archive at Nabble.com.

5 12

[Pharo-project] flatten method is kind of broken
by Fabrizio Perin June 19, 2012

June 19, 2012

Hi, I need to flatten a collection which does not contain other collections necessarily. The method flatten doesn't really work: #(#(1 2) #(3 4)) flatten -> #(1 2 3 4) OK #(#(1) #(2 3) #(#(4) 5) ) flatten -> #(1 2 3 #(4) 5) I would have expected something like #(1 2 3 4 5) #(1 2 3) flatten -> error #(#(1) 2 3) flatten -> error Is this the meant behavior for flatten? Any other method I could use instead? Thanks, Fabrizio

3 5

[Pharo-project] Issue 6069: Test guard for 20132
by Sean P. DeNigris June 19, 2012

June 19, 2012

This is an easy slice to review (SLICE-Issue-6069-Test-guard-for-20132-SeanDeNigris.1). Mostly one-liner changes, all with newly passing tests... http://code.google.com/p/pharo/issues/detail?id=6069 Sean -- View this message in context: http://forum.world.st/Issue-6069-Test-guard-for-20132-tp4635559.html Sent from the Pharo Smalltalk mailing list archive at Nabble.com.

1 0

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

June 19, 2012

20142 ----- - Issue 6084: [BUG]: File Browser cannot load mcz files. Thanks Sean DeNigris http://code.google.com/p/pharo/issues/detail?id=6084 - Issue 6088: primitive:numArgs:numTemps:stackSize:literals:bytecodes:trailer: should use #needsFrameSize:. Thanks Marcus Denker. http://code.google.com/p/pharo/issues/detail?id=6088 - Issue 6087: make doPerformOldLargeFrame to decompile with the temps Thanks Marcus Denker. http://code.google.com/p/pharo/issues/detail?id=6087 - Issue 6083: Mouse down events are being processed twice. Thanks Sean DeNigris. http://code.google.com/p/pharo/issues/detail?id=6083

1 0

[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