summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--2d/window.scm12
1 files changed, 11 insertions, 1 deletions
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))