- Pharo-dev - lists.pharo.org

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

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

by Sven Van Caekenberghe

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 Henrik Nergaard

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] Seamless Error in GT-Inspector

by Denis Kudriashov

Just check in latest Pharo 6. It works 2017-02-05 18:55 GMT+01:00 Denis Kudriashov <dionisiydk(a)gmail.com>: > Hi Sean. > > What Pharo you use? > > 2017-02-05 17:36 GMT+01:00 Sean P. DeNigris <sean(a)clipperadams.com>: > >> DoIt and Go: `remoteSmalltalk at: #Transcript.` >> In right pane: `self open` >> -> "MessageNotUnderstood: >> SeamlessRemoteClassCompilationContext>>requestorScopeClass" >> >> >> >> ----- >> Cheers, >> Sean >> -- >> View this message in context: http://forum.world.st/Seamless >> -Error-in-GT-Inspector-tp4933050.html >> Sent from the Pharo Smalltalk Developers mailing list archive at >> Nabble.com. >> >> >

Feb. 5, 2017

Re: [Pharo-dev] Seamless Error in GT-Inspector

by Denis Kudriashov

Hi Sean. What Pharo you use? 2017-02-05 17:36 GMT+01:00 Sean P. DeNigris <sean(a)clipperadams.com>: > DoIt and Go: `remoteSmalltalk at: #Transcript.` > In right pane: `self open` > -> "MessageNotUnderstood: > SeamlessRemoteClassCompilationContext>>requestorScopeClass" > > > > ----- > Cheers, > Sean > -- > View this message in context: http://forum.world.st/Seamless-Error-in-GT- > Inspector-tp4933050.html > Sent from the Pharo Smalltalk Developers mailing list archive at > Nabble.com. > >

Feb. 5, 2017

Re: [Pharo-dev] PharoLauncher Hanging

by Sean P. DeNigris

Sean P. DeNigris wrote > I just had Launcher hang (Mac's spinning beach ball of death) twice in a > row after launching a 5.0 image with "quit on launch" disabled. Still happening fairly regularly. Pretty disruptive. I can't discern a particular pattern. No Debug log or crash dump. I leave "quit on launch" disabled because it seems that it's the only way to open multiple images simultaneously because Luncher will not start on Mac if there is another Pharo image running. Anyone else? MacOS 10.12.3 Image ----- /Applications/Pharo.app/Contents/Resources/Pharo.image Pharo5.0 Latest update: #50765 Unnamed Virtual Machine --------------- /Applications/Pharo.app/Contents/MacOS/Pharo CoInterpreter VMMaker.oscog-HolgerHansPeterFreyther.1880 uuid: 16138eb3-2390-40f5-a6c8-15f0494936f8 Oct 10 2016 StackToRegisterMappingCogit VMMaker.oscog-HolgerHansPeterFreyther.1880 uuid: 16138eb3-2390-40f5-a6c8-15f0494936f8 Oct 10 2016 git@github.com:pharo-project/pharo-vm.git Commit: 06744effac0f0aa3b4b32e17636448f9d51d6707 Date: 2016-09-30 08:40:43 +0200 By: GitHub <noreply(a)github.com> Mac Cocoa Cog 5.8b12 21-Sep-10 >1B0534FA-246C-47C5-AB29-7A76C81CCDCB< VMMaker versionString git@github.com:pharo-project/pharo-vm.git Commit: 06744effac0f0aa3b4b32e17636448f9d51d6707 Date: 2016-09-30 08:40:43 +0200 By: GitHub <noreply(a)github.com> CoInterpreter VMMaker.oscog-HolgerHansPeterFreyther.1880 uuid: 16138eb3-2390-40f5-a6c8-15f0494936f8 Oct 10 2016 StackToRegisterMappingCogit VMMaker.oscog-HolgerHansPeterFreyther.1880 uuid: 16138eb3-2390-40f5-a6c8-15f0494936f8 Oct 10 2016 ----- Cheers, Sean -- View this message in context: http://forum.world.st/PharoLauncher-Hanging-tp4901674p4933053.html Sent from the Pharo Smalltalk Developers mailing list archive at Nabble.com.

Feb. 5, 2017