On 07 Apr 2015, at 17:55, Peter Uhnák &lt;i.uhnak(a)gmail.com&gt; wrote: Hi, from what I've seen when digging through layouts, the slowest part is RTForceBasedLayout>>doExecute:, however there is whileTrue: loop so there is no knowing when it will stop. So is there some "unknown status" progress bar? That would be useful here. Because for example RTRectanglePackLayout uses do:displaingProgress: to show the progress, but it knows when it will end. That would have to be adapted for whileTrue: and unknown sizes. Peter On Tue, Apr 7, 2015 at 5:38 PM, Natalia Tymchuk &lt;natalia.tymchuk(a)unikernel.net <mailto:natalia.tymchuk@unikernel.net>> wrote: Hello. As we all know Force based layout is quite slow. For example if I use it for more that 200 points it takes ages and during that time I’m not even sure if it works or no. So I wonder maybe it will be better to draw progress bar during the time it works? Thanks. Best regards, Natalia _______________________________________________ Moose-dev mailing list Moose-dev(a)iam.unibe.ch <mailto:Moose-dev@iam.unibe.ch> https://www.iam.unibe.ch/mailman/listinfo/moose-dev <https://www.iam.unibe.ch/mailman/listinfo/moose-dev> _______________________________________________ Moose-dev mailing list Moose-dev(a)iam.unibe.ch https://www.iam.unibe.ch/mailman/listinfo/moose-dev

(with spinner for example)

0.005 or whatever there is.

On Apr 7, 2015, at 5:04 PM, Peter Uhnák &lt;i.uhnak(a)gmail.com&gt; wrote: Out of curiosity I dug a little deeper and was happy to learn about a Job and more about Pharo internals. In any case, try replacing RTForceBasedLayout>>doExecute: with this ~~~~~~~~~~~~~~~~~~~~~~~~~ doExecute: nodeElements self start: nodeElements. [ :job | job title: 'Laying out elements'; min: 1 - alpha; max: 1. nbIterations = 0 ifTrue: [ [ alpha := alpha * 0.99. alpha > 0.005 ] whileTrue: [ self step. job currentValue: 1 - alpha ] ] ifFalse: [ nbIterations timesRepeat: [ alpha := alpha * 0.99. self step. job currentValue: 1 - alpha ] ] ] asJob run. alpha := 0. nodes do: [ :e | translator translateTopLeftOf: e to: e position ]. ~~~~~~~~~~~~~~~~~~~~~~~~~ it's bit messy (and doesn't account for nbIterations), but its a proof of concept. I thing that it makes sense to create execution indicator without progress (with spinner for example) What can be done is to display alpha on progress bar. From current value to 0.005 or whatever there is. I was thinking more something like this http://www.barchart.com/shared/images/progress_bar.gif or thsi https://i.stack.imgur.com/gz9GK.gif Peter _______________________________________________ Moose-dev mailing list Moose-dev(a)iam.unibe.ch https://www.iam.unibe.ch/mailman/listinfo/moose-dev

Wow, I have never heard about this Job.

What is missing in your implementation?

I have cleaned a bit your code with something like: doExecute: nodeElements self start: nodeElements. self isJobInstalled ifTrue: [ self runLayoutInJob ] ifFalse: [ self runLayoutSimply ]. alpha := 0. nodes do: [ :e | translator translateTopLeftOf: e to: e position ] It is in version .816 of Roassal2. We should be able to run the layout without job. This is important for us Thanks! Alexandre Job and more about Pharo internals. whileTrue: [ self step. job currentValue: 1 - alpha ] ] alpha * 0.99. self step. job currentValue: 1 - alpha ] ] of concept. progress (with spinner for example) to 0.005 or whatever there is. http://www.barchart.com/shared/images/progress_bar.gif or thsi https://i.stack.imgur.com/gz9GK.gif -- _,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;: Alexandre Bergel http://www.bergel.eu ^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;. _______________________________________________ Moose-dev mailing list Moose-dev(a)iam.unibe.ch https://www.iam.unibe.ch/mailman/listinfo/moose-dev

On 08 Apr 2015, at 15:34, Alexandre Bergel &lt;alexandre.bergel(a)me.com&gt; wrote: An alternative is to have another subclass, such as RTForceBasedWithProgressBarLayout But this is not idea, because the progress bar should be by default Pharo. And on VisualWorks no. Another alternative, and the cleanest one I believe, is to have event generated to every X steps. You can have whatever you wish as a callback, moving the progress bar or not. I have added an issue about this: https://code.google.com/p/moose-technology/issues/detail?id=1119 Alexandre -- _,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;: Alexandre Bergel http://www.bergel.eu ^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;. _______________________________________________ Moose-dev mailing list Moose-dev(a)iam.unibe.ch https://www.iam.unibe.ch/mailman/listinfo/moose-dev

No idea. We have a platform TRPlatform class that contains platform dependent features. Maybe we could include one to have platform. But I am afraid this may complexify the whole things if progress bars are radically different in VW. Alexandre > On Apr 8, 2015, at 10:38 AM, Yuriy Tymchuk &lt;yuriy.tymchuk(a)me.com&gt; wrote: > > How do they display progress in VW? > >> On 08 Apr 2015, at 15:34, Alexandre Bergel &lt;alexandre.bergel(a)me.com&gt; wrote: >> >> An alternative is to have another subclass, such as RTForceBasedWithProgressBarLayout >> But this is not idea, because the progress bar should be by default Pharo. And on VisualWorks no. >> >> Another alternative, and the cleanest one I believe, is to have event generated to every X steps. You can have whatever you wish as a callback, moving the progress bar or not. >> >> I have added an issue about this: >> https://code.google.com/p/moose-technology/issues/detail?id=1119 >> >> Alexandre >> >> >>> On Apr 8, 2015, at 9:50 AM, Tudor Girba &lt;tudor(a)tudorgirba.com&gt; wrote: >>> >>> We need a better way of modeling that :) >>> >>> Doru >>> >>> On Wed, Apr 8, 2015 at 2:44 PM, Alexandre Bergel &lt;alexandre.bergel(a)me.com&gt; wrote: >>> I have cleaned a bit your code with something like: >>> >>> doExecute: nodeElements >>> self start: nodeElements. >>> self isJobInstalled >>> ifTrue: [ self runLayoutInJob ] >>> ifFalse: [ self runLayoutSimply ]. >>> alpha := 0. >>> nodes do: [ :e | translator translateTopLeftOf: e to: e position ] >>> >>> It is in version .816 of Roassal2. >>> >>> We should be able to run the layout without job. This is important for us >>> >>> Thanks! >>> Alexandre >>> >>> >>>> On Apr 7, 2015, at 5:04 PM, Peter Uhnák &lt;i.uhnak(a)gmail.com&gt; wrote: >>>> >>>> Out of curiosity I dug a little deeper and was happy to learn about a Job and more about Pharo internals. >>>> >>>> In any case, try replacing RTForceBasedLayout>>doExecute: with this >>>> >>>> ~~~~~~~~~~~~~~~~~~~~~~~~~ >>>> doExecute: nodeElements >>>> self start: nodeElements. >>>> [ :job | >>>> job >>>> title: 'Laying out elements'; >>>> min: 1 - alpha; >>>> max: 1. >>>> nbIterations = 0 >>>> ifTrue: [ [ alpha := alpha * 0.99. alpha > 0.005 ] whileTrue: [ self step. job currentValue: 1 - alpha ] ] >>>> ifFalse: [ nbIterations timesRepeat: [ alpha := alpha * 0.99. self step. job currentValue: 1 - alpha ] ] >>>> ] asJob run. >>>> alpha := 0. >>>> nodes do: [ :e | translator translateTopLeftOf: e to: e position ]. >>>> ~~~~~~~~~~~~~~~~~~~~~~~~~ >>>> >>>> it's bit messy (and doesn't account for nbIterations), but its a proof of concept. >>>> >>>> >>>> I thing that it makes sense to create execution indicator without progress (with spinner for example) >>>> >>>> What can be done is to display alpha on progress bar. From current value to 0.005 or whatever there is. >>>> I was thinking more something like this http://www.barchart.com/shared/images/progress_bar.gif or thsi https://i.stack.imgur.com/gz9GK.gif >>>> >>>> Peter >>>> _______________________________________________ >>>> Moose-dev mailing list >>>> Moose-dev(a)iam.unibe.ch >>>> https://www.iam.unibe.ch/mailman/listinfo/moose-dev >>> -- >>> _,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;: >>> Alexandre Bergel http://www.bergel.eu >>> ^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;. >>> >>> >>> >>> >>> _______________________________________________ >>> Moose-dev mailing list >>> Moose-dev(a)iam.unibe.ch >>> https://www.iam.unibe.ch/mailman/listinfo/moose-dev >>> >>> >>> >>> -- >>> www.tudorgirba.com >>> >>> "Every thing has its own flow" >>> _______________________________________________ >>> Moose-dev mailing list >>> Moose-dev(a)iam.unibe.ch >>> https://www.iam.unibe.ch/mailman/listinfo/moose-dev >> -- >> _,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;: >> Alexandre Bergel http://www.bergel.eu >> ^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;. >> >> >> >> >> _______________________________________________ >> Moose-dev mailing list >> Moose-dev(a)iam.unibe.ch >> https://www.iam.unibe.ch/mailman/listinfo/moose-dev > > _______________________________________________ > Moose-dev mailing list > Moose-dev(a)iam.unibe.ch > https://www.iam.unibe.ch/mailman/listinfo/moose-dev