From 459939e629877e649a4bef3336ab2d355e099c12 Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Wed, 17 Jul 2013 20:52:15 -0400
Subject: Add window-title and set-window-title! procedures.

---
 2d/window.scm | 12 +++++++++++-
 1 file changed, 11 insertions(+), 1 deletion(-)

(limited to '2d')

diff --git a/2d/window.scm b/2d/window.scm
index f3ce293..72dfc4d 100644
--- a/2d/window.scm
+++ b/2d/window.scm
@@ -26,7 +26,9 @@
   #:use-module ((sdl sdl) #:prefix SDL:)
   #:export (init-2d
             open-window
-            close-window))
+            close-window
+            window-title
+            set-window-title!))
 
 (define (init-2d)
   "Initializes guile-2d. This procedure must be called before using
@@ -58,3 +60,11 @@ initializes OpenGL state."
   "Closes the game window and cleans up. This procedure is typically
 called just before calling (quit)."
   (SDL:quit))
+
+(define (window-title)
+  "Returns the window title string."
+  (SDL:get-caption))
+
+(define (set-window-title! title)
+  "Sets the window title string"
+  (SDL:set-caption title))
-- 
cgit v1.2.3