From 7006c85b72b5eff7cfc935624711cf0bfdaa1508 Mon Sep 17 00:00:00 2001 From: Javier Sancho Date: Sat, 25 Apr 2020 09:12:38 +0200 Subject: [PATCH] add-listbox! --- Makefile.am | 1 + src/gui-environment.cpp | 26 ++++++++++++++++++++++++++ src/gui-environment.h | 5 +++++ src/gui-listbox.cpp | 40 ++++++++++++++++++++++++++++++++++++++++ src/gui-listbox.h | 39 +++++++++++++++++++++++++++++++++++++++ src/gui.cpp | 2 ++ 6 files changed, 113 insertions(+) create mode 100644 src/gui-listbox.cpp create mode 100644 src/gui-listbox.h diff --git a/Makefile.am b/Makefile.am index ca146c8..f74cf9a 100644 --- a/Makefile.am +++ b/Makefile.am @@ -44,6 +44,7 @@ libguile_irrlicht_la_SOURCES = \ src/gui-font.cpp \ src/gui-image.cpp \ src/gui-in-out-fader.cpp \ + src/gui-listbox.cpp \ src/gui-scrollbar.cpp \ src/gui-skin.cpp \ src/gui-static-text.cpp \ diff --git a/src/gui-environment.cpp b/src/gui-environment.cpp index 3f85f8b..cc5e0c5 100644 --- a/src/gui-environment.cpp +++ b/src/gui-environment.cpp @@ -29,6 +29,7 @@ #include "gui-environment.h" #include "gui-font.h" #include "gui-image.h" +#include "gui-listbox.h" #include "gui-scrollbar.h" #include "gui-skin.h" #include "gui-static-text.h" @@ -45,6 +46,7 @@ extern "C" { { init_gui_environment_type (); DEFINE_GSUBR ("add-image!", 3, 0, 1, irr_gui_addImage); + DEFINE_GSUBR ("add-listbox!", 2, 0, 1, irr_gui_addListBox); DEFINE_GSUBR ("add-scrollbar!", 3, 0, 1, irr_gui_addScrollBar); DEFINE_GSUBR ("add-static-text!", 3, 0, 1, irr_gui_addStaticText); DEFINE_GSUBR ("get-built-in-font", 1, 0, 0, irr_gui_getBuiltInFont); @@ -101,6 +103,30 @@ extern "C" { return wrap_gui_image (guiImage); } + SCM + irr_gui_addListBox (SCM wrapped_gui_environment, + SCM rectangle, + SCM rest) + { + SCM parent = SCM_BOOL_F; + SCM id = scm_from_int32 (-1); + SCM draw_background = SCM_BOOL_F; + + scm_c_bind_keyword_arguments ("add-listbox!", rest, (scm_t_keyword_arguments_flags)0, + scm_from_utf8_keyword ("parent"), &parent, + scm_from_utf8_keyword ("id"), &id, + scm_from_utf8_keyword ("draw-background"), &draw_background, + SCM_UNDEFINED); + + irr::gui::IGUIEnvironment* guienv = unwrap_gui_environment (wrapped_gui_environment); + irr::gui::IGUIListBox* listbox = + guienv->addListBox (scm_to_rect_s32 (rectangle), + scm_is_false (parent) ? 0 : unwrap_gui_element (parent), + scm_to_int32 (id), + scm_to_bool (draw_background)); + return wrap_gui_listbox (listbox); + } + SCM irr_gui_addScrollBar (SCM wrapped_gui_environment, SCM horizontal, diff --git a/src/gui-environment.h b/src/gui-environment.h index 6267e5d..a52233a 100644 --- a/src/gui-environment.h +++ b/src/gui-environment.h @@ -43,6 +43,11 @@ extern "C" { SCM position, SCM rest); + SCM + irr_gui_addListBox (SCM wrapped_gui_environment, + SCM rectangle, + SCM rest); + SCM irr_gui_addScrollBar (SCM wrapped_gui_environment, SCM horizontal, diff --git a/src/gui-listbox.cpp b/src/gui-listbox.cpp new file mode 100644 index 0000000..1c81998 --- /dev/null +++ b/src/gui-listbox.cpp @@ -0,0 +1,40 @@ +/* guile-irrlicht --- GNU Guile bindings for Irrlicht Engine + + Copyright (C) 2020 Javier Sancho + + This file is part of guile-irrlicht. + + guile-irrlicht is free software; you can redistribute it and/or modify + it under the terms of the GNU Lesser General Public License as + published by the Free Software Foundation; either version 3 of the + License, or (at your option) any later version. + + guile-irrlicht is distributed in the hope that it will be useful, but + WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU + General Public License for more details. + + You should have received a copy of the GNU Lesser General Public + License along with guile-irrlicht. If not, see + . +*/ + +#include +#include + +#include "gui-listbox.h" +#include "wrapped.h" + +extern "C" { + + void + init_gui_listbox (void) + { + init_gui_listbox_type (); + } + + DEFINE_WRAPPED_TYPE (irr::gui::IGUIListBox*, "gui-listbox", + init_gui_listbox_type, gui_listbox_p, + wrap_gui_listbox, unwrap_gui_listbox); + +} diff --git a/src/gui-listbox.h b/src/gui-listbox.h new file mode 100644 index 0000000..9e2baf3 --- /dev/null +++ b/src/gui-listbox.h @@ -0,0 +1,39 @@ +/* guile-irrlicht --- GNU Guile bindings for Irrlicht Engine + + Copyright (C) 2020 Javier Sancho + + This file is part of guile-irrlicht. + + guile-irrlicht is free software; you can redistribute it and/or modify + it under the terms of the GNU Lesser General Public License as + published by the Free Software Foundation; either version 3 of the + License, or (at your option) any later version. + + guile-irrlicht is distributed in the hope that it will be useful, but + WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU + General Public License for more details. + + You should have received a copy of the GNU Lesser General Public + License along with guile-irrlicht. If not, see + . +*/ + +#ifndef __GUILE_IRRLICHT_GUI_LISTBOX_H_INCLUDED__ +#define __GUILE_IRRLICHT_GUI_LISTBOX_H_INCLUDED__ + +#include +#include +#include "wrapped.h" + +extern "C" { + + void + init_gui_listbox (void); + + DECLARE_WRAPPED_TYPE (irr::gui::IGUIListBox*, init_gui_listbox_type, + gui_listbox_p, wrap_gui_listbox, unwrap_gui_listbox); + +} + +#endif diff --git a/src/gui.cpp b/src/gui.cpp index c507f1d..5291537 100644 --- a/src/gui.cpp +++ b/src/gui.cpp @@ -32,6 +32,7 @@ #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" @@ -50,6 +51,7 @@ extern "C" { init_gui_font (); init_gui_image (); init_gui_in_out_fader (); + init_gui_listbox (); init_gui_scrollbar (); init_gui_skin (); init_gui_static_text (); -- 2.39.2