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

Athens/Morphic
by Nicolai Hess March 5, 2015

March 5, 2015

A new Version of the AthensWrapWorldMorph (useful for testing Athens based drawing for morphs). And some changes for using Athens with the existing Morphs: Many things are working, some important not. I had some terrible, terrible hours fighting with clipping, MorphTransformation and Textrendering. MorphTreeTransform still doesn't work. Textrendering: I solved by using some of AthensText-classes. Those aren't fully working. Tabs or similiar control characters don't work. Text emphasis doesn't work. Different fonts and different colors in one TextMorph is working now! And I still don't know if this is the right way and I did not get any review/feedback on this (issue 13449). (In the meantime we have similiar TxTextModel based classes in the image, maybe I am wasting my time). I had to make one change for creating a pattern paint from a form: AthensCairoSurface>>#fromForm: I am not sure about this change, but image fillstyle with 1 pixel height didn't work, but now they do (for example, change to vistary or watery theme, they make some heavy use on fillstyles, and it works now with athens). athens_wrap_world.cs is a new AthensWrapWorldMorph for testing Athens rendering, every Morph put on this WrapWorld will be drawn by athens. athens_morphic_support.cs and athens_morphic_textsupports.cs add/fix athens related methods. athens_morphic_drawonathens.cs defines some more drawOnAthensCanvas: methods.

7 20

Example implementation of associations with Slots in Pharo 4.0
by Jan van de Sandt March 5, 2015

March 5, 2015

Today I experimented a little with the new Slots feature of Pharo 4.0. As an example I implemented support for associations/relationships. With it you can link two slots together so an update on one side will also update the other side of the association/relationship. I used these Movie and Person classes for testing: Object subclass: #SlotExampleMovie slots: { #name. #year. ToOneAssociationSlot named: #director target: #SlotExamplePerson inverse: #directedMovies. ToManyAssociationSlot named: #actors target: #SlotExamplePerson inverse: #actedInMovies } classVariables: { } category: 'SlotAssociations-Tests-Example' Object subclass: #SlotExamplePerson slots: { #name. ToManyAssociationSlot named: #directedMovies target: #SlotExampleMovie inverse: #director. ToManyAssociationSlot named: #actedInMovies target: #SlotExampleMovie inverse: #actors } classVariables: { } category: 'SlotAssociations-Tests-Example' With this definition the director of a Movie must be a Persion instance. When you set the director of a movie this movie is automatically added to the directedMovies collection of that person. Off course it also works the other way around. It took very little code to add these association slots. I think Slots are a really nice addition to Pharo! If anyone wants to have a look at the code: MCHttpRepository location: 'http://smalltalkhub.com/mc/JanVanDeSandt/Stuff/main' user: '' password: '' Jan.

5 13

Easy way to write a proxy?
by Alexandre Bergel March 3, 2015

March 3, 2015

Hi! I have a near-to-be naive question. Maybe there is something obvious, but I cannot see it. Consider the following implementation of a proxy: -=-=-=-=-=-=-=-=-=-=-=-= Object subclass: #MyProxy instanceVariableNames: 'object'. MyProxy >> object: anObject object := anObject MyProxy >> doesNotUnderstand: aMessage ^ object perform: aMessage selector withArguments: aMessage arguments Object >> wrap self becomeForward: (MyProxy new object: self; yourself) -=-=-=-=-=-=-=-=-=-=-=-= The problem is with wrap. After the becomeForward:, MyProxy has itself in the object variable. Even self is apparently subject to the #become. It means that the following code loop indefinitely -=-=-=-=-=-=-=-=-=-=-=-= d := Dictionary new. d wrap. d add: #foo -> 10 -=-=-=-=-=-=-=-=-=-=-=-= I know there is Marianoâs library to write proxy. But I still wondering whether this could be done simply. Any idea how to simply create a proxy? Cheers, Alexandre -- _,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;: Alexandre Bergel http://www.bergel.eu ^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.

8 13

Keyboard Event Weirdness
by Sean P. DeNigris March 2, 2015

March 2, 2015

I put the following halt in HandMorph>>#handleEvent: anEvent isKeyboard ifTrue: [Transcript show: anEvent printString, ' keyChar: ', anEvent keyCharacter asString, ' keyValue: ', anEvent keyValue asString; cr]. Then I typed 'hi' in a Workspace and hit Cmd+a. Look at the weird Transcript output... [keyDown ''] keyChar: keyValue: 4 [keystroke 'h'] keyChar: h keyValue: 104 [keyUp ''] keyChar: keyValue: 4 [keyDown ''] keyChar: keyValue: 34 [keystroke 'i'] keyChar: i keyValue: 105 [keyUp ''] keyChar: keyValue: 34 [keyDown '<Cmd->'] keyChar: keyValue: 0 [keystroke '<Cmd-a>'] keyChar: a keyValue: 97 [keyUp '<Cmd->'] keyChar: keyValue: 0 It seems the keyUp/Downs do not have the correct charCode and the keyValue is different than the keystroke for the same key. What's going on here? ----- Cheers, Sean -- View this message in context: http://forum.world.st/Keyboard-Event-Weirdness-tp4737056.html Sent from the Pharo Smalltalk Developers mailing list archive at Nabble.com.

2 6

Re: [Pharo-dev] [regression reporter]regression occurred
by Sven Van Caekenberghe March 2, 2015

March 2, 2015

Number>>#brickValue: must die ! > On 25 Feb 2015, at 15:53, no-reply(a)ci.inria.fr wrote: > > https://ci.inria.fr/pharo/job/Pharo-4.0-Update-Step-2.1-Validation-A-L/labe… > > 1 regressions found. > KernelTests.Numbers.NumberTest.testMethodsOfTheClassShouldNotBeRepeatedInItsSuperclasses

6 11

Re: [Pharo-dev] Ubunti 14.04 32bit install error
by bsselfridge＠gmail.com March 1, 2015

March 1, 2015

I removed every package with the name "pharo" in it via the commands: "sudo apt-get --purge remove pharo-vm-core" "sudo apt-get --purge remove pharo-vm-core-i386" "sudo apt-get --purge remove pharo-sources-files" Then ran a "dpkg --get-selections | grep 'pharo*'" wheich returned nothing. Then ran the following commands: "sudo add-apt-repository ppa:pharo/unstable" "sudo dpkg --add-architecture i386" "sudo apt-get update" "sudo apt-get install pharo-launcher" Did NOT solve the problem. ----- Brad Selfridge -- View this message in context: http://forum.world.st/Ubunti-14-04-32bit-install-error-tp4805391p4805402.ht… Sent from the Pharo Smalltalk Developers mailing list archive at Nabble.com.

6 15

Smart Suggestions based on text selection such as extract method seems to be broken.
by stepharo March 1, 2015

March 1, 2015

Hi Smart Suggestions based on text selection such as extract method seems to be broken. if I press command-T on a node, when I select extract method, the complete or part of the method is selected. I thought that it was working. Stef

2 2

latest update broke rename method.
by stepharo March 1, 2015

March 1, 2015

FYI latest update broke rename method. privateRenameMethodFor: aMethod | class selector oldMethodName newMethodName tempOldArguments oldArguments argumentPermutation | class := aMethod methodClass. selector := aMethod selector. oldArguments := aMethod ast arguments collect: [ :each | each token value ]. ^^^^^ tempOldArguments := aMethod ast arguments collect: [ :each | each token value ]. oldMethodName := RBMethodName selector: selector arguments: oldArguments. (newMethodName := self requestMethodNameFor: oldMethodName) ifNil: [ ^ nil ]. argumentPermutation := newMethodName arguments collect: [ :each | tempOldArguments indexOf: each ]. ^ RBRenameMethodRefactoring model: environment renameMethod: selector in: class to: newMethodName selector permutation: argumentPermutation

2 1

[pharo-project/pharo-core] 4834e8: 40521
by GitHub March 1, 2015

March 1, 2015

Branch: refs/heads/4.0 Home: https://github.com/pharo-project/pharo-core Commit: 4834e88ae552b702f80b32799c142bb9101e56a3 https://github.com/pharo-project/pharo-core/commit/4834e88ae552b702f80b3279… Author: Jenkins Build Server <board(a)pharo-project.org> Date: 2015-02-28 (Sat, 28 Feb 2015) Changed paths: A Graphics-Shapes.package/PathShape.class/README.md A Graphics-Shapes.package/PathShape.class/class/as yet unclassified/vertices_.st A Graphics-Shapes.package/PathShape.class/definition.st A Graphics-Shapes.package/PathShape.class/instance/accessing/basicBounds.st A Graphics-Shapes.package/PathShape.class/instance/accessing/bounds.st A Graphics-Shapes.package/PathShape.class/instance/accessing/bounds_.st A Graphics-Shapes.package/PathShape.class/instance/accessing/vertices.st A Graphics-Shapes.package/PathShape.class/instance/accessing/vertices_.st A Graphics-Shapes.package/PathShape.class/instance/as yet unclassified/addVertex_.st A Graphics-Shapes.package/PathShape.class/instance/as yet unclassified/calculatedBounds.st A Graphics-Shapes.package/PathShape.class/instance/as yet unclassified/containsPoint_.st A Graphics-Shapes.package/PathShape.class/instance/as yet unclassified/segmentsDo_.st A Graphics-Shapes.package/PathShape.class/instance/initialization/initialize.st A Graphics-Shapes.package/Polygon.class/README.md A Graphics-Shapes.package/Polygon.class/definition.st A Graphics-Shapes.package/Polygon.class/instance/as yet unclassified/containsPoint_.st A Graphics-Shapes.package/Polygon.class/instance/as yet unclassified/segmentsDo_.st A Graphics-Shapes.package/Shape.class/README.md A Graphics-Shapes.package/Shape.class/definition.st A Graphics-Shapes.package/Shape.class/instance/as yet unclassified/basicContainsPoint_.st A Graphics-Shapes.package/Shape.class/instance/as yet unclassified/bounds.st A Graphics-Shapes.package/Shape.class/instance/as yet unclassified/containsPoint_.st M Morphic-Base.package/extension/GradientFillStyle/instance/changeColorOf_rampIndex_.st R Polymorph-Geometry.package/PathShape.class/README.md R Polymorph-Geometry.package/PathShape.class/class/as yet unclassified/vertices_.st R Polymorph-Geometry.package/PathShape.class/definition.st R Polymorph-Geometry.package/PathShape.class/instance/accessing/basicBounds.st R Polymorph-Geometry.package/PathShape.class/instance/accessing/bounds.st R Polymorph-Geometry.package/PathShape.class/instance/accessing/bounds_.st R Polymorph-Geometry.package/PathShape.class/instance/accessing/vertices.st R Polymorph-Geometry.package/PathShape.class/instance/accessing/vertices_.st R Polymorph-Geometry.package/PathShape.class/instance/as yet unclassified/addVertex_.st R Polymorph-Geometry.package/PathShape.class/instance/as yet unclassified/calculatedBounds.st R Polymorph-Geometry.package/PathShape.class/instance/as yet unclassified/containsPoint_.st R Polymorph-Geometry.package/PathShape.class/instance/as yet unclassified/segmentsDo_.st R Polymorph-Geometry.package/PathShape.class/instance/initialization/initialize.st R Polymorph-Geometry.package/Polygon.class/README.md R Polymorph-Geometry.package/Polygon.class/definition.st R Polymorph-Geometry.package/Polygon.class/instance/as yet unclassified/containsPoint_.st R Polymorph-Geometry.package/Polygon.class/instance/as yet unclassified/segmentsDo_.st R Polymorph-Geometry.package/Shape.class/README.md R Polymorph-Geometry.package/Shape.class/definition.st R Polymorph-Geometry.package/Shape.class/instance/as yet unclassified/basicContainsPoint_.st R Polymorph-Geometry.package/Shape.class/instance/as yet unclassified/bounds.st R Polymorph-Geometry.package/Shape.class/instance/as yet unclassified/containsPoint_.st M Reflectivity-Tests.package/ReflectiveMethodTest.class/instance/tests - creation/testCreateReflectiveMethodAndInvalidate.st M Reflectivity-Tests.package/ReflectiveMethodTest.class/instance/tests - creation/testInvalidate.st R Reflectivity-Tests.package/ReflectiveMethodTest.class/instance/tests - creation/testInvalidateWithLinCount.st A Reflectivity-Tests.package/ReflectiveMethodTest.class/instance/tests - creation/testInvalidateWithLinkCount.st R Reflectivity-Tests.package/ReflectivityExamples.class/instance/as yet unclassified/exampleMethod.st A Reflectivity-Tests.package/ReflectivityExamples.class/instance/example - simple/exampleMethod.st M Reflectivity.package/ReflectiveMethod.class/instance/evaluation/recompileAST.st M Reflectivity.package/ReflectiveMethod.class/instance/evaluation/run_with_in_.st M Reflectivity.package/ReflectiveMethod.class/instance/invalidate/destroyTwin.st A Reflectivity.package/ReflectiveMethod.class/instance/invalidate/installCompiledMethod.st R ScriptLoader40.package/ScriptLoader.class/instance/pharo - scripts/script520.st A ScriptLoader40.package/ScriptLoader.class/instance/pharo - scripts/script521.st R ScriptLoader40.package/ScriptLoader.class/instance/pharo - updates/update40520.st A ScriptLoader40.package/ScriptLoader.class/instance/pharo - updates/update40521.st M ScriptLoader40.package/ScriptLoader.class/instance/public/commentForCurrentUpdate.st A Spec-Help.package/SpecExamples.class/README.md A Spec-Help.package/SpecExamples.class/class/accessing/bookName.st A Spec-Help.package/SpecExamples.class/class/accessing/pages.st A Spec-Help.package/SpecExamples.class/class/pages/firstExample.st A Spec-Help.package/SpecExamples.class/class/pages/moreExamples.st A Spec-Help.package/SpecExamples.class/class/pages/secondExample.st A Spec-Help.package/SpecExamples.class/definition.st A Spec-Help.package/SpecHelpTopics.class/README.md A Spec-Help.package/SpecHelpTopics.class/class/accessing/bookName.st A Spec-Help.package/SpecHelpTopics.class/class/accessing/key.st A Spec-Help.package/SpecHelpTopics.class/class/accessing/pages.st A Spec-Help.package/SpecHelpTopics.class/class/pages/introduction.st A Spec-Help.package/SpecHelpTopics.class/class/pages/terminology.st A Spec-Help.package/SpecHelpTopics.class/definition.st A Spec-Help.package/SpecLayouts.class/README.md A Spec-Help.package/SpecLayouts.class/class/accessing/bookName.st A Spec-Help.package/SpecLayouts.class/class/accessing/pages.st A Spec-Help.package/SpecLayouts.class/class/pages/columns.st A Spec-Help.package/SpecLayouts.class/class/pages/columnsAndRows.st A Spec-Help.package/SpecLayouts.class/class/pages/intro.st A Spec-Help.package/SpecLayouts.class/class/pages/rows.st A Spec-Help.package/SpecLayouts.class/definition.st A Spec-Help.package/TheHeartOfSpec.class/README.md A Spec-Help.package/TheHeartOfSpec.class/class/accessing/bookName.st A Spec-Help.package/TheHeartOfSpec.class/class/accessing/pages.st A Spec-Help.package/TheHeartOfSpec.class/class/pages/initializePresenter.st A Spec-Help.package/TheHeartOfSpec.class/class/pages/initializeWidgets.st A Spec-Help.package/TheHeartOfSpec.class/class/pages/intro.st A Spec-Help.package/TheHeartOfSpec.class/class/pages/layouts.st A Spec-Help.package/TheHeartOfSpec.class/class/pages/widgetInstantiation.st A Spec-Help.package/TheHeartOfSpec.class/definition.st Log Message: ----------- 40521 14420 What to do with Polymorph-Geometry https://pharo.fogbugz.com/f/cases/14420 14950 Spec help added to the Help Browser https://pharo.fogbugz.com/f/cases/14950 15013 enable recompile on run:with:in: https://pharo.fogbugz.com/f/cases/15013 15015 GradientFillStyle color selection broken https://pharo.fogbugz.com/f/cases/15015 http://files.pharo.org/image/40/40521.zip

3 3

[Reflectivity] Compiler AST transformation Plugins
by Marcus Denker Feb. 28, 2015

Feb. 28, 2015

A simple AST-transformer plugin architecture for Opal... -> subclass OCCompilerASTPlugin -> implement #transform e.g. transform | rule | rule := RBParseTreeRewriter replaceLiteral: 42 with: 'meaning of life'. rule executeTree: ast. ^ast The plugin can be activated *per class hierarchy* by overriding #compiler compiler "the example plugin is active for this class" ^super compiler addPlugin: ASTPluginMeaningOfLife. or of course for a single compilation: (Smalltalk compiler addPlugin: ASTPluginMeaningOfLife) evaluate: â42â For review here: https://pharo.fogbugz.com/f/cases/15019/Compiler-AST-transformation-Plugins Marcus

2 1