Re: bad problem
- Posted by George Walters <gwalters at sc.rr.com> Aug 07, 2001
- 471 views
i ran your version and it killed the phone. Arguments of 0 and 1 made no difference... ..george ----- Original Message ----- From: "Irv Mullins" <irvm at ellijay.com> To: "EUforum" <EUforum at topica.com> Subject: Re: bad problem > > > ----- Original Message ----- > From: George Walters <gwalters at sc.rr.com> > To: EUforum <EUforum at topica.com> > Sent: Tuesday, August 07, 2001 2:41 PM > Subject: Re: bad problem > > > > > > I've not done this yet but here is what I did and it did kill the phone.. > > > > I ran this directly from a dos prompt > > > > include win32lib.ew > > > > -- create a control in the window > > > > constant > > TheWindow = create( Window, "Close Window", 0, Default, Default, 200, > 100, > > 0 ), > > CloseButton = create( DefPushButton, "Close Window", TheWindow, 40, 10, > 120, > > 30, 0 ) > > > > > > -- tell Windows when to do the action > > onClick[CloseButton] = system_exec("exw > d:/euphoria/training/arf020.exw",1) > > WinMain( TheWindow, Normal ) > > > > I didn't get a chance to click the button but it killed the phone > > anyway....Does this mean we have a problem with EU?? > > > > ..george > > I don't think you can set an onClick[] event that way.. AFAIK, it needs a > routine_id. Besides which, system_exec is a function, and returns > success/fail code, > so what your progam is doing is calling system_exec on startup, and > assigning the > return value to the onClick event. > > Pretty much guaranteed not to work. > > Try this instead: > -- code generated by Win32Lib IDE v0.10.5 > > 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 () > atom ok > ok = system_exec("exw d:/euphoria/training/arf020.exw",1) -- try zero, also > end procedure > onClick[PushButton2] = routine_id("PushButton2_onClick") > > WinMain( Window1, Normal ) > > > > >