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

Re: [Pharo-project] What fixed the tests? :-)

by Marcus Denker

On Mar 18, 2012, at 11:17 PM, Pavel Krivanek wrote: > Hi, > > what fixed the tests on Linux CI in 14287 so instead of 39 failures we > had only 4? Fixes in CogVM? > I changed the test that creates the file with Ã¤Ã¼ in the name and put in on this tracker entry: http://code.google.com/p/pharo/issues/detail?id=2438 (the report is from 2010...) So the problem is not fixed... but the idea is that failing test are in the tracker close to the report, while the tests in the release are green. Marcus -- Marcus Denker -- http://marcusdenker.de

March 19, 2012

Re: [Pharo-project] ConnectionQueue broken?

by Sven Van Caekenberghe

Hi Bill, This was already fixed for 1.4 http://code.google.com/p/pharo/issues/detail?id=5180 It could be backported I guess. Sven On 18 Mar 2012, at 02:11, Schwab,Wilhelm K wrote: > Hello all, > > I did some long overdue networking, and tried ConnectionQueue in 1.3. My changed version, that appears to work, is below. > > The key to the potential fix is in adding the #yourself to this line: > > newConnection := socket waitForConnectionFor: 10; yourself. > > #waitForConnectionFor: returns true or signals an error, the true ends up replacing the socket with a boolean and badness results. > > Can anyone confirm this? > > Bill > > > listenLoop > "Private! This loop is run in a separate process. It will establish up to maxQueueLength connections on the given port." > "Details: When out of sockets or queue is full, retry more frequently, since a socket may become available, space may open in the queue, or a previously queued connection may be aborted by the client, making it available for a fresh connection." > "Note: If the machine is disconnected from the network while the server is running, the currently waiting socket will go from 'isWaitingForConnection' to 'unconnected', and attempts to create new sockets will fail. When this happens, delete the broken socket and keep trying to create a socket in case the network connection is re-established. Connecting and disconnecting was tested under PPP on Mac system 8.1. It is not if this will work on other platforms. > > Fixed to not accept the connection if the queue is full (gvc)." > > > | newConnection | > > socket := Socket newTCP. > "We'll accept four simultanous connections at the same time" > socket listenOn: portNumber backlogSize: 4. > "If the listener is not valid then the we cannot use the > BSD style accept() mechanism." > socket isValid ifFalse: [^self oldStyleListenLoop]. > [true] whileTrue: [ > socket isValid ifFalse: [ > "socket has stopped listening for some reason" > socket destroy. > (Delay forMilliseconds: 10) wait. > ^self listenLoop ]. > [newConnection := socket waitForConnectionFor: 10; yourself. ] > on: ConnectionTimedOut > do: [:ex | newConnection := nil]. > (newConnection notNil and: [newConnection isConnected]) > ifTrue: [(accessSema critical: [connections size < maxQueueLength]) > ifTrue: [newConnection := socket accept] > ifFalse: [socket closeAndDestroy: 0]] > ifFalse: [newConnection := nil]. > (newConnection notNil and: [newConnection isConnected]) ifTrue: [ > accessSema critical: [connections addLast: newConnection]. > newConnection := nil. > self changed]. > self pruneStaleConnections].

March 19, 2012

Re: [Pharo-project] non-interactive compiling with feedback

by HernÃ¡n Morales Durand

If you have Grease loaded: Gofer new squeaksource: 'CodeGenerator'; package: 'CodeGenerator'; load. [CGSmalltalk new setSourceAsCode; targetClass: Object; compile: 'testMethod ^ 42. ^ 32' ] on: SyntaxErrorNotification " or Notification " do: [: ex | ^ ex errorMessage ] 2012/3/17 Milan Mimica <milan.mimica(a)gmail.com> > Hello, > > i want to add some scripting capabilities to my app, and I wand to use > plain smalltalk for that. The only problem is that I still haven't found a > way to generate a compiled which would return a string describing a problem > in case a syntax errors. Can I get some help? > > > -- > Milan Mimica > -- HernÃ¡n Morales Institute of Veterinary Genetics. National Scientific and Technical Research Council (CONICET). La Plata (1900), Buenos Aires, Argentina. Telephone: +54 (0221) 421-1799. Internal: 422 Fax: 425-7980 or 421-1799.

March 19, 2012

Re: [Pharo-project] Morphic operation in startUp sequence

by Ricardo Moran

Hi, I'm just guessing here but have you tried wrapping your operation in a deffered UI message? Something like the following: > WorldState addDeferredUIMessage: ["Your stuff here"]. Cheers, Richo On Sun, Mar 18, 2012 at 5:19 AM, Hilaire Fernandes < hilaire.fernandes(a)edu.ge.ch> wrote: > Hello, > > What is the proper way to do morphic operation when an image is loaded. > I am not sure it is safe to do in the startUp sequence. > > Thanks > > Hilaire > > > -- > Dr. Geo -- http://www.drgeo.eu > > >

March 19, 2012

[Pharo-project] Enhancing SmalltalkImage>>recreateSpecialObjectsArray to lower coupling

by Guillermo Polito

What about changing #recreateSpecialObjectsArray so having in mind some classes like Bitmap or Display may not be in the kernel? This only changes some lines like: ... newArray at: 5 put: (self at: #Bitmap ifAbsent: [ nil ]). ... newArray at: 13 put: (self at: #Point ifAbsent: [ nil ]). ... newArray at: 15 put: (self at: #Display ifAbsent: [ nil ]). ... newArray at: 34 put: (self at: #Point ifPresent: [ :cls | 0@0] ifAbsent: [ nil ]). Does anyone know if this should this break something? Guille

March 19, 2012

Re: [Pharo-project] Extending SystemBrowser

by Ezequiel Lamonica

Product is a new concept that I created to manage a group of packages. For example, Pharo, SeaSide, Moose, etc are products. Actually, we donÂ´t have a product concept, just only packages with same prefix in the name. I want to manage products to let you the posibility to download a product directly from your image, compare differences between product versions and handle dependencies problems between products. There are other reasons to do this. I am working in a OOSCM project and the products are important concepts in the desing. In regards of system brower, I want to show a panel with all products installed in the image. When you click in someone then in the 2nd panel a list of every package contained in the selected product appear. I don't know if it is the best solution but I think it could be a first approach. On 18 March 2012 06:44, Hilaire Fernandes <hilaire.fernandes(a)edu.ge.ch>wrote: > Le 15/03/2012 22:46, StÃ©phane Ducasse a Ã©crit : > > Use Glamour or Spec or OB but not systemBrowser. > > Run away from SystemBrowser > > > > What is the target window for the Pharo Browser? Are there any > aggregating energy to get out a modern incarnation of a system browser > for Pharo. Just wondering. > > Hilaire > > -- > Dr. Geo -- http://www.drgeo.eu > > >

March 19, 2012

Re: [Pharo-project] Understanding RunArray>>scanFrom:

by Guillermo Polito

What about moving it to Text Text>>scanFrom: ? On Sun, Mar 18, 2012 at 8:26 PM, Guillermo Polito <guillermopolito(a)gmail.com > wrote: > This method parses a stream from a fileout with styling and generates the > text style specific objects. > > Now, > 1) are we writing that style section in our fileouts? > 2) Is this really necessary in RunArray? It's class comment does not say > anything to me about Text nor TextStyle or stuff: > > "My instances provide space-efficient storage of data which tends to be > constant over long runs of the possible indices. Essentially repeated > values are stored singly and then associated with a "run" length that > denotes the number of consecutive occurrences of the value." > > > The method is the following: > > > scanFrom: strm > "Read the style section of a fileOut or sources file. nextChunk has > already been done. We need to return a RunArray of TextAttributes of > various kinds. These are written by the implementors of writeScanOn:" > | runs values attrList char | > (strm peekFor: $( ) ifFalse: [^ nil]. > runs := OrderedCollection new. > [strm skipSeparators. > strm peekFor: $)] whileFalse: > [runs add: (Number readFrom: strm)]. > values := OrderedCollection new. "Value array" > attrList := OrderedCollection new. "Attributes list" > [(char := strm next) == nil] whileFalse: [ > char == $, ifTrue: [values add: attrList asArray. attrList := > OrderedCollection new]. > char == $a ifTrue: [attrList add: > (TextAlignment new alignment: (Integer readFrom: strm ifFail: > [0]))]. > char == $f ifTrue: [attrList add: > (TextFontChange new fontNumber: (Integer readFrom: strm > ifFail: [0]))]. > char == $F ifTrue: [attrList add: (TextFontReference toFont: > (Smalltalk at: #StrikeFont ifPresent: [:sf | sf familyName: > (strm upTo: $#) size: (Integer readFrom: strm ifFail: [0])]))]. > char == $b ifTrue: [attrList add: (TextEmphasis bold)]. > char == $i ifTrue: [attrList add: (TextEmphasis italic)]. > char == $u ifTrue: [attrList add: (TextEmphasis underlined)]. > char == $= ifTrue: [attrList add: (TextEmphasis struckOut)]. > char == $n ifTrue: [attrList add: (TextEmphasis normal)]. > char == $- ifTrue: [attrList add: (TextKern kern: -1)]. > char == $+ ifTrue: [attrList add: (TextKern kern: 1)]. > char == $c ifTrue: [attrList add: (TextColor scanFrom: strm)]. > "color" > char == $L ifTrue: [attrList add: (TextLink scanFrom: strm)]. "L > not look like 1" > char == $R ifTrue: [attrList add: (TextURL scanFrom: strm)]. > "R capitalized so it can follow a number" > char == $P ifTrue: [attrList add: (TextPrintIt scanFrom: strm)]. > char == $d ifTrue: [attrList add: (TextDoIt scanFrom: strm)]. > "space, cr do nothing" > ]. > values add: attrList asArray. > ^ self runs: runs asArray values: (values copyFrom: 1 to: runs size) > asArray > " > RunArray scanFrom: (ReadStream on: '(14 50 312)f1,f1b,f1LInteger +;i') > " > > > Guille >

March 18, 2012

[Pharo-project] Understanding RunArray>>scanFrom:

by Guillermo Polito

This method parses a stream from a fileout with styling and generates the text style specific objects. Now, 1) are we writing that style section in our fileouts? 2) Is this really necessary in RunArray? It's class comment does not say anything to me about Text nor TextStyle or stuff: "My instances provide space-efficient storage of data which tends to be constant over long runs of the possible indices. Essentially repeated values are stored singly and then associated with a "run" length that denotes the number of consecutive occurrences of the value." The method is the following: scanFrom: strm "Read the style section of a fileOut or sources file. nextChunk has already been done. We need to return a RunArray of TextAttributes of various kinds. These are written by the implementors of writeScanOn:" | runs values attrList char | (strm peekFor: $( ) ifFalse: [^ nil]. runs := OrderedCollection new. [strm skipSeparators. strm peekFor: $)] whileFalse: [runs add: (Number readFrom: strm)]. values := OrderedCollection new. "Value array" attrList := OrderedCollection new. "Attributes list" [(char := strm next) == nil] whileFalse: [ char == $, ifTrue: [values add: attrList asArray. attrList := OrderedCollection new]. char == $a ifTrue: [attrList add: (TextAlignment new alignment: (Integer readFrom: strm ifFail: [0]))]. char == $f ifTrue: [attrList add: (TextFontChange new fontNumber: (Integer readFrom: strm ifFail: [0]))]. char == $F ifTrue: [attrList add: (TextFontReference toFont: (Smalltalk at: #StrikeFont ifPresent: [:sf | sf familyName: (strm upTo: $#) size: (Integer readFrom: strm ifFail: [0])]))]. char == $b ifTrue: [attrList add: (TextEmphasis bold)]. char == $i ifTrue: [attrList add: (TextEmphasis italic)]. char == $u ifTrue: [attrList add: (TextEmphasis underlined)]. char == $= ifTrue: [attrList add: (TextEmphasis struckOut)]. char == $n ifTrue: [attrList add: (TextEmphasis normal)]. char == $- ifTrue: [attrList add: (TextKern kern: -1)]. char == $+ ifTrue: [attrList add: (TextKern kern: 1)]. char == $c ifTrue: [attrList add: (TextColor scanFrom: strm)]. "color" char == $L ifTrue: [attrList add: (TextLink scanFrom: strm)]. "L not look like 1" char == $R ifTrue: [attrList add: (TextURL scanFrom: strm)]. "R capitalized so it can follow a number" char == $P ifTrue: [attrList add: (TextPrintIt scanFrom: strm)]. char == $d ifTrue: [attrList add: (TextDoIt scanFrom: strm)]. "space, cr do nothing" ]. values add: attrList asArray. ^ self runs: runs asArray values: (values copyFrom: 1 to: runs size) asArray " RunArray scanFrom: (ReadStream on: '(14 50 312)f1,f1b,f1LInteger +;i') " Guille

March 18, 2012

Re: [Pharo-project] Any theme or settings that will speed up a Pharo 1.3 image?

by Camillo Bruni

hi stefan, maybe you can try yo profile all threads and see where it actually spends all the time? WorldMenu / System / Start profiling all Processes best cami On 2012-03-18, at 12:57, Stefan Marr wrote: > Hi: > > When trying to debug a Pharo image with a VM that is heavily instrumented with assertions and runs without any compiler optimizations turned on, it is crawlingly slow. > (The good old MVC based image is blazingly fast in comparison) > > Are there any tricks to reduce/disable all the possibly fancy things like transparency, code completion, syntax highlighting easily? > > I already disable the code completion, and syntax highlighting. > I also switched off things like animations, rounded corners, and switched to the Standard Squeak theme. > > Still, non of these cosmetic changes gave me the noticeable performance gain I had hoped for. > > Is there anything else I could try to reduce the amount of work the image is doing? > It blinks the cursor in a text field in the speed I would expect. > But as soon as I start typing, or try to interact with a window, it feels like I can go for a walk before the image is done. > > Thanks > Stefan > > > > -- > Stefan Marr > Software Languages Lab > Vrije Universiteit Brussel > Pleinlaan 2 / B-1050 Brussels / Belgium > http://soft.vub.ac.be/~smarr > Phone: +32 2 629 2974 > Fax: +32 2 629 3525 > >

March 18, 2012

Re: [Pharo-project] non-interactive compiling with feedback

by Camillo Bruni

hi, generally if you compile source-code you will get a more or less descriptive error you can handle: [ myClass compile: 'foo;' ] on: Error do: [ :err| "handle the error" self halt ]. most of the time you will get a SyntaxErrorNotification. best cami On 2012-03-17, at 13:08, Milan Mimica wrote: > Hello, > > i want to add some scripting capabilities to my app, and I wand to use plain smalltalk for that. The only problem is that I still haven't found a way to generate a compiled which would return a string describing a problem in case a syntax errors. Can I get some help? > > > -- > Milan Mimica

March 18, 2012