Optional parameters are SCM_UNDEFINED

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

diff --git a/src/gui.cpp b/src/gui.cpp
index 5291537e5f2f0e4b5ecc05b2b8ba726a8a1619f4..cd8eef34773c48e998138635f6c8eea99cf7399a 100644 (file)
--- a/src/gui.cpp
+++ b/src/gui.cpp
@@ -26,7 +26,7 @@
 #include "gsubr.h"
 #include "gui.h"
 #include "gui-button.h"
-#include "gui-edit-box.h"
+#include "gui-editbox.h"
 #include "gui-element.h"
 #include "gui-environment.h"
 #include "gui-font.h"
@@ -45,7 +45,7 @@ extern "C" {
   {
     // Init objects
     init_gui_button ();
-    init_gui_edit_box ();
+    init_gui_editbox ();
     init_gui_element ();
     init_gui_environment ();
     init_gui_font ();
@@ -147,7 +147,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);
@@ -165,9 +165,9 @@ extern "C" {
   {
 #define SET_MAX(OBJ) OBJ->setMax (scm_to_int32 (max));
 
-    if (gui_edit_box_p (wrapped_obj))
+    if (gui_editbox_p (wrapped_obj))
       {
-        SET_MAX (unwrap_gui_edit_box (wrapped_obj));
+        SET_MAX (unwrap_gui_editbox (wrapped_obj));
       }
     else if (gui_scrollbar_p (wrapped_obj))
       {
@@ -187,9 +187,9 @@ extern "C" {
   {
 #define SET_OVERRIDE_COLOR(OBJ) OBJ->setOverrideColor (scm_to_color (color));
 
-    if (gui_edit_box_p (wrapped_obj))
+    if (gui_editbox_p (wrapped_obj))
       {
-        SET_OVERRIDE_COLOR (unwrap_gui_edit_box (wrapped_obj));
+        SET_OVERRIDE_COLOR (unwrap_gui_editbox (wrapped_obj));
       }
     else if (gui_static_text_p (wrapped_obj))
       {