busydialog=CreateObject("roOneLineDialog")
busydialog.SetMessagePort(screen.GetmessagePort())
busydialog.SetTitle("All I do is think and blink.") 'credit from "I dream of Jeannie"
busydialog.ShowBusyAnimation()
busydialog.Show()
When you're done, use busydialog.Close()
If you are wanting to close the busy animation in a different routine, such as a secondary poster screen, the reference needs to be passed to it - for example -
sub....routine....code...
...blah.blah.blah...
busydialog=CreateObject("roOneLineDialog")
busydialog.SetMessagePort(screen.GetmessagePort())
busydialog.SetTitle("All I do is think and blink.") 'credit from "I dream of Jeannie"
busydialog.ShowBusyAnimation()
busydialog.Show()
ShowPosterScreen2(busydialog)
...rest of current subroutine code...
...end sub
Sub ShowPosterScreen2(busydialog=invalid) 'sets default value to invalid, which allows you to call the routine without the busydialog object required
If type(busydialog<>"Invalid") Then busydialog.close() ' best to stick this line in after the new content parsing is complete.
...sub code here...
End Sub