- SCM
- scm_from_event_type (irr::EEVENT_TYPE event_type)
- {
- switch (event_type)
- {
- case irr::EET_GUI_EVENT:
- return scm_from_utf8_symbol ("gui-event");
- break;
-
- case irr::EET_MOUSE_INPUT_EVENT:
- return scm_from_utf8_symbol ("mouse-input-event");
- break;
-
- case irr::EET_KEY_INPUT_EVENT:
- return scm_from_utf8_symbol ("key-input-event");
- break;
-
- case irr::EET_JOYSTICK_INPUT_EVENT:
- return scm_from_utf8_symbol ("joystick-input-event");
- break;
-
- case irr::EET_LOG_TEXT_EVENT:
- return scm_from_utf8_symbol ("log-text-event");
- break;
-
- case irr::EET_USER_EVENT:
- return scm_from_utf8_symbol ("user-event");
- break;
-
- default:
- SCM type = scm_from_uint (event_type);
- scm_error (scm_arg_type_key, NULL, "Wrong event type: ~S",
- scm_list_1 (type), scm_list_1 (type));
- }
- }
+ case gui::EGET_ELEMENT_FOCUSED:
+ return scm_from_utf8_symbol ("element-focused");
+ break;
+
+ case gui::EGET_ELEMENT_HOVERED:
+ return scm_from_utf8_symbol ("element-hovered");
+ break;
+
+ case gui::EGET_ELEMENT_LEFT:
+ return scm_from_utf8_symbol ("element-left");
+ break;
+
+ case gui::EGET_ELEMENT_CLOSED:
+ return scm_from_utf8_symbol ("element-closed");
+ break;
+
+ case gui::EGET_BUTTON_CLICKED:
+ return scm_from_utf8_symbol ("button-clicked");
+ break;
+
+ case gui::EGET_SCROLL_BAR_CHANGED:
+ return scm_from_utf8_symbol ("scrollbar-changed");
+ break;
+
+ case gui::EGET_CHECKBOX_CHANGED:
+ return scm_from_utf8_symbol ("checkbox-changed");
+ break;
+
+ case gui::EGET_LISTBOX_CHANGED:
+ return scm_from_utf8_symbol ("listbox-changed");
+ break;
+
+ case gui::EGET_LISTBOX_SELECTED_AGAIN:
+ return scm_from_utf8_symbol ("listbox-selected-again");
+ break;
+
+ case gui::EGET_FILE_SELECTED:
+ return scm_from_utf8_symbol ("file-selected");
+ break;
+
+ case gui::EGET_DIRECTORY_SELECTED:
+ return scm_from_utf8_symbol ("directory-selected");
+ break;
+
+ case gui::EGET_FILE_CHOOSE_DIALOG_CANCELLED:
+ return scm_from_utf8_symbol ("file-choose-dialog-cancelled");
+ break;
+
+ case gui::EGET_MESSAGEBOX_YES:
+ return scm_from_utf8_symbol ("messagebox-yes");
+ break;
+
+ case gui::EGET_MESSAGEBOX_NO:
+ return scm_from_utf8_symbol ("messagebox-no");
+ break;
+
+ case gui::EGET_MESSAGEBOX_OK:
+ return scm_from_utf8_symbol ("messagebox-ok");
+ break;
+
+ case gui::EGET_MESSAGEBOX_CANCEL:
+ return scm_from_utf8_symbol ("messagebox-cancel");
+ break;
+
+ case gui::EGET_EDITBOX_ENTER:
+ return scm_from_utf8_symbol ("editbox-enter");
+ break;
+
+ case gui::EGET_EDITBOX_CHANGED:
+ return scm_from_utf8_symbol ("editbox-changed");
+ break;
+
+ case gui::EGET_EDITBOX_MARKING_CHANGED:
+ return scm_from_utf8_symbol ("editbox-marking-changed");
+ break;
+
+ case gui::EGET_TAB_CHANGED:
+ return scm_from_utf8_symbol ("tab-changed");
+ break;
+
+ case gui::EGET_MENU_ITEM_SELECTED:
+ return scm_from_utf8_symbol ("menu-item-selected");
+ break;
+
+ case gui::EGET_COMBO_BOX_CHANGED:
+ return scm_from_utf8_symbol ("combo-box-changed");
+ break;
+
+ case gui::EGET_SPINBOX_CHANGED:
+ return scm_from_utf8_symbol ("spinbox-changed");
+ break;
+
+ case gui::EGET_TABLE_CHANGED:
+ return scm_from_utf8_symbol ("table-changed");
+ break;
+
+ case gui::EGET_TABLE_HEADER_CHANGED:
+ return scm_from_utf8_symbol ("table-header-changed");
+ break;
+
+ case gui::EGET_TABLE_SELECTED_AGAIN:
+ return scm_from_utf8_symbol ("table-selected-again");
+ break;
+
+ case gui::EGET_TREEVIEW_NODE_DESELECT:
+ return scm_from_utf8_symbol ("treeview-node-deselect");
+ break;
+
+ case gui::EGET_TREEVIEW_NODE_SELECT:
+ return scm_from_utf8_symbol ("treeview-node-select");
+ break;
+
+ case gui::EGET_TREEVIEW_NODE_EXPAND:
+ return scm_from_utf8_symbol ("treeview-node-expand");
+ break;
+
+ case gui::EGET_TREEVIEW_NODE_COLLAPSE:
+ return scm_from_utf8_symbol ("treeview-node-collapse");
+ break;