OpenEuphoria

Re: SFML2 Demo Dilema

• Posted by Icy_Viking May 09, 2015
• 2528 views

Well I am getting closer to solving my dilema, I'm just stuck on one part.

without warning 
 
include std/machine.e 
include EuSys2.ew 
include EuGfx2.ew 
 
include sfFlags.e 
 
atom win = sfRenderWindow_create(800,600,32,"My Window",sfClose,0) 
 
if win = -1 then 
	puts(1,"Could not create render window!\n") 
	abort(0) 
end if 
 
constant event = allocate(4 * 6) 
integer eventType = peek4s(event) 
integer code = peek4s(event+4) 
integer alt = peek4s(event+8) 
integer control = peek4s(event+12) 
integer shift = peek4s(event+16) 
integer system = peek4s(event+20) 
 
while sfRenderWindow_isOpen(win) do 
	 
	while sfRenderWindow_pollEvent(win,event) do 
		if event = sfEvtClosed then 
			sfRenderWindow_close(win) 
		end if 
               if poke4(event,EventType) = sfEvtClosed then 
                   sfRenderWindow_close(win) 
               end if 
        --The top if statement, dosen't close the window when the user clicks on the X 
        --the bottom if statement comes up with an error when I try to run it.  
	end while 
	 
	sfRenderWindow_clear(win,sfBlack) 
	 
	sfRenderWindow_display(win) 
 
end while 
 
sfRenderWindow_destroy(win) 

Note I only have one if statement used at a time. I only included both for readability purposes and to see if there is anything I might be missing.