run and drop device

[guile-irrlicht.git] / examples / hello.scm

diff --git a/examples/hello.scm b/examples/hello.scm
index 116c4081a8712e39d587088696a3544d95132d72..cee3c64ff813554ad14b155fcf9316795f15e3a4 100644 (file)
--- a/examples/hello.scm
+++ b/examples/hello.scm
@@ -22,3 +22,10 @@
 
 (define device (create-device 'opengl))
 (define driver (get-video-driver device))
+(define scene-manager (get-scene-manager device))
+
+(set-window-caption! device "Hello World!")
+
+(while (run? device))
+
+(drop! device)