class EX_SIMPLE inherit JEGL; J_SCREEN_ACCESS; J_CONSTANTS; creation {ANY} make feature {ANY} init is do set_videomode(640,480,16,false); !!events; !!keyboard; !!clr_yellow.make(255,236,5); end -- init make is local done: BOOLEAN; area: J_AREA; surface: J_SURFACE; do init; !!area.make(20,20,100,100); screen.fill_area(area,clr_yellow); !!surface.make_from_img("../images/background.png"); surface.blit_fast(screen,300,200); screen.flip; from done := false; until done = true loop if events.poll then inspect events.type when je_keydown then if keyboard.sym = jk_c then screen.clear; screen.flip end if keyboard.sym = jk_escape then done := true end when je_quit then done := true else end; end end; jegl_quit; end -- make feature {NONE} events: J_EVENTS; keyboard: J_KEYBOARD; clr_yellow: J_COLOR; end -- class EX_SIMPLE