+ SCM
+ irr_gui_IGUIListBox_addItem (SCM wrapped_gui_listbox,
+ SCM text,
+ SCM icon)
+ {
+ irr::gui::IGUIListBox* listbox = unwrap_gui_listbox (wrapped_gui_listbox);
+ irr::u32 item_id;
+ if (icon == SCM_UNDEFINED)
+ {
+ item_id = listbox->addItem (scm_to_wide_char_string (text));
+ }
+ else
+ {
+ item_id = listbox->addItem (scm_to_wide_char_string (text),
+ scm_to_int32 (icon));
+ }
+ return scm_from_uint32 (item_id);
+ }
+