From 596a42abc73e5d3cb12538248ce1ebc90f42ec24 Mon Sep 17 00:00:00 2001
From: Drahflow <drahflow@gmx.de>
Date: Tue, 15 Oct 2013 11:04:12 +0200
Subject: Now drawing (blue)

---
 examples/working-shared/sdl.ey | 15 ++++++++++-----
 1 file changed, 10 insertions(+), 5 deletions(-)

(limited to 'examples')

diff --git a/examples/working-shared/sdl.ey b/examples/working-shared/sdl.ey
index 23d2e79..52a22b5 100644
--- a/examples/working-shared/sdl.ey
+++ b/examples/working-shared/sdl.ey
@@ -3,13 +3,18 @@
 
 ffi .sdl ":" via
 
-:SDL_INIT_VIDEO :SDL_Init {
-  :SDL_GetError dump
-  "SDL_Init failed" die
+:INIT_VIDEO :Init {
+  :GetError dump
+  "Init failed" die
 } rep
 
-"Ohai!" 0 0 800 600 0 :SDL_CreateWindow
+"Ohai!" 0 0 800 600 0 :CreateWindow ==w
 
-"done" die
+w :GetWindowSurface ==s
+s 255 :Fill dump
+w :UpdateWindowSurface
+
+1 sys .out .read dump
+:Quit
 
 # vim: syn=elymas
-- 
cgit v1.2.3