draw-all

[guile-irrlicht.git] / irrlicht / gui.scm

diff --git a/irrlicht/gui.scm b/irrlicht/gui.scm
index aa12d37424a7f70d806d9576f187f5d4a381f502..1d79f296ebff6d97ca88816fe3081f43e420d148 100644 (file)
--- a/irrlicht/gui.scm
+++ b/irrlicht/gui.scm
@@ -57,7 +57,11 @@
        id
        fill-background))))
 
-(export <gui-environment> add-static-text!)
+(define-method (draw-all (gui-environment <gui-environment>))
+  ((get-irrlicht-proc "drawAll" gui-environment)
+   (irr-pointer gui-environment)))
+
+(export <gui-environment> add-static-text! draw-all)
 
 
 ;; IGUIStaticText