OpenEuphoria

bad bug continued

• Posted by George Walters <gwalters at sc.rr.com> Aug 10, 2001
• 480 views

Derek and Irv,
    The following program locks up the modem answering software BEFORE I
ever press the button. Looks like it has nothing to do with the shell issue.
I'm at a total loss now...

include Win32Lib.ew
without warning

----
--  Window Window1
global constant Window1 = create( Window, "Window1", 0, Default, Default,
400, 300, 0 )
global constant PushButton2 = create( PushButton, "PushButton2", Window1,
52, 16, 90, 30, 0 )
----
procedure PushButton2_onClick ()
 integer rtn
 rtn =
shellExecuteEx("open","exw.exe","d:/euphoria/training/arf020.exw","d:/euphor
ia/training", SW_SHOWNORMAL,0)
end procedure
onClick[PushButton2] = routine_id("PushButton2_onClick")

WinMain( Window1, Normal )

I wonder if this program grabs the focus and won't turn it loose so the
modem answer software can initiate?? As soon as I kill this program the
modem software answers the phone.

...george