Add blank window example.
authorDavid Thompson <dthompson2@worcester.edu>
Sat, 12 Dec 2015 07:54:59 +0000 (02:54 -0500)
committerDavid Thompson <dthompson2@worcester.edu>
Sat, 12 Dec 2015 07:54:59 +0000 (02:54 -0500)
* examples/blank-window.scm: New file.

examples/blank-window.scm [new file with mode: 0644]

diff --git a/examples/blank-window.scm b/examples/blank-window.scm
new file mode 100644 (file)
index 0000000..41c5ead
--- /dev/null
@@ -0,0 +1,10 @@
+(use-modules (sdl2)
+             (sdl2 video))
+
+(sdl-init)
+
+(define window (make-sdl-window))
+
+(sleep 2)
+(close-sdl-window! window)
+(sdl-quit)