OpenEuphoria

openDialog()

• Posted by Antonio Alessi <a.admin at myway.it> Mar 11, 2006
• 532 views

Hello to Derek and all Friends,

« .. the openDialog() routine opens a modal window then waits for that window 
to close before executing the line after the openDialog() statement. 
During this time, any event handlers set up for the dialog window would still 
fire correctly. »

Needing to use this feature, I tried the sample as into the win32Lib-59-1 Doc:

include win32lib.ew

sequence filename
filename = ""

constant

myFileDialog = create( Window, "", 0, Default, Default, 400, 400, 0 )
,Xt = create( PushButton, "Exit",  myFileDialog, 306, 5, 36, 20, 0)
,RE = create( RichEdit, "",        myFileDialog, 0,0,0,0, 0)

    while length(filename) = 0 do
    	
        openDialog( myFileDialog)
        
    end while

I had to shut down the computer to exit some hundreds 
of opening-autoclosing windows! (OS Win2000 server)

could you explain how to obtain an openDialog() that waits 
to be closed before the program process the next step?
thanks, thanks..

Antonio Alessi