R2/View and a running process (another project for fun)

Hi, I found out how to grab a string containing a playing song from one of my favourite webradio stations, and I like to turn these into a playlist of played songs. I quickly stuck some program together and I am done. I let my program poll every 60 seconds for a new title. Now I like to make a View version where I have a Start button to start and Stop this process. How can I best do this?

http://business-programming.com/business_programming.html#section-17.15 One way is to use view/new and a forever loop. Put the activity you want periodically evaluated in the forever loop. Use 'wait to rest any specified period of time, and use a flag variable to determine whether or not any specific activity should occur (here, that variable is 'go). This works because the do-events loop never starts when using view/new: R E B O L [title: "Multitasking 1"] go: 1 gui: view/new layout [ t: text form now/time btn "Stop" [go: 0] btn "Start" [go: 1] ] forever [ if go = 1 [t/text: form now/time show gui] wait .01 ] Another way is to assign a 'feel to any widget (could be a sensor, or any widget hidden off screen). Change the rate to 0 (or some other period) to start the activity, and 'none to stop the activity: R E B O L [title: "Multitasking 2"] view layout [ t: text form now/time rate 0 feel [ engage: func [f a e] [ if a = 'time [ t/text: form now/time show t ] ] ] btn "Stop" [t/rate: none] btn "Start" [t/rate: 0 t/text: form now/time show t] ]

Search http://re-bol.com/short_rebol_examples.r for "forever" and "rate" to see a number of each technique in use.

Thank you Nick! Will send you a playlist soon ;-)