[REBOL] Re: Modal progress dialog
From: gabriele:colellachiara at: 14-Apr-2006 12:39
Hi Andrew,
On Thursday, April 13, 2006, 6:57:38 PM, you wrote:
AL> I need to pop up a modal progress dialog, a
AL> customised one that contains more than just a progress bar. As
AL> far as I can see there is no way to do this as it would
AL> require that there was a event on the dialog's first
AL> appearance after the 'inform' from where I could run the code
AL> that would update and at termination, close the dialog. Has
AL> anyone solved this problem before me?
You can use SHOW-POPUP directly.
>> source inform
inform: func [
{Display an exclusive focus panel for alerts, dialogs, and requestors.}
panel [object!]
/offset where [pair!] "Offset of panel"
/title ttl [string!] "Dialog window title"
/timeout time
][
panel/text: copy any [ttl "Dialog"]
panel/offset: either offset [where] [system/view/screen-face/size - panel/size / 2]
panel/feel: system/view/window-feel
show-popup panel
either time [if none? wait time [hide-popup/timeout]] [do-events]
]
Basically you don't want the WAIT (DO-EVENTS is WAIT []) in the
last line.
Regards,
Gabriele.
--
Gabriele Santilli <gabriele-rebol.com> --- http://www.rebol.com/
Colella Chiara software division --- http://www.colellachiara.com/