OpenEuphoria

Re: No Close Window (was: EuGrid Not Returning Row)

• Posted by Derek Parnell <ddparnell at bigpond.com> Apr 08, 2003
• 408 views

Michelle,
   Try this...
-------------
include win32lib.ew
without warning

integer main
integer btn
sequence style

procedure cls(integer self, integer event, sequence parms)

	closeWindow(main)
	
end procedure

style = {0} -- Non-resizable
-- See if 'resize' is on the command line.
if find("resize", command_line()) then
   style = {WS_THICKFRAME} -- Resizeable
end if

main = create(Window, "DLG", 0, 100, 100, 300, 300, style)
btn  = create(Button, "&Close", main, 240, 25, 45, 25, 0)
setHandler(btn, w32HClick, routine_id("cls"))

WinMain(main, Normal)	

-- 

cheers,
Derek Parnell