diff options
| author | David Thompson <dthompson2@worcester.edu> | 2013-07-17 20:52:15 -0400 |
|---|---|---|
| committer | David Thompson <dthompson2@worcester.edu> | 2013-07-17 20:52:15 -0400 |
| commit | 459939e629877e649a4bef3336ab2d355e099c12 (patch) | |
| tree | cb404f8ea98ca76e5e53aabaacaddbeb2cd53ba2 | |
| parent | 940a51456bcd886e5aaf6c83adecc97f5b16cbaf (diff) | |
Add window-title and set-window-title! procedures.
| -rw-r--r-- | 2d/window.scm | 12 |
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)) |