May 2013 - Pharo-dev - lists.pharo.org

Re: [Pharo-project] Stick figure in Pharo smalltalk

by Sean P. DeNigris

MikeR wrote > So I'm trying to create a stick figure in Pharo. > > So far I have this > > man := Morph new. > head := CircleMorph new color: Color black . > body := LineMorph new. > man addMorph: head. > man addMorph: body. > man openInWindow. > > it will give you a circle and a line in a window, but the line i can > adjust the point property. I wondering if anyone could pt. me in the right > direction. ----- Cheers, Sean -- View this message in context: http://forum.world.st/Stick-figure-in-Pharo-smalltalk-tp4686413p4686485.html Sent from the Pharo Smalltalk mailing list archive at Nabble.com.

May 8, 2013

Re: [Pharo-project] [Lsehub-staff] AST-Navigation short demo

by stephane ducasse

gisela Did you implement an sender and implementors based on the selector (ast analysis)? Did we replace the old one with this new one? Stef On May 8, 2013, at 2:03 PM, Gisela Decuzzi <giseladecuzzi(a)gmail.com> wrote: > Hi! I've recorded the video as Damian suggested to show how to use the code navigation based in the ast :) > > Here it's the video: http://www.youtube.com/watch?v=pFLyzEI0jmE (Sorry for my English) > > And if you want to try: > Gofer it > url: 'http://smalltalkhub.com/mc/gisela/NodeNavigation/main'; > package: 'ConfigurationOfNodeNavigation'; > load. > ((Smalltalk globals at: #ConfigurationOfNodeNavigation) project version: #development) load. > > A summary for the shortcuts: > - going to the parent: ctrl + shift + p (command + shift + p for mac) > - going to the first child: ctrl + shift + o (command + shift + o for mac) > - going to same level node: ctrl + shift + u (command + shift + u for mac) > > It would be great to use the arrowUp or down, I want to check if it's easy to make them work first and also make the navigation available for debugger, workspace, message browser (...) > >

May 8, 2013

[Pharo-project] Fwd: Build failed in Jenkins: PharoForTheEnterprise #46

by Damien Cassou

What is this error? I get "file stdout is closed" all the times when I launch the image ---------- Forwarded message ---------- From: <ci-pharo-contribution(a)inria.fr> Date: Wed, May 8, 2013 at 6:52 PM Subject: Build failed in Jenkins: PharoForTheEnterprise #46 To: damien.cassou(a)gmail.com, stephane.ducasse(a)free.fr, stephane.ducasse(a)inria.fr See <https://ci.inria.fr/pharo-contribution/job/PharoForTheEnterprise/46/changes> Changes: [stephane.ducasse] Continuing my pass on Zinc [stephane.ducasse] Getting started! ------------------------------------------ Started by an SCM change Building remotely on pharo-contribution-linux64-2.ci.inria.fr in workspace <https://ci.inria.fr/pharo-contribution/job/PharoForTheEnterprise/ws/> Deleting project workspace... done Checkout:PharoForTheEnterprise / <https://ci.inria.fr/pharo-contribution/job/PharoForTheEnterprise/ws/> - hudson.remoting.Channel@e4b51b1:pharo-contribution-linux64-2.ci.inria.fr Using strategy: Default Last Built Revision: Revision b7242c8ca891dc3d2ad0307ee9710714125b6200 (origin/master, origin/HEAD) Cloning the remote Git repository Cloning repository git://github.com/SquareBracketAssociates/PharoForTheEnterprise-english.git git --version git version 1.7.9.5 Fetching upstream changes from origin Seen branch in repository origin/HEAD Seen branch in repository origin/master Commencing build of Revision 0281f289ab06711f9d8b28b42c5071457601f19a (origin/master, origin/HEAD) Checking out Revision 0281f289ab06711f9d8b28b42c5071457601f19a (origin/master, origin/HEAD) Warning : There are multiple branch changesets here [PharoForTheEnterprise] $ /bin/sh -xe /tmp/hudson4499013595296382363.sh + ./download.sh vm image --2013-05-08 18:52:32-- http://get.pharo.org/vm Resolving get.pharo.org (get.pharo.org) 128.93.162.72 Connecting to get.pharo.org (get.pharo.org)|128.93.162.72|:80... connected. HTTP request sent, awaiting response... 200 OK Length: 5232 (5.1K) [text/html] Saving to: `STDOUT' 0K ..... Downloading the latest pharoVM: http://files.pharo.org/vm/pharo/linux/pharo-linux-stable.zip 100% 716M=0s 2013-05-08 18:52:32 (716 MB/s) - written to stdout [5232/5232] pharo-vm/pharo Downloading PharoV10.sources: http://files.pharo.org/image//PharoV10.sources.zip Downloading PharoV20.sources: http://files.pharo.org/image//PharoV20.sources.zip Creating starter scripts pharo and pharo-ui Please install the 32bit libraries sudo aptitude install ia32-libs --2013-05-08 18:52:33-- https://ci.inria.fr/pharo-contribution/job/Pier3BookOnPharo20/lastSuccessfu… Resolving ci.inria.fr (ci.inria.fr)... 193.51.193.223 Connecting to ci.inria.fr (ci.inria.fr)|193.51.193.223|:443... connected. HTTP request sent, awaiting response... 200 OK Length: 12037495 (11M) [application/zip] Saving to: `image8bmmF.zip' 0% [ ] 0 --.-K/s 69% [==========================> ] 8,370,592 39.9M/s 100%[======================================>] 12,037,495 42.4M/s in 0.3s 2013-05-08 18:52:33 (42.4 MB/s) - `image8bmmF.zip' saved [12037495/12037495] Pharo.image Pharo.changes + ./compile.sh ========================================================= COMPILING KeyMapping/KeyMapping.pier.tex ========================================================= WorldState [31m==== Startup Error: FileWriteError: File stdout is closed [0mMultiByteFileStream(StandardFileStream)>>primWrite:from:startingAt:count: MultiByteFileStream(StandardFileStream)>>next:putAll:startingAt: MultiByteFileStream>>basicNext:putAll:startingAt: UTF8TextConverter(TextConverter)>>nextPutByteString:toStream: UTF8TextConverter(TextConverter)>>nextPutAll:toStream: MultiByteFileStream>>nextPutAll: True>>printOn: MultiByteFileStream(Stream)>>print: VTermOutputDriver>>print: EvaluateCommandLineHandler>>evaluate: in Block: [self stdout... BlockClosure>>on:do: EvaluateCommandLineHandler>>evaluate: EvaluateCommandLineHandler>>evaluateArguments EvaluateCommandLineHandler>>activate EvaluateCommandLineHandler class(CommandLineHandler class)>>activateWith: DefaultCommandLineHandler>>handleSubcommand DefaultCommandLineHandler>>handleArgument: DefaultCommandLineHandler>>activate DefaultCommandLineHandler class>>startUp: in Block: [self new activate] BlockClosure>>cull: SmalltalkImage>>executeDeferredStartupActions: in Block: [each cull: resuming] BlockClosure>>on:do: SmalltalkImage>>logStartUpErrorDuring:into:tryDebugger: SmalltalkImage>>executeDeferredStartupActions: in Block: [:each | self... OrderedCollection>>do: SmalltalkImage>>executeDeferredStartupActions: SmalltalkImage>>startupImage:snapshotWorked: SmalltalkImage>>snapshot:andQuit: SmalltalkImage>>saveImageInFileNamed: SmalltalkImage>>saveAs: [0m [31mGot startup errors: [0m [31m FileWriteError: File stdout is closed [0mBuild step 'Execute shell' marked build as failure Archiving artifacts -- Damien Cassou http://damiencassou.seasidehosting.st "Success is the ability to go from one failure to another without losing enthusiasm." Winston Churchill

May 8, 2013

[Pharo-project] Fill a ring on a canvas

by Benjamin

Hi :) I would like to know if there is a way to draw rings on a Canvas ? I did something like | f | f := self bounds aCanvas drawOval: f color: Color black. aCanvas drawOval: (f expandBy: -5) color: Color white But this prevent the center to be transparent Thanks in advance w a ring Ben

May 8, 2013

Re: [Pharo-project] [Pharo-users] the future of squeaksource

by Andrei Vasile Chis

Thanks. I will add this script to the front page of SqueakSource. On Wed, May 8, 2013 at 5:55 PM, Damien Cassou <damien.cassou(a)gmail.com>wrote: > On Wed, May 8, 2013 at 4:05 PM, Hilaire Fernandes > <hilaire.fernandes(a)gmail.com> wrote: > > A small note or link in Squeaksource how to migrate to smaltalkhub will > > be helpful. > > > I agree. Something like that would make sense for people who want to > get an exact copy of their project: > > | source goSource destination goDestination files destinationFiles | > > source := MCHttpRepository location: ' > http://www.squeaksource.com/YOURPROJECT'. > destination := MCSmalltalkhubRepository owner: 'YOURNAME' project: > 'YOURPROJECT' user: 'YOURNAME' password: 'YOURPASSWORD'. > > goSource := Gofer new repository: source. > goDestination := Gofer new repository: destination. > > files := source allVersionNames. > > (goSource allResolved select: [ :resolved | files anySatisfy: [ :each > | resolved name = each ] ]) do: [ :each | goSource package: each > packageName ]. > > goSource fetch. "downloads all mcz on your computer" > > destinationFiles := destination allVersionNames. "checks what files > are already at destination" > files reject: [ :file | destinationFiles includes: file ] thenDo: [ > :file | goDestination version: file ]. "selects only the mcz that are > not yet at destination" > > goDestination push. "sends everything to SmalltalkHub" > > self assert: destination allVersionNames sorted = files sorted. > "checks we have exactly the same files at source and destination" > > -- > Damien Cassou > http://damiencassou.seasidehosting.st > > "Success is the ability to go from one failure to another without > losing enthusiasm." > Winston Churchill > >

May 8, 2013

Re: [Pharo-project] [Pharo-users] the future of squeaksource

by Andrei Vasile Chis

We were thinking of keeping the current image alive for one or two more months. Then replace it with just a simple view of the file system. On Wed, May 8, 2013 at 9:50 AM, stephane ducasse <stephane.ducasse(a)free.fr>wrote: > > On May 7, 2013, at 5:19 PM, Andrei Vasile Chis <chisvasileandrei(a)gmail.com> > wrote: > > > Hi all, > > > > Given that SmalltalkHub is now stable we were considering to discontinue > SqueakSource. > > Our idea is to provide a grace period of a couple of months to allow the > current active users to migrate their projects to the new service and then > simply put squeaksource in read-only mode (simply exposing the directory > structure and allowing downloads). > > > > What do you think about it ? > > Are there any good reasons to still keep SqueakSource alive? > > Keep it alive so that we can slowly migrate. Because migrating takes a lot > of time. > > > > > > > Cheers, > > The SCG Team > > >

May 8, 2013

Re: [Pharo-project] [Pharo-users] the future of squeaksource

by Damien Cassou

On Wed, May 8, 2013 at 4:05 PM, Hilaire Fernandes <hilaire.fernandes(a)gmail.com> wrote: > A small note or link in Squeaksource how to migrate to smaltalkhub will > be helpful. I agree. Something like that would make sense for people who want to get an exact copy of their project: | source goSource destination goDestination files destinationFiles | source := MCHttpRepository location: 'http://www.squeaksource.com/YOURPROJECT'. destination := MCSmalltalkhubRepository owner: 'YOURNAME' project: 'YOURPROJECT' user: 'YOURNAME' password: 'YOURPASSWORD'. goSource := Gofer new repository: source. goDestination := Gofer new repository: destination. files := source allVersionNames. (goSource allResolved select: [ :resolved | files anySatisfy: [ :each | resolved name = each ] ]) do: [ :each | goSource package: each packageName ]. goSource fetch. "downloads all mcz on your computer" destinationFiles := destination allVersionNames. "checks what files are already at destination" files reject: [ :file | destinationFiles includes: file ] thenDo: [ :file | goDestination version: file ]. "selects only the mcz that are not yet at destination" goDestination push. "sends everything to SmalltalkHub" self assert: destination allVersionNames sorted = files sorted. "checks we have exactly the same files at source and destination" -- Damien Cassou http://damiencassou.seasidehosting.st "Success is the ability to go from one failure to another without losing enthusiasm." Winston Churchill

May 8, 2013

Re: [Pharo-project] [Lsehub-staff] AST-Navigation short demo

by Damien Cassou

Hi Gisela, thank you very much for the work and video, it's great. I'm thinking that when you do ctrl + shift + o, you might want to go the previously selected child node and not to the first one. This way, you can press ctrl + shift + p very fast, even one time too much, and go back to the previous selection by pressing ctrl+shift+o once. What do you think? On Wed, May 8, 2013 at 2:03 PM, Gisela Decuzzi <giseladecuzzi(a)gmail.com> wrote: > Hi! I've recorded the video as Damian suggested to show how to use the code > navigation based in the ast :) > > Here it's the video: http://www.youtube.com/watch?v=pFLyzEI0jmE (Sorry for > my English) > > And if you want to try: > Gofer it > url: 'http://smalltalkhub.com/mc/gisela/NodeNavigation/main'; > package: 'ConfigurationOfNodeNavigation'; > load. > ((Smalltalk globals at: #ConfigurationOfNodeNavigation) project version: > #development) load. > > A summary for the shortcuts: > - going to the parent: ctrl + shift + p (command + shift + p for mac) > - going to the first child: ctrl + shift + o (command + shift + o for mac) > - going to same level node: ctrl + shift + u (command + shift + u for mac) > > It would be great to use the arrowUp or down, I want to check if it's easy > to make them work first and also make the navigation available for debugger, > workspace, message browser (...) > > -- Damien Cassou http://damiencassou.seasidehosting.st "Success is the ability to go from one failure to another without losing enthusiasm." Winston Churchill

May 8, 2013

[Pharo-project] generalizing NeoCSV

by Tudor Girba

Hi Sven, I am looking at NeoCSV, and I would like to add it to Moose by default. During the review, I noticed that it relies on perform: addRawField: accessor "Add a field based on an accessor to be written as a #raw field" self addFieldAccessor: [ :object | self writeRawField: (object perform: accessor) ] I would prefer to have it modified to simply use value:. In this way we can pass blocks as transformation specifications. Why is this important? Because we often have values that we want to export but that do not have a direct correspondent in a unary method. Would it be Ok to make this modification? Cheers, Doru -- www.tudorgirba.com "Every thing has its own flow"

May 8, 2013

[Pharo-project] AST-Navigation short demo

by Gisela Decuzzi

Hi! I've recorded the video as Damian suggested to show how to use the code navigation based in the ast :) Here it's the video: http://www.youtube.com/watch?v=pFLyzEI0jmE (Sorry for my English) And if you want to try: Gofer it url: 'http://smalltalkhub.com/mc/gisela/NodeNavigation/main'; package: 'ConfigurationOfNodeNavigation'; load. ((Smalltalk globals at: #ConfigurationOfNodeNavigation) project version: #development) load. A summary for the shortcuts: - going to the parent: ctrl + shift + p (command + shift + p for mac) - going to the first child: ctrl + shift + o (command + shift + o for mac) - going to same level node: ctrl + shift + u (command + shift + u for mac) It would be great to use the arrowUp or down, I want to check if it's easy to make them work first and also make the navigation available for debugger, workspace, message browser (...)

May 8, 2013