X-Git-Url: https://git.jsancho.org/?a=blobdiff_plain;f=src%2Fgui.cpp;h=8b435df8b5b227caac640e9ab510595c873abdd2;hb=bf2cb00e2ef19e2eb33557f900405f836ebe65a3;hp=313a83b2ef34487db5f5626fc821fca5d57bb511;hpb=55e6476fba279b10b7732170a72b31426f973ef5;p=guile-irrlicht.git

diff --git a/src/gui.cpp b/src/gui.cpp
index 313a83b..8b435df 100644
--- a/src/gui.cpp
+++ b/src/gui.cpp
@@ -21,56 +21,26 @@
 
 #include <irrlicht/irrlicht.h>
 #include <libguile.h>
-
-#include "color.h"
-#include "gsubr.h"
 #include "gui.h"
-#include "gui-edit-box.h"
-#include "gui-element.h"
 #include "gui-environment.h"
-#include "gui-font.h"
-#include "gui-image.h"
+#include "gui-in-out-fader.h"
+#include "gui-listbox.h"
+#include "gui-scrollbar.h"
 #include "gui-skin.h"
-#include "gui-static-text.h"
+#include "gui-toolbar.h"
+
 
 extern "C" {
 
   void
   init_gui (void)
   {
-    // Init objects
-    init_gui_edit_box ();
-    init_gui_element ();
     init_gui_environment ();
-    init_gui_font ();
-    init_gui_image ();
+    init_gui_in_out_fader ();
+    init_gui_listbox ();
+    init_gui_scrollbar ();
     init_gui_skin ();
-    init_gui_static_text ();
-
-    // Shared procedures (used by two or more objects)
-    DEFINE_GSUBR ("set-override-color!", 2, 0, 0, irr_gui_setOverrideColor);
-  }
-
-  SCM
-  irr_gui_setOverrideColor (SCM wrapped_obj,
-                            SCM color)
-  {
-#define SET_OVERRIDE_COLOR(OBJ) OBJ->setOverrideColor (scm_to_color (color));
-
-    if (gui_edit_box_p (wrapped_obj))
-      {
-        SET_OVERRIDE_COLOR (unwrap_gui_edit_box (wrapped_obj));
-      }
-    else if (gui_static_text_p (wrapped_obj))
-      {
-        SET_OVERRIDE_COLOR (unwrap_gui_static_text (wrapped_obj));
-      }
-    else
-      {
-        scm_error (scm_arg_type_key, NULL, "Cannot set override color to object: ~S",
-                   scm_list_1 (wrapped_obj), scm_list_1 (wrapped_obj));
-      }
-    return SCM_UNSPECIFIED;
+    init_gui_toolbar ();
   }
 
 }