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@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@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@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@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