Mailing List Archive: 49091 messages
  • Home
  • Script library
  • AltME Archive
  • Mailing list
  • Articles Index
  • Site search
 

[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/