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

[Pharo-project] [ANN] More on Keymappings
by Guillermo Polito March 20, 2011

March 20, 2011

What do we have now? - Can provide settings for a set of morphs - Can provide settings for a TextEditors (Smalltalk editor and related) - Settings integration I added some methods to the Settings Tree Builder in order to avoid references from the users code. - I ran Slint over it and cleaned it a lot more :). ( And learnt that Slint is there :P ) More info in here: http://guilleel3.blogspot.com/ Guille

7 29

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

Re: [Pharo-project] Issue 3575 in pharo: [Failing Tests] Obsolete classes after tests
by pharo＠googlecode.com March 18, 2011

March 18, 2011

Updates: Summary: [Failing Tests] Obsolete classes after tests Comment #6 on issue 3575 by guillerm...(a)gmail.com: [Failing Tests] Obsolete classes after tests http://code.google.com/p/pharo/issues/detail?id=3575 (No comment was entered for this change.)

1 5

[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

[Pharo-project] Issue 3581 in pharo: [Failing test] 1.1.1 Full: MethodWrappers.Tests.ObjectAsOneTimeMethodWrapperTest.testInstallOnClassCategory
by pharo＠googlecode.com March 16, 2011

March 16, 2011

Status: Accepted Owner: marcus.d...(a)gmail.com Labels: Milestone-1.1.2 New issue 3581 by marcus.d...(a)gmail.com: [Failing test] 1.1.1 Full: MethodWrappers.Tests.ObjectAsOneTimeMethodWrapperTest.testInstallOnClassCategory http://code.google.com/p/pharo/issues/detail?id=3581 MethodWrappers.Tests.ObjectAsOneTimeMethodWrapperTest.testInstallOnClassCategory fails sometimes.

1 13