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

Re: [Pharo-dev] How can I create a trivial "spinner" etc, to see if image is busy?

by Yuriy Tymchuk

Hey guys, thanks for all the replies, I know there there are many ways to do it right, but I donât have time to do a nice implementation because I want to see if I can hack something out of the data that I have and so I just need a way to see whether my image is busy. This did a job for me (and itâs the shortest thing I came up with, so I can put into my snippets collection): (Morph newAnonymousSubclass compile: 'step self color: self color negated'; compile: 'stepTime ^ 500'; new) openInHand Cheers Uko > On 5 Feb 2017, at 22:39, Henrik Nergaard <draagren(a)outlook.com> wrote: > > Yes, but that will block the UI. > The progress bar update (world rendering) is done by force using âself currentWorld displayWorldâ, which also means that if the #do:displayingProgress: is forked there will be more than one UI rendering at the same time. > > Open a window, evaluate the script below, drag and drop the window around. > [ > Smalltalk allClasses > do:[:aClass| (Delay forMilliseconds: 1) wait] > displayingProgress:[:aClass| 'Processing ', aClass name]. > ] fork > > Best regards, > Henrik > > Fra: Pharo-dev [mailto:pharo-dev-bounces@lists.pharo.org] PÃ¥ vegne av phil(a)highoctane.be > Sendt: 05 February 2017 21:43 > Til: Pharo Development List <pharo-dev(a)lists.pharo.org> > Emne: Re: [Pharo-dev] How can I create a trivial "spinner" etc, to see if image is busy? > > In the base image > > Smalltalk allClasses > do:[:aClass| (Delay forMilliseconds: 1) wait] > displayingProgress:[:aClass| 'Processing ', aClass name]. > > Phil > > On Sun, Feb 5, 2017 at 7:16 PM, Henrik Nergaard <draagren(a)outlook.com <mailto:draagren@outlook.com>> wrote: > http://smalltalkhub.com/#!/~Latsabben/GafletFremgangFremviser <http://smalltalkhub.com/#!/~Latsabben/GafletFremgangFremviser> > > --------------------- > | ston file| > > ston := (1 to: 30) flatCollect: [:ix |STON toStringPretty: Smalltalk allClasses]. > file := (FileStream fileNamed: 'file.ston'). > > ston whileDisplayingProgress > action: [ :stream | file nextPutAll: stream ] whenDone: [ file close ]; > open; > fillOwner > --------------------- > > Best regards, > Henrik > > -----Opprinnelig melding----- > Fra: Pharo-dev [mailto:pharo-dev-bounces@lists.pharo.org <mailto:pharo-dev-bounces@lists.pharo.org>] PÃ¥ vegne av Yuriy Tymchuk > Sendt: 05 February 2017 16:56 > Til: Pharo Development List <pharo-dev(a)lists.pharo.org <mailto:pharo-dev@lists.pharo.org>> > Emne: [Pharo-dev] How can I create a trivial "spinner" etc, to see if image is busy? > > Hi all, > > is there an easy was to do some thing that is constantly changing? so if my image freezes (to export a 1gb ston file for example) I can see when itâs done. Or maybe there is a way to send a mac notification from Pharo? > > Cheers. > Uko

Feb. 5, 2017

Re: [Pharo-dev] How can I create a trivial "spinner" etc, to see if image is busy?

by Henrik Nergaard

Yes, but that will block the UI. The progress bar update (world rendering) is done by force using âself currentWorld displayWorldâ, which also means that if the #do:displayingProgress: is forked there will be more than one UI rendering at the same time. Open a window, evaluate the script below, drag and drop the window around. [ Smalltalk allClasses do:[:aClass| (Delay forMilliseconds: 1) wait] displayingProgress:[:aClass| 'Processing ', aClass name]. ] fork Best regards, Henrik Fra: Pharo-dev [mailto:pharo-dev-bounces@lists.pharo.org] PÃ¥ vegne av phil(a)highoctane.be Sendt: 05 February 2017 21:43 Til: Pharo Development List <pharo-dev(a)lists.pharo.org> Emne: Re: [Pharo-dev] How can I create a trivial "spinner" etc, to see if image is busy? In the base image Smalltalk allClasses do:[:aClass| (Delay forMilliseconds: 1) wait] displayingProgress:[:aClass| 'Processing ', aClass name]. Phil On Sun, Feb 5, 2017 at 7:16 PM, Henrik Nergaard <draagren(a)outlook.com<mailto:draagren@outlook.com>> wrote: http://smalltalkhub.com/#!/~Latsabben/GafletFremgangFremviser --------------------- | ston file| ston := (1 to: 30) flatCollect: [:ix |STON toStringPretty: Smalltalk allClasses]. file := (FileStream fileNamed: 'file.ston'). ston whileDisplayingProgress action: [ :stream | file nextPutAll: stream ] whenDone: [ file close ]; open; fillOwner --------------------- Best regards, Henrik -----Opprinnelig melding----- Fra: Pharo-dev [mailto:pharo-dev-bounces@lists.pharo.org<mailto:pharo-dev-bounces@lists.pharo.org>] PÃ¥ vegne av Yuriy Tymchuk Sendt: 05 February 2017 16:56 Til: Pharo Development List <pharo-dev(a)lists.pharo.org<mailto:pharo-dev@lists.pharo.org>> Emne: [Pharo-dev] How can I create a trivial "spinner" etc, to see if image is busy? Hi all, is there an easy was to do some thing that is constantly changing? so if my image freezes (to export a 1gb ston file for example) I can see when itâs done. Or maybe there is a way to send a mac notification from Pharo? Cheers. Uko

Feb. 5, 2017

Re: [Pharo-dev] How can I create a trivial "spinner" etc, to see if image is busy?

by Dimitris Chloupis

Fork can be used to avoid freezing issues unless of course they are caused by the VM. VM usually prefer to crash. I have used fork once to load a very glitchy package when StHub was misbeheaving. You do not need a spinner in this case because you can keep using the image. But if you want to find out if the process indeed has frozen in that case I can see its need. On Sun, Feb 5, 2017 at 5:56 PM Yuriy Tymchuk <yuriy.tymchuk(a)me.com> wrote: > Hi all, > > is there an easy was to do some thing that is constantly changing? so if > my image freezes (to export a 1gb ston file for example) I can see when > itâs done. Or maybe there is a way to send a mac notification from Pharo? > > Cheers. > Uko >

Feb. 5, 2017

Re: [Pharo-dev] How can I create a trivial "spinner" etc, to see if image is busy?

by Hilaire

Hi Yuriy, For DrGeo I wrote this spinner DrGLoader start. DrGLoader stop -- Dr. Geo http://drgeo.eu

Feb. 5, 2017

[QA] quality assurance

by Hilaire

Hi, I discussed briefly with Steph about QA team and dedicated mailing list. He proposed to just use the @devel list with an appropriate [QA] tag, so every one can participate or just discard the topic without too much noise. I will post here about glitches I see in the UI, then depending on the feedback here and when appropriate I will open a bug ticket too on 'First impression count' tag, then propose a fix or ask for further assistance. I hope to dedicate a few hours per week on that topic. People interested on that topic could easily join too. It is a not so difficult way to learn a bit more about Pharo internal. Hilaire -- Dr. Geo http://drgeo.eu

Feb. 5, 2017

Re: [Pharo-dev] How can I create a trivial "spinner" etc, to see if image is busy?

by phil＠highoctane.be

Maybe time to resurrect the AnimatedImageMorph that can load an animated gif... http://magaloma.seasidehosting.st/MorphExamplesAndDemos http://smalltalkhub.com/#!/~PharoExtras/MorphExamplesAndDemos Phil On Sun, Feb 5, 2017 at 8:32 PM, Yuriy Tymchuk <yuriy.tymchuk(a)me.com> wrote: > This is a really nice solution for STON, thank you! > > But in general terms, imagine I have some task and itâs not the trivial to > add a progress bar. I could spawn a string morph and make circle the digits > with some interval, but maybe there is something easier. For example > Kommiter had a spinner morph that you could just open and it would be > spinning. So when you run a task you can easily see that the task is still > running > > Uko > > > On 5 Feb 2017, at 20:01, Sven Van Caekenberghe <sven(a)stfx.eu> wrote: > > > > A bit off topic, but I would do the STON writing as follows: > > > > [ > > (FileLocator temp / 'file.ston') writeStreamDo: [ :out | > > (STON writer on: out) in: [ :stonWriter | > > 30 timesRepeat: [ > > stonWriter nextPut: Smalltalk allClasses ] ] ]. > > ] timeToRun. "0:00:00:02.176" > > > > But in light of alternative streams and some optimisation, this works > too: > > > > [ > > | file | > > file := (File named: '/tmp/file.ston') openForWrite. > > [ > > ZnBufferedWriteStream on: (ZnCharacterWriteStream on: file) do: [ :out | > > (STON writer on: out) in: [ :stonWriter | > > 30 timesRepeat: [ > > stonWriter nextPut: Smalltalk allClasses ] ] ] > > ] ensure: [ file close ]. > > ] timeToRun. "0:00:00:00.385" > > > > Which is faster. > > > > Total file size is ~1.2MB. > > > > BTW, we need #readStreamDo: and #writeStreamDo: on File I think, as it > encourages proper resource management. > > > >> On 5 Feb 2017, at 19:16, Henrik Nergaard <draagren(a)outlook.com> wrote: > >> > >> http://smalltalkhub.com/#!/~Latsabben/GafletFremgangFremviser > >> > >> --------------------- > >> | ston file| > >> > >> ston := (1 to: 30) flatCollect: [:ix |STON toStringPretty: Smalltalk > allClasses]. > >> file := (FileStream fileNamed: 'file.ston'). > >> > >> ston whileDisplayingProgress > >> action: [ :stream | file nextPutAll: stream ] whenDone: [ file > close ]; > >> open; > >> fillOwner > >> --------------------- > >> > >> Best regards, > >> Henrik > >> > >> -----Opprinnelig melding----- > >> Fra: Pharo-dev [mailto:pharo-dev-bounces@lists.pharo.org] PÃ¥ vegne av > Yuriy Tymchuk > >> Sendt: 05 February 2017 16:56 > >> Til: Pharo Development List <pharo-dev(a)lists.pharo.org> > >> Emne: [Pharo-dev] How can I create a trivial "spinner" etc, to see if > image is busy? > >> > >> Hi all, > >> > >> is there an easy was to do some thing that is constantly changing? so > if my image freezes (to export a 1gb ston file for example) I can see when > itâs done. Or maybe there is a way to send a mac notification from Pharo? > >> > >> Cheers. > >> Uko > > > > > > >

Feb. 5, 2017

Re: [Pharo-dev] How can I create a trivial "spinner" etc, to see if image is busy?

by phil＠highoctane.be

In the base image Smalltalk allClasses do:[:aClass| (Delay forMilliseconds: 1) wait] displayingProgress:[:aClass| 'Processing ', aClass name]. Phil On Sun, Feb 5, 2017 at 7:16 PM, Henrik Nergaard <draagren(a)outlook.com> wrote: > http://smalltalkhub.com/#!/~Latsabben/GafletFremgangFremviser > > --------------------- > | ston file| > > ston := (1 to: 30) flatCollect: [:ix |STON toStringPretty: Smalltalk > allClasses]. > file := (FileStream fileNamed: 'file.ston'). > > ston whileDisplayingProgress > action: [ :stream | file nextPutAll: stream ] whenDone: [ file > close ]; > open; > fillOwner > --------------------- > > Best regards, > Henrik > > -----Opprinnelig melding----- > Fra: Pharo-dev [mailto:pharo-dev-bounces@lists.pharo.org] PÃ¥ vegne av > Yuriy Tymchuk > Sendt: 05 February 2017 16:56 > Til: Pharo Development List <pharo-dev(a)lists.pharo.org> > Emne: [Pharo-dev] How can I create a trivial "spinner" etc, to see if > image is busy? > > Hi all, > > is there an easy was to do some thing that is constantly changing? so if > my image freezes (to export a 1gb ston file for example) I can see when > itâs done. Or maybe there is a way to send a mac notification from Pharo? > > Cheers. > Uko >

Feb. 5, 2017

Re: [Pharo-dev] How can I create a trivial "spinner" etc, to see if image is busy?

by Henrik Nergaard

You can create a morph that steps until the process is terminated. Attached is an example class: ==================== StepForProcessMorph new process: [ 10 seconds asDelay wait ]; extent: 200 asPoint; openCenteredInWorld ==================== Best regards, Henrik -----Opprinnelig melding----- Fra: Pharo-dev [mailto:pharo-dev-bounces@lists.pharo.org] PÃ¥ vegne av Yuriy Tymchuk Sendt: 05 February 2017 20:33 Til: Pharo Development List <pharo-dev(a)lists.pharo.org> Emne: Re: [Pharo-dev] How can I create a trivial "spinner" etc, to see if image is busy? This is a really nice solution for STON, thank you! But in general terms, imagine I have some task and itâs not the trivial to add a progress bar. I could spawn a string morph and make circle the digits with some interval, but maybe there is something easier. For example Kommiter had a spinner morph that you could just open and it would be spinning. So when you run a task you can easily see that the task is still running Uko > On 5 Feb 2017, at 20:01, Sven Van Caekenberghe <sven(a)stfx.eu> wrote: > > A bit off topic, but I would do the STON writing as follows: > > [ > (FileLocator temp / 'file.ston') writeStreamDo: [ :out | (STON writer > on: out) in: [ :stonWriter | > 30 timesRepeat: [ > stonWriter nextPut: Smalltalk allClasses ] ] ]. > ] timeToRun. "0:00:00:02.176" > > But in light of alternative streams and some optimisation, this works too: > > [ > | file | > file := (File named: '/tmp/file.ston') openForWrite. > [ > ZnBufferedWriteStream on: (ZnCharacterWriteStream on: file) do: [ :out | > (STON writer on: out) in: [ :stonWriter | > 30 timesRepeat: [ > stonWriter nextPut: Smalltalk allClasses ] ] ] ] ensure: [ file > close ]. > ] timeToRun. "0:00:00:00.385" > > Which is faster. > > Total file size is ~1.2MB. > > BTW, we need #readStreamDo: and #writeStreamDo: on File I think, as it encourages proper resource management. > >> On 5 Feb 2017, at 19:16, Henrik Nergaard <draagren(a)outlook.com> wrote: >> >> http://smalltalkhub.com/#!/~Latsabben/GafletFremgangFremviser >> >> --------------------- >> | ston file| >> >> ston := (1 to: 30) flatCollect: [:ix |STON toStringPretty: Smalltalk allClasses]. >> file := (FileStream fileNamed: 'file.ston'). >> >> ston whileDisplayingProgress >> action: [ :stream | file nextPutAll: stream ] whenDone: [ file close ]; >> open; >> fillOwner >> --------------------- >> >> Best regards, >> Henrik >> >> -----Opprinnelig melding----- >> Fra: Pharo-dev [mailto:pharo-dev-bounces@lists.pharo.org] PÃ¥ vegne av >> Yuriy Tymchuk >> Sendt: 05 February 2017 16:56 >> Til: Pharo Development List <pharo-dev(a)lists.pharo.org> >> Emne: [Pharo-dev] How can I create a trivial "spinner" etc, to see if image is busy? >> >> Hi all, >> >> is there an easy was to do some thing that is constantly changing? so if my image freezes (to export a 1gb ston file for example) I can see when itâs done. Or maybe there is a way to send a mac notification from Pharo? >> >> Cheers. >> Uko > >

Feb. 5, 2017

Re: [Pharo-dev] How can I create a trivial "spinner" etc, to see if image is busy?

by Sven Van Caekenberghe

You could also have a look at ZnClientTests>>#testProgress where Notification are used, try the example in the comment. But that is probably not what you are looking for. > On 5 Feb 2017, at 20:32, Yuriy Tymchuk <yuriy.tymchuk(a)me.com> wrote: > > This is a really nice solution for STON, thank you! > > But in general terms, imagine I have some task and itâs not the trivial to add a progress bar. I could spawn a string morph and make circle the digits with some interval, but maybe there is something easier. For example Kommiter had a spinner morph that you could just open and it would be spinning. So when you run a task you can easily see that the task is still running > > Uko > >> On 5 Feb 2017, at 20:01, Sven Van Caekenberghe <sven(a)stfx.eu> wrote: >> >> A bit off topic, but I would do the STON writing as follows: >> >> [ >> (FileLocator temp / 'file.ston') writeStreamDo: [ :out | >> (STON writer on: out) in: [ :stonWriter | >> 30 timesRepeat: [ >> stonWriter nextPut: Smalltalk allClasses ] ] ]. >> ] timeToRun. "0:00:00:02.176" >> >> But in light of alternative streams and some optimisation, this works too: >> >> [ >> | file | >> file := (File named: '/tmp/file.ston') openForWrite. >> [ >> ZnBufferedWriteStream on: (ZnCharacterWriteStream on: file) do: [ :out | >> (STON writer on: out) in: [ :stonWriter | >> 30 timesRepeat: [ >> stonWriter nextPut: Smalltalk allClasses ] ] ] >> ] ensure: [ file close ]. >> ] timeToRun. "0:00:00:00.385" >> >> Which is faster. >> >> Total file size is ~1.2MB. >> >> BTW, we need #readStreamDo: and #writeStreamDo: on File I think, as it encourages proper resource management. >> >>> On 5 Feb 2017, at 19:16, Henrik Nergaard <draagren(a)outlook.com> wrote: >>> >>> http://smalltalkhub.com/#!/~Latsabben/GafletFremgangFremviser >>> >>> --------------------- >>> | ston file| >>> >>> ston := (1 to: 30) flatCollect: [:ix |STON toStringPretty: Smalltalk allClasses]. >>> file := (FileStream fileNamed: 'file.ston'). >>> >>> ston whileDisplayingProgress >>> action: [ :stream | file nextPutAll: stream ] whenDone: [ file close ]; >>> open; >>> fillOwner >>> --------------------- >>> >>> Best regards, >>> Henrik >>> >>> -----Opprinnelig melding----- >>> Fra: Pharo-dev [mailto:pharo-dev-bounces@lists.pharo.org] PÃ¥ vegne av Yuriy Tymchuk >>> Sendt: 05 February 2017 16:56 >>> Til: Pharo Development List <pharo-dev(a)lists.pharo.org> >>> Emne: [Pharo-dev] How can I create a trivial "spinner" etc, to see if image is busy? >>> >>> Hi all, >>> >>> is there an easy was to do some thing that is constantly changing? so if my image freezes (to export a 1gb ston file for example) I can see when itâs done. Or maybe there is a way to send a mac notification from Pharo? >>> >>> Cheers. >>> Uko >> >> > >

Feb. 5, 2017

Re: [Pharo-dev] How can I create a trivial "spinner" etc, to see if image is busy?

by Yuriy Tymchuk

This is a really nice solution for STON, thank you! But in general terms, imagine I have some task and itâs not the trivial to add a progress bar. I could spawn a string morph and make circle the digits with some interval, but maybe there is something easier. For example Kommiter had a spinner morph that you could just open and it would be spinning. So when you run a task you can easily see that the task is still running Uko > On 5 Feb 2017, at 20:01, Sven Van Caekenberghe <sven(a)stfx.eu> wrote: > > A bit off topic, but I would do the STON writing as follows: > > [ > (FileLocator temp / 'file.ston') writeStreamDo: [ :out | > (STON writer on: out) in: [ :stonWriter | > 30 timesRepeat: [ > stonWriter nextPut: Smalltalk allClasses ] ] ]. > ] timeToRun. "0:00:00:02.176" > > But in light of alternative streams and some optimisation, this works too: > > [ > | file | > file := (File named: '/tmp/file.ston') openForWrite. > [ > ZnBufferedWriteStream on: (ZnCharacterWriteStream on: file) do: [ :out | > (STON writer on: out) in: [ :stonWriter | > 30 timesRepeat: [ > stonWriter nextPut: Smalltalk allClasses ] ] ] > ] ensure: [ file close ]. > ] timeToRun. "0:00:00:00.385" > > Which is faster. > > Total file size is ~1.2MB. > > BTW, we need #readStreamDo: and #writeStreamDo: on File I think, as it encourages proper resource management. > >> On 5 Feb 2017, at 19:16, Henrik Nergaard <draagren(a)outlook.com> wrote: >> >> http://smalltalkhub.com/#!/~Latsabben/GafletFremgangFremviser >> >> --------------------- >> | ston file| >> >> ston := (1 to: 30) flatCollect: [:ix |STON toStringPretty: Smalltalk allClasses]. >> file := (FileStream fileNamed: 'file.ston'). >> >> ston whileDisplayingProgress >> action: [ :stream | file nextPutAll: stream ] whenDone: [ file close ]; >> open; >> fillOwner >> --------------------- >> >> Best regards, >> Henrik >> >> -----Opprinnelig melding----- >> Fra: Pharo-dev [mailto:pharo-dev-bounces@lists.pharo.org] PÃ¥ vegne av Yuriy Tymchuk >> Sendt: 05 February 2017 16:56 >> Til: Pharo Development List <pharo-dev(a)lists.pharo.org> >> Emne: [Pharo-dev] How can I create a trivial "spinner" etc, to see if image is busy? >> >> Hi all, >> >> is there an easy was to do some thing that is constantly changing? so if my image freezes (to export a 1gb ston file for example) I can see when itâs done. Or maybe there is a way to send a mac notification from Pharo? >> >> Cheers. >> Uko > >

Feb. 5, 2017