- Pharo-dev - lists.pharo.org

Re: [Pharo-dev] float printing glitch?

by Nicolas Cellier

Yes, you should change the tickPrintBlock because it probably incorrectly use (aFloat roundTo: 0.1) printString. There is no guaranty that this return the nearest Float to the aimed decimal fraction. Since this is not the nearest Float, you have additional digits displayed. The print block should use a selector like printShowingDecimalPlaces: (Squeak) or something equivalent in Pharo (can't remember if the selectors are 100% compatible). For completeness, do test these expressions: (0 to: 10) collect: [:i | (i/10) asFloat]. versus (0 to: 10) collect: [:i | i*0.1]. versus (0 to: 10) collect: [:i | (i/10) roundTo: 0.1]. Only the first one is correct. Trying to roundTo: 0.1 spoils thing because 0.1 is not exactly 1/10 and thus introduce small errors... 2013/12/24 StÃ©phane Ducasse <stephane.ducasse(a)inria.fr> > Hi (nicolas :)) > > I was fixing the sound package and the EnvelopeEditorMorph shows a strange > glitch > > EnvelopeEditorMorph openOn: (FMSound brass1) copy title: 'brass1' > > See ^^^^^^^^^^^^^^^^ below > > I have the impression that this related to float printString. Any idea how > to fix it? > > > > > > buildLabels > | scale x1 y1 y2 captionMorph loopStart offset | > majorTickLength * minorTickLength < 0 > ifTrue: [ minorTickLength := 0 - minorTickLength ]. > self removeAllMorphs. > caption ifNotNil: > [ captionMorph := StringMorph contents: caption. > offset := captionAbove > ifTrue: [majorTickLength abs + captionMorph height > + 7] > ifFalse: [2]. > captionMorph > align: captionMorph bounds bottomCenter > with: self bounds bottomCenter - (0 @ offset). > self addMorph: captionMorph]. > tickPrintBlock ifNotNil: > ["Calculate the offset for the labels, depending > on whether or not > 1) there's a caption > below, 2) the labels are above or below the ticks, > and 3) the > ticks go up or down" > offset := labelsAbove > ifTrue: [majorTickLength abs + > minorTickLength abs + 2] > ifFalse: [2]. > caption > ifNotNil: [captionAbove ifFalse: [offset > := offset + captionMorph height + 2]]. > scale := (self innerBounds width - 1) / (stop - > start) asFloat. > x1 := self innerBounds left. > y1 := self innerBounds bottom. > y2 := y1 - offset. > "Start loop on multiple of majorTick" > loopStart := (start / majorTick) ceiling * > majorTick. > loopStart to: stop > by: majorTick > do: > [ :v | | x tickMorph | > x := x1 + (scale * (v - start)). > tickMorph := StringMorph contents: > (tickPrintBlock value: v). > > ^^^^^^^^^^^^^^^^ printString? > > tickMorph align: tickMorph bounds > bottomCenter with: x @ y2. > tickMorph left < self left > ifTrue: [ tickMorph > position: self left @ tickMorph top ]. > tickMorph right > self right > ifTrue: [ tickMorph > position: (self right - tickMorph width) @ tickMorph top]. > self addMorph: tickMorph ]] >

Dec. 24, 2013

Re: [Pharo-dev] [Moose-dev] Re: Activity Diagram

by Serge Stinckwich

Ok thank you StÃ©phane, but activity diagrams are quite different from sequence ones: https://en.wikipedia.org/wiki/Activity_diagram On Tue, Dec 24, 2013 at 6:02 PM, StÃ©phane Ducasse <stephane.ducasse(a)inria.fr> wrote: > http://www.laputan.org/brant/brant.html > > I remember that we used it. > > Stef > >> Serge >> >> in VW there was an extension of MethodWrappers that supported the generation of SequenceDiagrams. >> >> Stef >> >> On 23 Dec 2013, at 15:39, Serge Stinckwich <serge.stinckwich(a)gmail.com> wrote: >> >>> Dear all, >>> >>> with a colleague from Savoie University, we are looking for some >>> Smalltalk code in order to model, execute and animate Activity >>> Diagram. Any existing works ? >>> >>> Regards, >>> -- >>> Serge Stinckwich >>> UCBN & UMI UMMISCO 209 (IRD/UPMC) >>> Every DSL ends up being Smalltalk >>> http://www.doesnotunderstand.org/ >>> >> > > > _______________________________________________ > Moose-dev mailing list > Moose-dev(a)iam.unibe.ch > https://www.iam.unibe.ch/mailman/listinfo/moose-dev -- Serge Stinckwich UCBN & UMI UMMISCO 209 (IRD/UPMC) Every DSL ends up being Smalltalk http://www.doesnotunderstand.org/

Dec. 24, 2013

Re: [Pharo-dev] Activity Diagram

by StÃ©phane Ducasse

http://www.laputan.org/brant/brant.html I remember that we used it. Stef > Serge > > in VW there was an extension of MethodWrappers that supported the generation of SequenceDiagrams. > > Stef > > On 23 Dec 2013, at 15:39, Serge Stinckwich <serge.stinckwich(a)gmail.com> wrote: > >> Dear all, >> >> with a colleague from Savoie University, we are looking for some >> Smalltalk code in order to model, execute and animate Activity >> Diagram. Any existing works ? >> >> Regards, >> -- >> Serge Stinckwich >> UCBN & UMI UMMISCO 209 (IRD/UPMC) >> Every DSL ends up being Smalltalk >> http://www.doesnotunderstand.org/ >> >

Dec. 24, 2013

Re: [Pharo-dev] Activity Diagram

by StÃ©phane Ducasse

Serge in VW there was an extension of MethodWrappers that supported the generation of SequenceDiagrams. Stef On 23 Dec 2013, at 15:39, Serge Stinckwich <serge.stinckwich(a)gmail.com> wrote: > Dear all, > > with a colleague from Savoie University, we are looking for some > Smalltalk code in order to model, execute and animate Activity > Diagram. Any existing works ? > > Regards, > -- > Serge Stinckwich > UCBN & UMI UMMISCO 209 (IRD/UPMC) > Every DSL ends up being Smalltalk > http://www.doesnotunderstand.org/ >

Dec. 24, 2013

Re: [Pharo-dev] PackageTasksPlugin intall problem

by StÃ©phane Ducasse

Hi satoshi Do you use the latest version of Nautilus? Stef > Hello > > select and do it below: > > Nautilus > pluginClasses: > {{FinderPlugin. #top}. > {AnnotationPanePlugin. #middle}. > {PackageTasksPlugin. #bottom}} asOrderedCollection. > browser := PackageTreeNautilus open. > browser ui selectedPackage: (RPackage named: 'AST-Core'). > browser ui changed: #listElement:. > > gets: > MessageNotUnderstood: PackageTreePackageSelection>>includesMethod:ofClass: > > regards. > > > -- > -- > "NISHIHARA Satoshi" > [:goonsh :nsh | ^ nishis perform: goonsh with: nsh] > <PharoDebug.log>

Dec. 24, 2013

Re: [Pharo-dev] problem while parsing xml

by StÃ©phane Ducasse

Hi Satoshi Did you try with the latest configuration of XMLParser? Because I do not know what it is in Moose. Stef On 23 Dec 2013, at 18:26, NISHIHARA Satoshi <goonsh(a)gmail.com> wrote: > Hello > > using: Pharo3.0 Latest update: #30659 (it occurs same error to > Pharo2.0 Latest update: #20628) > (Moose 4.9 with XML-Parser (DamienCassou.143) has no_err) > > 1. load XMLParser (StephaneDucasse.16) from Configuration browser > 2. select and inspect it below: > ^ XMLDOMParser parse: '<?xml version="1.0" encoding="UTF-8" standalone="no"?> > <!DOCTYPE score-partwise PUBLIC > "-//Recordare//DTD MusicXML 3.0 Partwise//EN" > "http://www.musicxml.org/dtds/partwise.dtd"> > <score-partwise version="3.0"> > <part-list> > <score-part id="P1"> > <part-name>Music</part-name> > </score-part> > </part-list> > <part id="P1"> > <measure number="1"> > <attributes> > <divisions>1</divisions> > <key> > <fifths>0</fifths> > </key> > <time> > <beats>4</beats> > <beat-type>4</beat-type> > </time> > <clef> > <sign>G</sign> > <line>2</line> > </clef> > </attributes> > <note> > <pitch> > <step>C</step> > <octave>4</octave> > </pitch> > <duration>4</duration> > <type>whole</type> > </note> > </measure> > </part> > </score-partwise> > ' readStream. > > 3. and get DNU: SmallInteger>>asciiValue > > 'case of XMLZincClient>>#get: > 'http://www.musicxml.com/dtds/partwise.dtd' timeout: ... onError: ... > returns binaryStream? > > > -- > -- > "NISHIHARA Satoshi" > [:goonsh :nsh | ^ nishis perform: goonsh with: nsh] > <PharoDebug.log>

Dec. 24, 2013

Re: [Pharo-dev] Filter in Nautilus

by StÃ©phane Ducasse

Hi Juraj did you fix the problem reported with the search input capturing events or I do not know what that was reported a while ago? Stef On 24 Dec 2013, at 00:47, Juraj Kubelka <juraj.kubelka(a)gmail.com> wrote: > And what about to set the same filter when opening browser from browser? > > And maybe history can be shared? > > Cheers, > Jura > > -- > Juraj Kubelka > >> El 23/12/2013, a las 18:23, Yuriy Tymchuk <yuriy.tymchuk(a)me.com> escribiÃ³: >> >> The thing is what if you have different things in a handful of browsers? I think that it can make sense to use it in nautilus with tabs. Or be able to quickly browse previous filters. >> >> Uko >> >>> On 23 Dec 2013, at 21:29, Alexandre Bergel <alexandre.bergel(a)me.com> wrote: >>> >>> Hi! >>> >>> I have the impression that it would be great to reuse the filter lastly set when opening a new nautilus. >>> For example, if I have a browser with the filter "^Roassal2|^Trachâ, I would like to have the same when opening a new browser. >>> >>> Am I the only one to feel this? >>> >>> Cheers, >>> Alexandre >>> >>> -- >>> _,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;: >>> Alexandre Bergel http://www.bergel.eu >>> ^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;. >> >> >

Dec. 24, 2013

Re: [Pharo-dev] [ANN] PunQLite - a new NoSQL wrapper for Pharo

by StÃ©phane Ducasse

Thanks for your contribution. It would be great if you could add the catalog metadata to your configuration see method catalog* in the Soup project for example. And publish the project to the metacelloRepository so that it become available to the ConfigurationBrowser https://ci.inria.fr/pharo-contribution/job/PharoProjectCatalog/HTML_Report/? Stef On 24 Dec 2013, at 04:02, Masashi UMEZAWA <masashi.umezawa(a)gmail.com> wrote: > Hi all, > > I've developed PunQLite. UnQLite NoSQL database binding for Pharo. > https://github.com/mumez/PunQLite > http://smalltalkhub.com/#!/~MasashiUmezawa/PunQLite > > UnQLite is a fast, lightweight, portable, embedded KVS with a simple > scripting engine (Jx9). > http://unqlite.org/ > > Torsen kindly wrote about PunQLite project's beginning on his blog. > http://astares.blogspot.jp/2013/11/punqlite-for-pharo-using-unqlite.html > > At that time, it was only a bare NativeBoost FFI interface. Now it has > become a full-fledged wrapper. > > db := PqDatabase open: 'test.db'. > db at: 'Smalltalk' put: 'COOL'. > db at: 'Pharo' put: 'HOT'. > db at: 'Smalltalk' ifPresent: [:data | > data asString inspect > ]. > Transcript cr; show: db keys. > db do: [:cursor | > Transcript cr; show: cursor currentStringKey; space; show: cursor > currentStringValue. > ]. > db close. > > Moreover, it is quite fast. I wrote a simple benchmark that does many > round-trips (put/get 100000 small elements). The result is 877 msecs > (on my windows laptop). It was impressive. > > Enjoy! > -- > [:masashi | ^umezawa] >

Dec. 24, 2013

Re: [Pharo-dev] How to contribute [WAS: Re: [Pharo-users] WebClient Issues on Pharo 2.0]

by StÃ©phane Ducasse

> I cannot find PharoExtras in SmalltalkHub. > Can I find from within image if a package belongs to Pharo or PharoExtras? http://smalltalkhub.com/#!/~PharoExtras > > That information should be more visible somewhere. > > > we, as core pharo developers take responsibility over the packages that resides there, and of course any contribution is welcome. > > For the stuff in Pharo team, you need to work in the form of âIssue reportâ and âSLICE providerâ. > For the stuff in PharoExtras, you can provide just the package updates + the *updated* configuration. > > All PharoExtras projects should have a jenkins job in https://ci.inria.fr/pharo-contribution/? > And you should take care that job is green after you commit your packages. > > For contribute in any of the teams, Pharo and PharoExtras you need to be added as team member, and that can be done just requiting it in pharo-dev list (which, btw, is a better place for this discussion). > > > Ok, thanks. > > HernÃ¡n > > > Esteban > > On 24 Dec 2013, at 13:57, HernÃ¡n Morales Durand <hernan.morales(a)gmail.com> wrote: > > > El 24/12/2013 9:06, Esteban Lorenzano escribiÃ³: > >> > >> On 24 Dec 2013, at 12:34, HernÃ¡n Morales Durand <hernan.morales(a)gmail.com> wrote: > >> > >>> I am interested in how to proceed about community packages. I have previously asked and nobody replied: > >>> > >>> http://forum.world.st/Programmatic-Scoped-Browsing-td4724820.html > >> > >> what is a âcommunity packageâ? > >> > > > > The point of a community package is to involve as much of the community as possible. > > > > HernÃ¡n > > > >

Dec. 24, 2013

float printing glitch?

by StÃ©phane Ducasse

Hi (nicolas :)) I was fixing the sound package and the EnvelopeEditorMorph shows a strange glitch EnvelopeEditorMorph openOn: (FMSound brass1) copy title: 'brass1' See ^^^^^^^^^^^^^^^^ below I have the impression that this related to float printString. Any idea how to fix it? buildLabels | scale x1 y1 y2 captionMorph loopStart offset | majorTickLength * minorTickLength < 0 ifTrue: [ minorTickLength := 0 - minorTickLength ]. self removeAllMorphs. caption ifNotNil: [ captionMorph := StringMorph contents: caption. offset := captionAbove ifTrue: [majorTickLength abs + captionMorph height + 7] ifFalse: [2]. captionMorph align: captionMorph bounds bottomCenter with: self bounds bottomCenter - (0 @ offset). self addMorph: captionMorph]. tickPrintBlock ifNotNil: ["Calculate the offset for the labels, depending on whether or not 1) there's a caption below, 2) the labels are above or below the ticks, and 3) the ticks go up or down" offset := labelsAbove ifTrue: [majorTickLength abs + minorTickLength abs + 2] ifFalse: [2]. caption ifNotNil: [captionAbove ifFalse: [offset := offset + captionMorph height + 2]]. scale := (self innerBounds width - 1) / (stop - start) asFloat. x1 := self innerBounds left. y1 := self innerBounds bottom. y2 := y1 - offset. "Start loop on multiple of majorTick" loopStart := (start / majorTick) ceiling * majorTick. loopStart to: stop by: majorTick do: [ :v | | x tickMorph | x := x1 + (scale * (v - start)). tickMorph := StringMorph contents: (tickPrintBlock value: v). ^^^^^^^^^^^^^^^^ printString? tickMorph align: tickMorph bounds bottomCenter with: x @ y2. tickMorph left < self left ifTrue: [ tickMorph position: self left @ tickMorph top ]. tickMorph right > self right ifTrue: [ tickMorph position: (self right - tickMorph width) @ tickMorph top]. self addMorph: tickMorph ]]

Dec. 24, 2013