+#include <Elementary.h>
+#include "elm_priv.h"
+
+typedef struct _Mod_Api Mod_Api;
+
+struct _Mod_Api
+{
+ void (*out_read) (const char *txt);
+ void (*out_read_done) (void);
+ void (*out_cancel) (void);
+ void (*out_done_callback_set) (void (*func) (void *data), const void *data);
+};
+
+static int initted = 0;
+static Elm_Module *mod = NULL;
+static Mod_Api *mapi = NULL;
+
+static void
+_access_init(void)
+{
+ Elm_Module *m;
+ initted++;
+ if (initted > 1) return;
+ if (!(m = _elm_module_find_as("access/api"))) return;
+ mod = m;
+ m->api = malloc(sizeof(Mod_Api));
+ if (!m->api) return;
+ m->init_func(m);
+ ((Mod_Api *)(m->api) )->out_read = // called to read out some text
+ _elm_module_symbol_get(m, "out_read");
+ ((Mod_Api *)(m->api) )->out_read_done = // called to set a done marker so when it is reached the done callback is called
+ _elm_module_symbol_get(m, "out_read_done");
+ ((Mod_Api *)(m->api) )->out_cancel = // called to read out some text
+ _elm_module_symbol_get(m, "out_cancel");
+ ((Mod_Api *)(m->api) )->out_done_callback_set = // called when last read done
+ _elm_module_symbol_get(m, "out_done_callback_set");
+ mapi = m->api;
+}
+
+static Elm_Access_Item *
+_access_add_set(Elm_Access_Info *ac, int type)
+{
+ Elm_Access_Item *ai;
+ Eina_List *l;
+
+ if (!ac) return NULL;
+ EINA_LIST_FOREACH(ac->items, l, ai)
+ {
+ if (ai->type == type)
+ {
+ if (!ai->func)
+ {
+ if (ai->data) eina_stringshare_del(ai->data);
+ }
+ ai->func = NULL;
+ ai->data = NULL;
+ return ai;
+ }
+ }
+ ai = calloc(1, sizeof(Elm_Access_Item));
+ ai->type = type;
+ ac->items = eina_list_prepend(ac->items, ai);
+ return ai;
+}
+static Eina_Bool
+_access_obj_over_timeout_cb(void *data)
+{
+ Elm_Access_Info *ac = evas_object_data_get(data, "_elm_access");
+ if (!ac) return EINA_FALSE;
+ _elm_access_read(ac, ELM_ACCESS_CANCEL, data, NULL);
+ _elm_access_read(ac, ELM_ACCESS_TYPE, data, NULL);
+ _elm_access_read(ac, ELM_ACCESS_INFO, data, NULL);
+ _elm_access_read(ac, ELM_ACCESS_STATE, data, NULL);
+ _elm_access_read(ac, ELM_ACCESS_DONE, data, NULL);
+ ac->delay_timer = NULL;
+ return EINA_FALSE;
+}
+
+static void
+_access_obj_mouse_in_cb(void *data, Evas *e __UNUSED__, Evas_Object *obj __UNUSED__, void *event_info __UNUSED__)
+{
+ Elm_Access_Info *ac = evas_object_data_get(data, "_elm_access");
+ if (!ac) return;
+
+ if (ac->delay_timer)
+ {
+ ecore_timer_del(ac->delay_timer);
+ ac->delay_timer = NULL;
+ }
+ ac->delay_timer = ecore_timer_add(0.2, _access_obj_over_timeout_cb, data);
+}
+
+static void
+_access_obj_mouse_out_cb(void *data, Evas *e __UNUSED__, Evas_Object *obj __UNUSED__, void *event_info __UNUSED__)
+{
+ Elm_Access_Info *ac = evas_object_data_get(data, "_elm_access");
+ if (!ac) return;
+ if (ac->delay_timer)
+ {
+ ecore_timer_del(ac->delay_timer);
+ ac->delay_timer = NULL;
+ }
+}
+
+static void
+_access_obj_del_cb(void *data, Evas *e __UNUSED__, Evas_Object *obj, void *event_info __UNUSED__)
+{
+ Elm_Access_Info *ac;
+
+ evas_object_event_callback_del_full(obj, EVAS_CALLBACK_MOUSE_IN,
+ _access_obj_mouse_in_cb, data);
+ evas_object_event_callback_del_full(obj, EVAS_CALLBACK_MOUSE_OUT,
+ _access_obj_mouse_out_cb, data);
+ evas_object_event_callback_del_full(obj, EVAS_CALLBACK_DEL,
+ _access_obj_del_cb, data);
+ ac = evas_object_data_get(data, "_elm_access");
+ evas_object_data_del(data, "_elm_access");
+ if (ac)
+ {
+ _elm_access_clear(ac);
+ free(ac);
+ }
+}
+
+static void
+_access_read_done(void *data __UNUSED__)
+{
+ printf("read done\n");
+}
+
+//-------------------------------------------------------------------------//
+
+EAPI void
+_elm_access_clear(Elm_Access_Info *ac)
+{
+ Elm_Access_Item *ai;
+
+ if (!ac) return;
+ if (ac->delay_timer)
+ {
+ ecore_timer_del(ac->delay_timer);
+ ac->delay_timer = NULL;
+ }
+ EINA_LIST_FREE(ac->items, ai)
+ {
+ if (!ai->func)
+ {
+ if (ai->data) eina_stringshare_del(ai->data);
+ }
+ free(ai);
+ }
+}
+
+EAPI void
+_elm_access_text_set(Elm_Access_Info *ac, int type, const char *text)
+{
+ Elm_Access_Item *ai = _access_add_set(ac, type);
+ if (!ai) return;
+ ai->data = eina_stringshare_add(text);
+}
+
+EAPI void
+_elm_access_callback_set(Elm_Access_Info *ac, int type, Elm_Access_Content_Cb func, const void *data)
+{
+ Elm_Access_Item *ai = _access_add_set(ac, type);
+ if (!ai) return;
+ ai->func = func;
+ ai->data = data;
+}
+
+EAPI char *
+_elm_access_text_get(Elm_Access_Info *ac, int type, Evas_Object *obj, Elm_Widget_Item *item)
+{
+ Elm_Access_Item *ai;
+ Eina_List *l;
+
+ if (!ac) return NULL;
+ EINA_LIST_FOREACH(ac->items, l, ai)
+ {
+ if (ai->type == type)
+ {
+ if (ai->func) return ai->func(ai->data, obj, item);
+ else if (ai->data) return strdup(ai->data);
+ return NULL;
+ }
+ }
+ return NULL;
+}
+
+EAPI void
+_elm_access_read(Elm_Access_Info *ac, int type, Evas_Object *obj, Elm_Widget_Item *item)
+{
+ char *txt = _elm_access_text_get(ac, type, obj, item);
+
+ _access_init();
+ if (mapi)
+ {
+ if (mapi->out_done_callback_set)
+ mapi->out_done_callback_set(_access_read_done, NULL);
+ if (type == ELM_ACCESS_DONE)
+ {
+ if (mapi->out_read_done) mapi->out_read_done();
+ }
+ else if (type == ELM_ACCESS_CANCEL)
+ {
+ if (mapi->out_cancel) mapi->out_cancel();
+ }
+ else
+ {
+ if (txt)
+ {
+ if (mapi->out_read) mapi->out_read(txt);
+ if (mapi->out_read) mapi->out_read(".\n");
+ }
+ }
+ }
+ if (txt) free(txt);
+}
+
+EAPI Elm_Access_Info *
+_elm_access_object_get(Evas_Object *obj)
+{
+ return evas_object_data_get(obj, "_elm_access");
+}
+
+EAPI void
+_elm_access_object_register(Evas_Object *obj, Evas_Object *hoverobj)
+{
+ Elm_Access_Info *ac;
+
+ evas_object_event_callback_add(hoverobj, EVAS_CALLBACK_MOUSE_IN,
+ _access_obj_mouse_in_cb, obj);
+ evas_object_event_callback_add(hoverobj, EVAS_CALLBACK_MOUSE_OUT,
+ _access_obj_mouse_out_cb, obj);
+ evas_object_event_callback_add(hoverobj, EVAS_CALLBACK_DEL,
+ _access_obj_del_cb, obj);
+ ac = calloc(1, sizeof(Elm_Access_Info));
+ evas_object_data_set(obj, "_elm_access", ac);
+}
+
+// XXX special version for items
+//EAPI void
+//_elm_access_item_hover_register(Elm_Widget_Item *item, Evas_Object *hoverobj)
+//{
+//}