January 2011 - Pharo-dev - lists.pharo.org

[Pharo-project] Issue 3342 in pharo: have a look at sharedQueue fixes from Levente
by pharo＠googlecode.com March 21, 2011

March 21, 2011

Status: Accepted Owner: stephane.ducasse Labels: Milestone-1.3 Type-Squeak New issue 3342 by stephane.ducasse: have a look at sharedQueue fixes from Levente http://code.google.com/p/pharo/issues/detail?id=3342 Check the squeak mailing: the thread of 15 of november 2010: [squeak-dev] The Trunk: Kernel-ul.515.mcz Hi Folks, Please also restore Semaphore>>critical:ifLocked: It already includes this comment: "Note: The following is tricky and depends on the fact that the VM will not switch between processes while executing byte codes (process switches happen only in real sends). The following test is written carefully so that it will result in bytecodes only." To be more explicit, in Cuis it also says: "Do not change the following #== for #=, as #== is not a real message send, just a bytecode." It's unnecessary, because #= also has it's own bytecode in the current VM. So #= won't be a real message send in this case, because both excessSignals and 0 are SmallIntegers. Also, this method has a bug. There's no guarantee, that the sender won't wait for the semaphore. I uploaded a fix to the Inbox for review recently, though I didn't get any feedback on it: http://lists.squeakfoundation.org/pipermail/squeak-dev/2010-November/155058…

1 1

[Pharo-project] Issue 3605 in pharo: [ENH]: Added #saveTo: method to MIMEDocument
by pharo＠googlecode.com March 21, 2011

March 21, 2011

Status: New Owner: ---- New issue 3605 by sean.p.d...(a)gmail.com: [ENH]: Added #saveTo: method to MIMEDocument http://code.google.com/p/pharo/issues/detail?id=3605 When downloading via Url classes, this makes it more straight-forward to save (an image for example), now: aUrl retrieveContents saveAs: savePath. instead of: FileStream forceNewFileNamed: anAbsolutePathString do: [ :str | str binary. str nextPutAll: (aUrl retrieveContents contents) ]. Attachments: MIMEDocument-saveAs.st 324 bytes

1 2

[Pharo-project] Issue 3591 in pharo: Implementors of #listMorph place it in different (or no) category
by pharo＠googlecode.com March 21, 2011

March 21, 2011

Status: New Owner: ---- New issue 3591 by sean.p.d...(a)gmail.com: Implementors of #listMorph place it in different (or no) category http://code.google.com/p/pharo/issues/detail?id=3591 Pharo1.2rc1 Latest update: #12320 What is (if any) the standard here? I usually follow Kent Beck's advice to put getters in 'private' unless they are meant to be public, and in that case, in 'accessing'. But here we have 'accessing'/'callbacks' (OB)/'user interface'. Sean

1 2

Re: [Pharo-project] Issue 3255 in pharo: It should be possible to print text from help browser to printer
by pharo＠googlecode.com March 20, 2011

March 20, 2011

Comment #2 on issue 3255 by marcus.denker: It should be possible to print text from help browser to printer http://code.google.com/p/pharo/issues/detail?id=3255 pressing the button has no effect on MacOS

1 6

[Pharo-project] Issue 3633 in pharo: [Hudson] change build script for 1.3a
by pharo＠googlecode.com March 20, 2011

March 20, 2011

Status: Accepted Owner: marcus.d...(a)gmail.com New issue 3633 by marcus.d...(a)gmail.com: [Hudson] change build script for 1.3a http://code.google.com/p/pharo/issues/detail?id=3633 As 1.3a now has headless support, we do not want to kill the image when a log file is written (copy and modify the build script)

1 1

[Pharo-project] Issue 3446 in pharo: VMMakerTool load config button doesn't work
by pharo＠googlecode.com March 20, 2011

March 20, 2011

Status: New Owner: ---- New issue 3446 by elpochodelagente: VMMakerTool load config button doesn't work http://code.google.com/p/pharo/issues/detail?id=3446 Pharo image: dev 1.1.1 Pharo core version: Pharo-1.1-11411 Virtual machine used: custom linux, allmost latest VMMaker, classic (not cog) Class browser used if applicable: OBSystemBrowserAdaptor Steps to reproduce: 1. Load VMMaker with 2. Open the VMMakerTool with: "VMMakerTool openInWorld" 3. Push load config button, you get an error message The problem is that VMMaker tool makes use of StandardFileDialog, which isn't present in Pharo anymore. The method that raises the error is VMMakerTool>>#loadConfig | fileResult file | fileResult := (StandardFileMenu oldFileMenu: FileDirectory default withPattern: '*.config') startUpWithCaption: 'Select VMMaker configuration...'. fileResult ifNotNil: [ file := fileResult directory fullNameFor: fileResult name. [ vmMaker := VMMaker forConfigurationFile: file. vmMaker logger: logger. vmMaker platformDirectory ] on: Error do: [self inform: 'Possible problem with path settings or platform name?']. self updateAllViews] Changing fileResult := (StandardFileMenu oldFileMenu: FileDirectory default withPattern: '*.config') startUpWithCaption: 'Select VMMaker configuration...'. for fileResult := UIManager default chooseFileMatching: nil label: 'Select VMMaker configuration...'. and file := fileResult directory fullNameFor: fileResult name. for file := fileResult Fixes it almost completely. It would be better to use chooseFileMatching: #('*.config') but it didn't work well.

5 9

[Pharo-project] Issue 3534 in pharo: LargePositiveInteger(Object)>>error
by pharo＠googlecode.com March 19, 2011

March 19, 2011

Status: Accepted Owner: Torsten....(a)astares.de CC: eliot.miranda Labels: Milestone-1.2 New issue 3534 by Torsten....(a)astares.de: LargePositiveInteger(Object)>>error http://code.google.com/p/pharo/issues/detail?id=3534 It was already discussed here: http://lists.gforge.inria.fr/pipermail/pharo-project/2011-January/039447.ht… but I havent found an issue yet. From time to time I now also get the following error when opening the world menu (the menu with the help icon is red crossed due to display error) I use the latest prebuilt Cog VM Here is the stack: VM: Win32 - IX86 - 5.1 - Croquet Closure Cog VM [CoInterpreter VMMaker-oscog.45] Image: Pharo1.2beta [Latest update: #12297] LargePositiveInteger(Object)>>error: Receiver: 4278190081 Arguments and temporary variables: aString: 'MessageNotUnderstood: LargePositiveInteger>>pixelValueForDepth:' Receiver's instance variables: 4278190081 [:err :rcvr | | errCtx errMorph | errCtx := thisContext. [errCtx := errCtx sender. [errCtx notNil and: [errCtx receiver isMorph not]] whileTrue: [errCtx := errCtx sender]. errCtx ifNil: [^ self handleFatalDrawingError: err]. errMorph := errCtx receiver. errMorph hasProperty: #errorOnDraw] whileTrue. errMorph setProperty: #errorOnDraw toValue: true. rcvr error: err] in WorldState>>displayWorldSafely: Receiver: a WorldState Arguments and temporary variables: err: 'MessageNotUnderstood: LargePositiveInteger>>pixelValueForDepth:' rcvr: 4278190081 errCtx: ToggleMenuItemMorph>>drawIcon:on:in: errMorph: a ToggleMenuItemMorph(17825792)'Help' Receiver's instance variables: hands: an Array(a HandMorph(843055104)) viewBox: 0@0 corner: 1672@982 canvas: a FormCanvas on: DisplayScreen(1672x982x32) damageRecorder: a DamageRecorder stepList: a Heap(StepMessage(#stepAt: -> an OverflowRowMorph(157810688))(an Ove...etc... lastStepTime: 105085 lastStepMessage: nil lastCycleTime: 105055 alarms: a Heap() lastAlarmTime: 105085 menuBuilder: a PragmaMenuBuilder BlockClosure>>cull:cull: Receiver: [:err :rcvr | | errCtx errMorph | errCtx := thisContext. [errCtx := errCtx sender. [err...etc... Arguments and temporary variables: firstArg: 'MessageNotUnderstood: LargePositiveInteger>>pixelValueForDepth:' secondArg: 4278190081 Receiver's instance variables: outerContext: WorldState>>displayWorldSafely: startpc: 73 numArgs: 2 [:ex | errorHandlerBlock cull: ex description cull: ex receiver] in BlockClosure>>ifError: Receiver: [aWorld displayWorld] Arguments and temporary variables: errorHandlerBlock: MessageNotUnderstood: LargePositiveInteger>>pixelValueForDep...etc... ex: [:err :rcvr | | errCtx errMorph | errCtx := thisContext. [errCtx := errCt...etc... Receiver's instance variables: outerContext: WorldState>>displayWorldSafely: startpc: 66 numArgs: 0 BlockClosure>>cull: Receiver: [:ex | errorHandlerBlock cull: ex description cull: ex receiver] Arguments and temporary variables: anArg: MessageNotUnderstood: LargePositiveInteger>>pixelValueForDepth: Receiver's instance variables: outerContext: BlockClosure>>ifError: startpc: 40 numArgs: 1 [(self tempAt: 2) cull: exception] in MethodContext(ContextPart)>>handleSignal: Receiver: BlockClosure>>on:do: Arguments and temporary variables: exception: MessageNotUnderstood: LargePositiveInteger>>pixelValueForDepth: Receiver's instance variables: sender: BlockClosure>>ifError: pc: 17 stackp: 3 method: (BlockClosure>>#on:do: "a CompiledMethod(88866816)") closureOrNil: nil receiver: [aWorld displayWorld] BlockClosure>>ensure: Receiver: [(self tempAt: 2) cull: exception] Arguments and temporary variables: aBlock: [self tempAt: 3 put: true] complete: nil returnValue: nil Receiver's instance variables: outerContext: MethodContext(ContextPart)>>handleSignal: startpc: 90 numArgs: 0 MethodContext(ContextPart)>>handleSignal: Receiver: BlockClosure>>on:do: Arguments and temporary variables: exception: MessageNotUnderstood: LargePositiveInteger>>pixelValueForDepth: val: nil Receiver's instance variables: sender: BlockClosure>>ifError: pc: 17 stackp: 3 method: (BlockClosure>>#on:do: "a CompiledMethod(88866816)") closureOrNil: nil receiver: [aWorld displayWorld] MessageNotUnderstood(Exception)>>signal Receiver: MessageNotUnderstood: LargePositiveInteger>>pixelValueForDepth: Arguments and temporary variables: Receiver's instance variables: messageText: nil tag: nil signalContext: MessageNotUnderstood(Exception)>>signal handlerContext: BlockClosure>>on:do: outerContext: nil message: pixelValueForDepth: 32 receiver: 4278190081 reachedDefaultHandler: false LargePositiveInteger(Object)>>doesNotUnderstand: #pixelValueForDepth: Receiver: 4278190081 Arguments and temporary variables: aMessage: pixelValueForDepth: 32 exception: MessageNotUnderstood: LargePositiveInteger>>pixelValueForDepth: resumeValue: nil Receiver's instance variables: 4278190081 ColorForm>>colormapIfNeededForDepth: Receiver: ColorForm(5x9x1) Arguments and temporary variables: destDepth: 32 newMap: a Bitmap of length 2 i: 2 iLimiT: 2 Receiver's instance variables: bits: a Bitmap of length 9 width: 5 height: 9 depth: 1 offset: nil colors: {(Color transparent). 4278190081} cachedDepth: nil cachedColormap: nil ColorForm>>colormapIfNeededFor: Receiver: ColorForm(5x9x1) Arguments and temporary variables: destForm: DisplayScreen(1672x982x32) newMap: nil color: nil pv: nil i: nil iLimiT: nil Receiver's instance variables: bits: a Bitmap of length 9 width: 5 height: 9 depth: 1 offset: nil colors: {(Color transparent). 4278190081} cachedDepth: nil cachedColormap: nil FormCanvas>>image:at:sourceRect:rule: Receiver: a FormCanvas on: DisplayScreen(1672x982x32) Arguments and temporary variables: aForm: ColorForm(5x9x1) aPoint: 689@404 sourceRect: 0@0 corner: 5@9 rule: 24 Receiver's instance variables: target: nil filterSelector: nil origin: 0@0 clipRect: 544@234 corner: 699@501 form: DisplayScreen(1672x982x32) port: a GrafPort shadowColor: nil FormCanvas(Canvas)>>translucentImage:at:sourceRect: Receiver: a FormCanvas on: DisplayScreen(1672x982x32) Arguments and temporary variables: aForm: ColorForm(5x9x1) aPoint: 689@404 sourceRect: 0@0 corner: 5@9 Receiver's instance variables: target: nil filterSelector: nil origin: 0@0 clipRect: 544@234 corner: 699@501 form: DisplayScreen(1672x982x32) port: a GrafPort shadowColor: nil FormCanvas(Canvas)>>translucentImage:at: Receiver: a FormCanvas on: DisplayScreen(1672x982x32) Arguments and temporary variables: aForm: ColorForm(5x9x1) aPoint: 689@404 Receiver's instance variables: target: nil filterSelector: nil origin: 0@0 clipRect: 544@234 corner: 699@501 form: DisplayScreen(1672x982x32) port: a GrafPort shadowColor: nil ToggleMenuItemMorph>>drawIcon:on:in: Receiver: a ToggleMenuItemMorph(17825792)'Help' Arguments and temporary variables: aForm: ColorForm(5x9x1) aCanvas: a FormCanvas on: DisplayScreen(1672x982x32) aRectangle: 689@404 corner: 694@413 iconForm: ColorForm(5x9x1) Receiver's instance variables: bounds: 549@399 corner: 694@417 owner: a MenuMorph(415236096) submorphs: #() fullBounds: 549@399 corner: 694@417 color: Color black extension: a MorphExtension (20447232) [other: (errorOnDraw -> true)] font: a StrikeFont(Bitmap DejaVu Sans 9 14) emphasis: 0 contents: 'Help' hasFocus: false isEnabled: true subMenu: a MenuMorph(37486592) isSelected: false target: nil selector: nil arguments: nil icon: Form(16x16x32) getStateSelector: nil enablementSelector: nil keyText: nil ToggleMenuItemMorph>>drawSubMenuMarker:on:in: Receiver: a ToggleMenuItemMorph(17825792)'Help' Arguments and temporary variables: aForm: ColorForm(5x9x1) aCanvas: a FormCanvas on: DisplayScreen(1672x982x32) aRectangle: 567@401 corner: 694@417 markerRect: 689@404 corner: 694@413 Receiver's instance variables: bounds: 549@399 corner: 694@417 owner: a MenuMorph(415236096) submorphs: #() fullBounds: 549@399 corner: 694@417 color: Color black extension: a MorphExtension (20447232) [other: (errorOnDraw -> true)] font: a StrikeFont(Bitmap DejaVu Sans 9 14) emphasis: 0 contents: 'Help' hasFocus: false isEnabled: true subMenu: a MenuMorph(37486592) isSelected: false target: nil selector: nil arguments: nil icon: Form(16x16x32) getStateSelector: nil enablementSelector: nil keyText: nil

1 5

Re: [Pharo-project] [ANN] Amazon AWS S3 Client
by Marcus Denker March 19, 2011

March 19, 2011

> > > (client := ZnAWSS3Client new) > accessKeyId: '2ZGSSBGBHQGJ9VV5N441'; > secretAccessKey: 'OtxrzxIsfpFjA7SwPzILwy8Bw21TLhquhboDYROV'; > checkIntegrity: true. > > client buckets. > > client keysIn: 'my-bucket'. > > client keysIn: 'my-bucket' query: (Dictionary with: 'prefix'->'my-'). > > client at: 'my-bucket' -> 'my-key'. > > client at: 'my-bucket' -> 'my-key' put: (ZnEntity with: '0123456789'). > > client at: 'my-bucket' -> 'my-key' put: (ZnEntity with: 'Smalltalk rules S3!') headers: (Dictionary with: 'x-amz-acl'->'public-read'). > > Sven > > PS: the code does contain comments but you will need to read up on S3 first. To run anything you will have to create an AWS S3 account. > Nice! Did you check the work of Ernst Micklei and Jan van de Sandt? They implemented smalltalk libraries for S3, but in addition other services (e.g. SimpleDB) http://blog.doit.st/ http://www.slideshare.net/esug/cloudfork -- Marcus Denker -- http://www.marcusdenker.de INRIA Lille -- Nord Europe. Team RMoD.

3 2

Re: [Pharo-project] Issue 3205 in pharo: monticello's error on Linux
by pharo＠googlecode.com March 18, 2011

March 18, 2011

Comment #2 on issue 3205 by sanchezlsp: monticello's error on Linux http://code.google.com/p/pharo/issues/detail?id=3205 Thank you. That works.

1 1

[Pharo-project] Issue 3426 in pharo: shouldBePrintedAsLiteral instead of isLiteral
by pharo＠googlecode.com March 18, 2011

March 18, 2011

Status: Fixed Owner: stephane.ducasse Labels: Milestone-1.3 New issue 3426 by stephane.ducasse: shouldBePrintedAsLiteral instead of isLiteral http://code.google.com/p/pharo/issues/detail?id=3426 Levente Uzonyi uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-ul.518.mcz ==================== Summary ==================== Name: Kernel-ul.518 Author: ul Time: 23 November 2010, 1:54:49.317 pm UUID: b098496d-94bb-f943-9cf9-bd07ab3b0b71 Ancestors: Kernel-dtl.517 - introduced Object >> #shouldBePrintedAsLiteral as a replacement for #isLiteral during printing and storing =============== Diff against Kernel-dtl.517 =============== Item was added: + ----- Method: Object>>shouldBePrintedAsLiteral (in category 'testing') ----- + shouldBePrintedAsLiteral + + ^self isLiteral! Item was changed: ----- Method: ScaledDecimal>>storeOn: (in category 'printing') ----- storeOn: aStream "SxaledDecimal sometimes have more digits than they print (potentially an infinity). In this case, do not use printOn: because it would loose some extra digits" + self shouldBePrintedAsLiteral - self isLiteral ifTrue: [self printOn: aStream] ifFalse: [aStream nextPut: $(; store: fraction numerator; nextPut: $/; store: fraction denominator; nextPut: $s; store: scale; nextPut: $)]!

1 4