add-window!

[guile-irrlicht.git] / src / gui.cpp

diff --git a/src/gui.cpp b/src/gui.cpp
index 997d28b08a74140809cec5d68020a34ec2afc8a7..213397e38eaf921f1951fcc3ea93107be93ff0e3 100644 (file)
--- a/src/gui.cpp
+++ b/src/gui.cpp
@@ -37,6 +37,7 @@
 #include "gui-skin.h"
 #include "gui-static-text.h"
 #include "gui-toolbar.h"
+#include "gui-window.h"
 
 extern "C" {
 
@@ -56,6 +57,7 @@ extern "C" {
     init_gui_skin ();
     init_gui_static_text ();
     init_gui_toolbar ();
+    init_gui_window ();
 
     // Shared procedures (used by two or more objects)
     DEFINE_GSUBR ("add-button!", 1, 1, 1, irr_gui_addButton);
@@ -147,7 +149,7 @@ extern "C" {
         // Params: color and dest_color (optional)
         return irr_gui_IGUIInOutFader_setColor (wrapped_obj, color, dest_color);
       }
-    else if (gui_skin_p (wrapped_obj) && !scm_is_false (dest_color))
+    else if (gui_skin_p (wrapped_obj) && dest_color != SCM_UNDEFINED)
       {
         // Params: which and new_color
         return irr_gui_IGUISkin_setColor (wrapped_obj, color, dest_color);