X-Git-Url: https://git.jsancho.org/?p=guile-irrlicht.git;a=blobdiff_plain;f=irrlicht%2Fgui.scm;h=1d79f296ebff6d97ca88816fe3081f43e420d148;hp=aa12d37424a7f70d806d9576f187f5d4a381f502;hb=3a61cfa560b91b5a87dc1a87f33e7bacccc1084e;hpb=7dda4e01bc5cfa5d5533f15a5729dff04292d4dc

diff --git a/irrlicht/gui.scm b/irrlicht/gui.scm
index aa12d37..1d79f29 100644
--- 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