Merge "index - merge with opensource"
[framework/uifw/elementary.git] / src / lib / elm_index.c
1 #include <Elementary.h>
2 #include "elm_priv.h"
3 #include "els_box.h"
4
5 #define MIN_GRP_SIZE 2 //for symmetry it is 2, otherwise it can be 1 and zero have no meaning.
6 #define MIN_PIXEL_VALUE 1 //Min pixel value is highly dependent on touch sensitivity support.
7 #define MIN_OBJ_HEIGHT 24 //should be taken from .edc file.
8
9 typedef struct _Widget_Data Widget_Data;
10
11 typedef struct _PlacementPart PlacementPart;
12 typedef struct _Elm_Index_Item Elm_Index_Item;
13
14 struct _Widget_Data
15 {
16    Evas_Object *base;
17    Evas_Object *event[2];
18    Evas_Object *bx[2]; // 2 - for now all that's supported
19    Eina_List *items; // 1 list. yes N levels, but only 2 for now and # of items will be small
20    int level;
21    int tot_items_count[2];
22    int min_obj_height, max_grp_size;
23    int min_1st_level_obj_height;
24    int items_count;
25    Evas_Coord dx, dy;
26    Evas_Coord pwidth, pheight;
27    Ecore_Timer *delay;
28    const char *special_char;
29    Eina_Bool level_active[2];
30    Eina_Bool horizontal : 1;
31    Eina_Bool active : 1;
32    Eina_Bool down : 1;
33    Eina_Bool indicator_disabled : 1;
34 };
35
36 struct _Elm_Index_Item
37 {
38    ELM_WIDGET_ITEM;
39    const char *letter, *vis_letter;
40    int level, size;
41    Eina_Bool selected : 1;
42 };
43
44 struct _PlacementPart
45 {
46    int start;
47    int count;
48 };
49
50 static const char *widtype = NULL;
51
52 static void _del_hook(Evas_Object *obj);
53 static void _mirrored_set(Evas_Object *obj, Eina_Bool rtl);
54 static void _theme_hook(Evas_Object *obj);
55 static void _sizing_eval(Evas_Object *obj);
56 static void _index_box_auto_fill(Evas_Object *obj, Evas_Object *box, int level);
57 static void _index_box_clear(Evas_Object *obj, Evas_Object *box, int level);
58 static void _item_free(Elm_Index_Item *it);
59 static void _index_process(Evas_Object *obj);
60
61 static const char SIG_CHANGED[] = "changed";
62 static const char SIG_DELAY_CHANGED[] = "delay,changed";
63 static const char SIG_SELECTED[] = "selected";
64 static const char SIG_LEVEL_UP[] = "level,up";
65 static const char SIG_LEVEL_DOWN[] = "level,down";
66
67 static const Evas_Smart_Cb_Description _signals[] = {
68    {SIG_CHANGED, ""},
69    {SIG_DELAY_CHANGED, ""},
70    {SIG_SELECTED, ""},
71    {SIG_LEVEL_UP, ""},
72    {SIG_LEVEL_DOWN, ""},
73    {NULL, NULL}
74 };
75
76 static void
77 _del_pre_hook(Evas_Object *obj)
78 {
79    Widget_Data *wd = elm_widget_data_get(obj);
80    Elm_Index_Item *it;
81    if (!wd) return;
82    _index_box_clear(obj, wd->bx[wd->level], wd->level);
83    _index_box_clear(obj, wd->bx[0], 0);
84    while (wd->items)
85      {
86         it = wd->items->data;
87         _item_free(it);
88         elm_widget_item_free(it);
89      }
90    if (wd->delay) ecore_timer_del(wd->delay);
91 }
92
93 static void
94 _del_hook(Evas_Object *obj)
95 {
96    Widget_Data *wd = elm_widget_data_get(obj);
97    free(wd);
98 }
99
100 static void
101 _layout(Evas_Object *o, Evas_Object_Box_Data *priv, void *data)
102 {
103    Widget_Data *wd = data;
104    if (!wd) return;
105    _els_box_layout(o, priv, wd->horizontal, 1, 0);
106 }
107
108 static void
109 _signal_emit_hook(Evas_Object *obj, const char *emission, const char *source)
110 {
111    Widget_Data *wd = elm_widget_data_get(obj);
112    if (!wd) return;
113    edje_object_signal_emit(wd->base, emission, source);
114 }
115
116 static void
117 _signal_callback_add_hook(Evas_Object *obj, const char *emission, const char *source, Edje_Signal_Cb func_cb, void *data)
118 {
119    Widget_Data *wd = elm_widget_data_get(obj);
120    if (!wd) return;
121    edje_object_signal_callback_add(wd->base, emission, source, func_cb, data);
122 }
123
124 static void
125 _signal_callback_del_hook(Evas_Object *obj, const char *emission, const char *source, Edje_Signal_Cb func_cb, void *data)
126 {
127    Widget_Data *wd = elm_widget_data_get(obj);
128    edje_object_signal_callback_del_full(wd->base, emission, source, func_cb,
129                                         data);
130 }
131
132 static void
133 _mirrored_set(Evas_Object *obj, Eina_Bool rtl)
134 {
135    Widget_Data *wd = elm_widget_data_get(obj);
136    if (!wd) return;
137    if (!wd->horizontal)
138      edje_object_mirrored_set(wd->base, rtl);
139 }
140
141 static void
142 _theme_hook(Evas_Object *obj)
143 {
144    Evas_Coord minw = 0, minh = 0;
145    Widget_Data *wd = elm_widget_data_get(obj);
146    if (!wd) return;
147    _elm_widget_mirrored_reload(obj);
148
149    _index_box_clear(obj, wd->bx[0], 0);
150    _index_box_clear(obj, wd->bx[1], 1);
151    if (wd->horizontal)
152      _elm_theme_object_set(obj, wd->base, "index", "base/horizontal", elm_widget_style_get(obj));
153    else
154      {
155         _elm_theme_object_set(obj, wd->base, "index", "base/vertical", elm_widget_style_get(obj));
156         _mirrored_set(obj, elm_widget_mirrored_get(obj));
157      }
158    edje_object_part_swallow(wd->base, "elm.swallow.event.0", wd->event[0]);
159    elm_coords_finger_size_adjust(1, &minw, 1, &minh);
160    evas_object_size_hint_min_set(wd->event[0], minw, minh);
161    edje_object_part_swallow(wd->base, "elm.swallow.index.0", wd->bx[0]);
162    if (edje_object_part_exists(wd->base, "elm.swallow.index.1"))
163      {
164         if (!wd->bx[1])
165           {
166              wd->bx[1] = evas_object_box_add(evas_object_evas_get(wd->base));
167              evas_object_box_layout_set(wd->bx[1], _layout, wd, NULL);
168              elm_widget_sub_object_add(obj, wd->bx[1]);
169           }
170         edje_object_part_swallow(wd->base, "elm.swallow.index.1", wd->bx[1]);
171         evas_object_show(wd->bx[1]);
172      }
173    else if (wd->bx[1])
174      {
175         evas_object_del(wd->bx[1]);
176         wd->bx[1] = NULL;
177      }
178    if (edje_object_part_exists(wd->base, "elm.swallow.event.1"))
179      {
180         if (!wd->event[1])
181           {
182              wd->event[1] = evas_object_rectangle_add(evas_object_evas_get(wd->base));
183              evas_object_color_set(wd->event[1], 0, 0, 0, 0);
184              elm_widget_sub_object_add(obj, wd->event[1]);
185           }
186         edje_object_part_swallow(wd->base, "elm.swallow.event.1", wd->event[1]);
187         evas_object_size_hint_min_set(wd->event[1], minw, minh);
188      }
189    else if (wd->event[1])
190      {
191         evas_object_del(wd->event[1]);
192         wd->event[1] = NULL;
193      }
194    edje_object_message_signal_process(wd->base);
195    edje_object_scale_set(wd->base, elm_widget_scale_get(obj) * _elm_config->scale);
196    _sizing_eval(obj);
197    _index_box_auto_fill(obj, wd->bx[0], 0);
198    if (wd->active)
199      if (wd->level == 1)
200        _index_box_auto_fill(obj, wd->bx[1], 1);
201 }
202
203 static void
204 _sizing_eval(Evas_Object *obj)
205 {
206    Widget_Data *wd = elm_widget_data_get(obj);
207    Evas_Coord minw = -1, minh = -1, maxw = -1, maxh = -1;
208    if (!wd) return;
209    edje_object_size_min_calc(wd->base, &minw, &minh);
210    evas_object_size_hint_min_set(obj, minw, minh);
211    evas_object_size_hint_max_set(obj, maxw, maxh);
212 }
213
214 static Eina_Bool
215 _item_del_pre_hook(Elm_Object_Item *it)
216 {
217    Widget_Data *wd = elm_widget_data_get(WIDGET(it));
218    if (!wd) return EINA_FALSE;
219    _item_free((Elm_Index_Item *) it);
220    _index_box_clear(WIDGET(it), wd->bx[wd->level], wd->level);
221    return EINA_TRUE;
222 }
223
224 static Elm_Index_Item *
225 _item_new(Evas_Object *obj, const char *letter, const void *item)
226 {
227    Widget_Data *wd = elm_widget_data_get(obj);
228    Elm_Index_Item *it;
229    if (!wd) return NULL;
230    it = elm_widget_item_new(obj, Elm_Index_Item);
231    if (!it) return NULL;
232    elm_widget_item_del_pre_hook_set(it, _item_del_pre_hook);
233    it->base.data = item;
234    it->level = wd->level;
235    if(wd->level == 0)
236      it->size =  wd->min_obj_height;
237    else
238      it->size =  wd->min_1st_level_obj_height;
239    if(letter)
240      {
241         it->letter = eina_stringshare_add(letter);
242         it->vis_letter = eina_stringshare_add(letter);
243      }
244    return it;
245 }
246
247 static Elm_Index_Item *
248 _item_find(Evas_Object *obj, const void *item)
249 {
250    Widget_Data *wd = elm_widget_data_get(obj);
251    Eina_List *l;
252    Elm_Index_Item *it;
253    if (!wd) return NULL;
254    EINA_LIST_FOREACH(wd->items, l, it)
255      if (it->base.data == item) return it;
256    return NULL;
257 }
258
259 static void
260 _item_free(Elm_Index_Item *it)
261 {
262    Widget_Data *wd = elm_widget_data_get(WIDGET(it));
263    if (!wd) return;
264    wd->items = eina_list_remove(wd->items, it);
265    if (it->letter) eina_stringshare_del(it->letter);
266    if (it->vis_letter) eina_stringshare_del(it->vis_letter);
267 }
268
269 // FIXME: always have index filled
270 static void
271 _index_box_auto_fill(Evas_Object *obj, Evas_Object *box, int level)
272 {
273    Widget_Data *wd = elm_widget_data_get(obj);
274    Eina_Bool rtl;
275    Eina_List *l;
276    Elm_Index_Item *it;
277    Evas_Coord mw, mh, w, h;
278    int i = 0;
279    if (!wd) return;
280    if (wd->level_active[level]) return;
281    rtl = elm_widget_mirrored_get(obj);
282    evas_object_geometry_get(box, NULL, NULL, &w, &h);
283    EINA_LIST_FOREACH(wd->items, l, it)
284      {
285         Evas_Object *o;
286         const char *stacking;
287
288         if (it->level != level) continue;
289         o = edje_object_add(evas_object_evas_get(obj));
290         VIEW(it) = o;
291         edje_object_mirrored_set(VIEW(it), rtl);
292         if (i & 0x1)
293           _elm_theme_object_set(obj, o, "index", "item_odd/vertical", elm_widget_style_get(obj));
294         else
295           _elm_theme_object_set(obj, o, "index", "item/vertical", elm_widget_style_get(obj));
296         edje_object_part_text_set(o, "elm.text", it->letter);
297         edje_object_size_min_restricted_calc(o, &mw, &mh, 0, 0);
298         evas_object_size_hint_min_set(o, mw, mh);
299         evas_object_size_hint_weight_set(o, EVAS_HINT_EXPAND, EVAS_HINT_EXPAND);
300         evas_object_size_hint_align_set(o, EVAS_HINT_FILL, EVAS_HINT_FILL);
301         edje_object_part_text_set(o, "elm.text", it->vis_letter);
302         evas_object_size_hint_min_set(o, mw, it->size);
303         evas_object_size_hint_max_set(o, mw, it->size);
304         evas_object_resize(o, mw, it->size);
305         elm_widget_sub_object_add(obj, o);
306         evas_object_box_append(box, o);
307         stacking = edje_object_data_get(o, "stacking");
308         if (stacking)
309           {
310              if (!strcmp(stacking, "below")) evas_object_lower(o);
311              else if (!strcmp(stacking, "above")) evas_object_raise(o);
312           }
313         evas_object_show(o);
314         i++;
315         if(level == 1)
316           wd->tot_items_count[1] = i;
317         evas_object_smart_calculate(box); // force a calc so we know the size
318         evas_object_size_hint_min_get(box, &mw, &mh);
319         if (mh > h)
320           {
321              _index_box_clear(obj, box, level);
322              if (i > 0)
323                {
324                   // FIXME: only i objects fit! try again. overflows right now
325                }
326           }
327      }
328    evas_object_smart_calculate(box);
329    wd->level_active[level] = 1;
330 }
331
332 static void
333 _index_box_clear(Evas_Object *obj, Evas_Object *box __UNUSED__, int level)
334 {
335    Widget_Data *wd = elm_widget_data_get(obj);
336    Eina_List *l;
337    Elm_Index_Item *it;
338    if (!wd) return;
339    if (!wd->level_active[level]) return;
340    EINA_LIST_FOREACH(wd->items, l, it)
341      {
342         if (!VIEW(it)) continue;
343         if (it->level != level) continue;
344         evas_object_del(VIEW(it));
345         VIEW(it) = NULL;
346      }
347    wd->level_active[level] = 0;
348 }
349
350 static Eina_Bool
351 _delay_change(void *data)
352 {
353    Widget_Data *wd = elm_widget_data_get(data);
354    Elm_Object_Item *item;
355    if (!wd) return ECORE_CALLBACK_CANCEL;
356    wd->delay = NULL;
357    item = elm_index_item_selected_get(data, wd->level);
358    if (item) evas_object_smart_callback_call(data, SIG_DELAY_CHANGED, item);
359    return ECORE_CALLBACK_CANCEL;
360 }
361
362 static void
363 _sel_eval(Evas_Object *obj, Evas_Coord evx, Evas_Coord evy)
364 {
365    Widget_Data *wd = elm_widget_data_get(obj);
366    Elm_Index_Item *it, *it_closest, *it_last;
367    Eina_List *l;
368    Evas_Coord x, y, w, h, bx, by, bw, bh, xx, yy;
369    double cdv = 0.5;
370    double dmax = 0.0;
371    double dmin = 0.0;
372    Evas_Coord dist;
373    char *label = NULL, *last = NULL;
374    int i;
375    if (!wd) return;
376    for (i = 0; i <= wd->level; i++)
377      {
378         it_last = NULL;
379         it_closest  = NULL;
380         dist = 0x7fffffff;
381         evas_object_geometry_get(wd->bx[i], &bx, &by, &bw, &bh);
382
383         dmin = (double)(wd->min_1st_level_obj_height*wd->tot_items_count[1])/(2*(double)bh);
384         dmax = 1.0-dmin-0.08;
385         EINA_LIST_FOREACH(wd->items, l, it)
386           {
387              if (!((it->level == i) && (VIEW(it)))) continue;
388              if ((VIEW(it)) && (it->level != wd->level))
389                {
390                   if (it->selected)
391                     {
392                        it_closest = it;
393                        break;
394                     }
395                   continue;
396                }
397              if (it->selected)
398                {
399                   it_last = it;
400                   it->selected = 0;
401                }
402              evas_object_geometry_get(VIEW(it), &x, &y, &w, &h);
403              xx = x + (w / 2);
404              yy = y + (h / 2);
405              x = evx - xx;
406              y = evy - yy;
407              x = (x * x) + (y * y);
408              if ((x < dist) || (!it_closest))
409                {
410                   if (wd->horizontal)
411                     cdv = (double)(xx - bx) / (double)bw;
412                   else
413                     cdv = (double)(yy - by) / (double)bh;
414                   it_closest = it;
415                   dist = x;
416                }
417           }
418         if ((i == 0) && (wd->level == 0))
419           edje_object_part_drag_value_set(wd->base, "elm.dragable.index.1",
420                                           cdv, cdv);
421         if (it_closest) it_closest->selected = 1;
422         if (it_closest != it_last)
423           {
424              if (it_last)
425                {
426                   const char *stacking, *selectraise;
427
428                   it = it_last;
429                   edje_object_signal_emit(VIEW(it), "elm,state,inactive", "elm");
430                   stacking = edje_object_data_get(VIEW(it), "stacking");
431                   selectraise = edje_object_data_get(VIEW(it), "selectraise");
432                   if ((selectraise) && (!strcmp(selectraise, "on")))
433                     {
434                        if ((stacking) && (!strcmp(stacking, "below")))
435                          evas_object_lower(VIEW(it));
436                     }
437                }
438              if (it_closest)
439                {
440                   const char *selectraise;
441
442                   it = it_closest;
443                   edje_object_signal_emit(VIEW(it), "elm,state,active", "elm");
444                   selectraise = edje_object_data_get(VIEW(it), "selectraise");
445                   if ((selectraise) && (!strcmp(selectraise, "on")))
446                     evas_object_raise(VIEW(it));
447                   evas_object_smart_callback_call((void *)obj, SIG_CHANGED, (void *)it);
448                   if (wd->delay) ecore_timer_del(wd->delay);
449                   wd->delay = ecore_timer_add(0.2, _delay_change, obj);
450                }
451           }
452         if (it_closest)
453           {
454              it = it_closest;
455              if (!last)
456                last = strdup(it->letter);
457              else
458                {
459                   if (!label) label = strdup(last);
460                   else
461                     {
462                        /* FIXME: realloc return NULL if the request fails */
463                        label = realloc(label, strlen(label) + strlen(last) + 1);
464                        strcat(label, last);
465                     }
466                   free(last);
467                   last = strdup(it->letter);
468                }
469           }
470      }
471    if (!label) label = strdup("");
472    if (!last) last = strdup("");
473    edje_object_part_text_set(wd->base, "elm.text.body", label);
474    edje_object_part_text_set(wd->base, "elm.text", last);
475                   edje_object_signal_emit(wd->base, "hide_2nd_level", "");
476    free(label);
477    free(last);
478 }
479
480 static void
481 _wheel(void *data, Evas *e __UNUSED__, Evas_Object *o __UNUSED__, void *event_info __UNUSED__)
482 {
483    Widget_Data *wd = elm_widget_data_get(data);
484    //   Evas_Event_Mouse_Wheel *ev = event_info;
485    //   Evas_Object *obj = o;
486    if (!wd) return;
487 }
488
489 static void
490 _mouse_down(void *data, Evas *e __UNUSED__, Evas_Object *o __UNUSED__, void *event_info)
491 {
492    Widget_Data *wd = elm_widget_data_get(data);
493    Evas_Event_Mouse_Down *ev = event_info;
494    Evas_Coord x, y, w;
495    if (!wd) return;
496    if (ev->button != 1) return;
497    wd->down = 1;
498    evas_object_geometry_get(wd->base, &x, &y, &w, NULL);
499    wd->dx = ev->canvas.x - x;
500    wd->dy = ev->canvas.y - y;
501    elm_index_active_set(data, 1);
502    _sel_eval(data, ev->canvas.x, ev->canvas.y);
503    edje_object_part_drag_value_set(wd->base, "elm.dragable.pointer",
504                                    (!edje_object_mirrored_get(wd->base)) ? wd->dx : (wd->dx - w), wd->dy);
505    if (wd->items && !wd->indicator_disabled)
506      edje_object_signal_emit(wd->base, "elm,indicator,state,active", "elm");
507 }
508
509 static void
510 _mouse_up(void *data, Evas *e __UNUSED__, Evas_Object *o __UNUSED__, void *event_info)
511 {
512    Widget_Data *wd = elm_widget_data_get(data);
513    Evas_Event_Mouse_Up *ev = event_info;
514    Elm_Object_Item *item;
515    if (!wd) return;
516    if (ev->button != 1) return;
517    if (wd->level == 1 && wd->delay) ecore_timer_del(wd->delay);
518    wd->delay = NULL;
519    wd->down = 0;
520    item = elm_index_item_selected_get(data, wd->level);
521    if (item) evas_object_smart_callback_call(data, SIG_SELECTED, item);
522    elm_index_active_set(data, 0);
523    edje_object_signal_emit(wd->base, "elm,state,level,0", "elm");
524    if (wd->items && !wd->indicator_disabled)
525      edje_object_signal_emit(wd->base, "elm,indicator,state,inactive", "elm");
526 }
527
528 static void
529 _mouse_move(void *data, Evas *e __UNUSED__, Evas_Object *o __UNUSED__, void *event_info)
530 {
531    Widget_Data *wd = elm_widget_data_get(data);
532    Evas_Event_Mouse_Move *ev = event_info;
533    Evas_Coord minw = 0, minh = 0, x, y, dx, adx, w;
534    Elm_Object_Item *item;
535    char buf[1024];
536    if (!wd) return;
537    if (!wd->down) return;
538    elm_coords_finger_size_adjust(1, &minw, 1, &minh);
539    evas_object_geometry_get(wd->base, &x, &y, &w, NULL);
540    x = ev->cur.canvas.x - x;
541    y = ev->cur.canvas.y - y;
542    dx = x - wd->dx;
543    adx = dx;
544    if (adx < 0) adx = -dx;
545    edje_object_part_drag_value_set(wd->base, "elm.dragable.pointer"
546                                    , (!edje_object_mirrored_get(wd->base)) ? x : (x - w), y);
547    if (!wd->horizontal)
548      {
549         if (adx > minw)
550           {
551              if (!wd->level)
552                {
553                   wd->level = 1;
554                   snprintf(buf, sizeof(buf), "elm,state,level,%i", wd->level);
555                   edje_object_signal_emit(wd->base, buf, "elm");
556                   evas_object_smart_callback_call(data, SIG_LEVEL_UP, NULL);
557                }
558           }
559         else
560           {
561              if (wd->level == 1)
562                {
563                   wd->level = 0;
564                   snprintf(buf, sizeof(buf), "elm,state,level,%i", wd->level);
565                   edje_object_signal_emit(wd->base, buf, "elm");
566                   item = elm_index_item_selected_get(data, wd->level);
567                   evas_object_smart_callback_call(data, SIG_CHANGED, NULL);
568                   if (wd->delay) ecore_timer_del(wd->delay);
569                   wd->delay = ecore_timer_add(0.2, _delay_change, data);
570                   evas_object_smart_callback_call(data, SIG_LEVEL_DOWN, NULL);
571                }
572           }
573      }
574    _sel_eval(data, ev->cur.canvas.x, ev->cur.canvas.y);
575 }
576
577 static void
578 _index_box_refill_job(void *data)
579 {
580    Widget_Data *wd = elm_widget_data_get((Evas_Object *)data);
581    if (!wd) return;
582
583    const char *string;
584    Evas_Coord pw, ph;
585
586    evas_object_geometry_get(wd->base, NULL, NULL, &pw, &ph);
587    string = edje_object_data_get(wd->base, "min_obj_height");
588    wd->min_obj_height = MIN_OBJ_HEIGHT;
589
590    wd->max_grp_size = wd->min_obj_height - 2*MIN_GRP_SIZE;
591    wd->items_count = ph/wd->min_obj_height;
592
593    if(pw != wd->pwidth && ph != wd->pheight)
594      {
595         if(wd->down == 1)
596           {
597              wd->active = 0;
598              elm_index_active_set(data, 1);
599           }
600         _index_box_clear((Evas_Object *)data, wd->bx[0], 0);
601         evas_object_smart_calculate( wd->bx[0]);
602         elm_index_item_go((Evas_Object *)data, wd->level);
603         wd->pwidth = pw;
604         wd->pheight = ph;
605      }
606 }
607
608 static void _index_object_resize(void *data, Evas *e __UNUSED__, Evas_Object *obj __UNUSED__, void *event_info __UNUSED__)
609 {
610    Widget_Data *wd;
611    if(!data) return;
612    wd = elm_widget_data_get((Evas_Object *)data);
613    if(!wd) return;
614    ecore_job_add(_index_box_refill_job, (Evas_Object *)data);
615 }
616
617 EAPI Evas_Object *
618 elm_index_add(Evas_Object *parent)
619 {
620    Evas_Object *obj;
621    Evas_Object *o;
622    Evas *e;
623    Widget_Data *wd;
624    Evas_Coord minw, minh;
625
626    ELM_WIDGET_STANDARD_SETUP(wd, Widget_Data, parent, e, obj, NULL);
627
628    ELM_SET_WIDTYPE(widtype, "index");
629    elm_widget_type_set(obj, "index");
630    elm_widget_sub_object_add(parent, obj);
631    elm_widget_data_set(obj, wd);
632    elm_widget_del_hook_set(obj, _del_hook);
633    elm_widget_del_pre_hook_set(obj, _del_pre_hook);
634    elm_widget_theme_hook_set(obj, _theme_hook);
635    elm_widget_signal_emit_hook_set(obj, _signal_emit_hook);
636    elm_widget_signal_callback_add_hook_set(obj, _signal_callback_add_hook);
637    elm_widget_signal_callback_del_hook_set(obj, _signal_callback_del_hook);
638    elm_widget_can_focus_set(obj, EINA_FALSE);
639
640    wd->indicator_disabled = EINA_FALSE;
641    wd->horizontal = EINA_FALSE;
642    wd->min_obj_height = 0;
643    wd->max_grp_size = 0;
644    wd->items_count = 0;
645    wd->tot_items_count[0] = 0;
646    wd->tot_items_count[1] = 0;
647    wd->special_char = edje_object_data_get(wd->base, "special_char");
648    if(!wd->special_char)  wd->special_char = eina_stringshare_add("*");
649
650    wd->base = edje_object_add(e);
651    _elm_theme_object_set(obj, wd->base, "index", "base/vertical", "default");
652    elm_widget_resize_object_set(obj, wd->base);
653
654    o = evas_object_rectangle_add(e);
655    wd->event[0] = o;
656    evas_object_color_set(o, 0, 0, 0, 0);
657    minw = minh = 0;
658    elm_coords_finger_size_adjust(1, &minw, 1, &minh);
659    evas_object_size_hint_min_set(o, minw, minh);
660    edje_object_part_swallow(wd->base, "elm.swallow.event.0", o);
661    elm_widget_sub_object_add(obj, o);
662    evas_object_event_callback_add(obj, EVAS_CALLBACK_RESIZE, _index_object_resize, obj);
663    evas_object_event_callback_add(o, EVAS_CALLBACK_MOUSE_WHEEL, _wheel, obj);
664    evas_object_event_callback_add(o, EVAS_CALLBACK_MOUSE_DOWN, _mouse_down, obj);
665    evas_object_event_callback_add(o, EVAS_CALLBACK_MOUSE_UP, _mouse_up, obj);
666    evas_object_event_callback_add(o, EVAS_CALLBACK_MOUSE_MOVE, _mouse_move, obj);
667    evas_object_show(o);
668    if (edje_object_part_exists(wd->base, "elm.swallow.event.1"))
669      {
670         o = evas_object_rectangle_add(e);
671         wd->event[1] = o;
672         evas_object_color_set(o, 0, 0, 0, 0);
673         evas_object_size_hint_min_set(o, minw, minh);
674         edje_object_part_swallow(wd->base, "elm.swallow.event.1", o);
675         elm_widget_sub_object_add(obj, o);
676      }
677
678    wd->bx[0] = evas_object_box_add(e);
679    evas_object_box_layout_set(wd->bx[0], _layout, wd, NULL);
680    elm_widget_sub_object_add(obj, wd->bx[0]);
681    edje_object_part_swallow(wd->base, "elm.swallow.index.0", wd->bx[0]);
682    evas_object_show(wd->bx[0]);
683
684    if (edje_object_part_exists(wd->base, "elm.swallow.index.1"))
685      {
686         wd->bx[1] = evas_object_box_add(e);
687         evas_object_box_layout_set(wd->bx[1], _layout, wd, NULL);
688         elm_widget_sub_object_add(obj, wd->bx[1]);
689         edje_object_part_swallow(wd->base, "elm.swallow.index.1", wd->bx[1]);
690         evas_object_show(wd->bx[1]);
691      }
692
693    evas_object_smart_callbacks_descriptions_set(obj, _signals);
694    wd->min_1st_level_obj_height = MIN_OBJ_HEIGHT;
695
696    _mirrored_set(obj, elm_widget_mirrored_get(obj));
697    _sizing_eval(obj);
698    return obj;
699 }
700
701 static int
702 _group_count(Evas_Object *obj, int extraIndex, int adj_pos)
703 {
704    Widget_Data *wd = elm_widget_data_get(obj);
705    if (!wd) return 0;
706    int group_count = MIN_GRP_SIZE;
707    while(group_count <= wd->max_grp_size)
708      {
709         if(extraIndex <= wd->max_grp_size*adj_pos)
710           {
711              if(group_count*adj_pos>=extraIndex) return group_count;
712           }
713         else
714           return wd->max_grp_size;
715
716         group_count += MIN_GRP_SIZE;
717      }
718    return group_count;
719 }
720
721 static void
722 _index_process(Evas_Object *obj)
723 {
724    int extraIndex;
725    int j,i, group_count;
726    Eina_List *l;
727    Elm_Index_Item *it;
728    int count;
729    int n;
730
731    Widget_Data *wd = elm_widget_data_get(obj);
732    if (!wd) return;
733
734    if (wd->items_count == 0) return;
735
736    const int adj_pos = (wd->items_count-1)*0.5;
737    n = wd->tot_items_count[wd->level];
738    group_count = MIN_GRP_SIZE;
739
740    int *indx = (int*)calloc(n, sizeof(int));
741    if (!indx) return;
742
743    const int minh = wd->min_obj_height;
744    EINA_LIST_FOREACH(wd->items, l, it)
745      {
746         it->vis_letter = eina_stringshare_add(it->letter);
747         it->size =  minh;
748      }
749    int remainder;
750    int numberofparts;
751    int N = wd->items_count;
752
753    for (i=0;i<n;i++)
754      {
755         indx[i] = minh;
756      }
757    extraIndex=n-N;
758    if (extraIndex < 0)
759      {
760         free(indx);
761         indx = NULL;
762         return;
763      }
764
765    group_count = _group_count(obj, extraIndex, adj_pos);
766    if (group_count <= 0)
767      {
768         if (indx)
769           free(indx);
770         indx = NULL;
771         return;
772      }
773
774    PlacementPart place[adj_pos];
775    remainder = extraIndex%group_count;
776    numberofparts=(extraIndex/group_count)+(remainder == 0? 0: 1);
777
778    for (i=0;i<numberofparts; i++)
779      {
780         place[i].count=group_count+1;
781         count = (int)(((float)(i+1)/(float)(numberofparts+1))*N);
782         place[i].start= count +i*group_count-1;
783      }
784    if (remainder)
785      place[numberofparts-1].count=remainder+1;
786
787    for (i=0;i<numberofparts;i++)
788      {
789         for (j=0;j<place[i].count; j++)
790           {
791              indx[((place[i].start)+j)]= MIN_PIXEL_VALUE;
792           }
793         indx[(place[i].start+(place[i].count)/2)] = minh-place[i].count+1;
794      }
795    count = 0;
796    EINA_LIST_FOREACH(wd->items, l, it)
797      {
798         int size = indx[count];
799         count++;
800         if (size == minh)
801           {
802              it->vis_letter = eina_stringshare_add(it->letter);
803              continue;
804           }
805         else if (size == 1)
806           {
807              eina_stringshare_del(it->vis_letter);
808              it->vis_letter = eina_stringshare_add("");
809           }
810         else
811           {
812              eina_stringshare_del(it->vis_letter);
813              it->vis_letter = eina_stringshare_add(wd->special_char);
814           }
815         it->size = size;
816      }
817    if (indx)
818      {
819         free(indx);
820         indx = NULL;
821      }
822 }
823
824 EAPI void
825 elm_index_active_set(Evas_Object *obj, Eina_Bool active)
826 {
827    ELM_CHECK_WIDTYPE(obj, widtype);
828    Widget_Data *wd = elm_widget_data_get(obj);
829    if (!wd) return;
830    if (wd->active == active) return;
831    wd->active = active;
832    wd->level = 0;
833    if (wd->active)
834      {
835         _index_box_clear(obj, wd->bx[1], 1);
836         _index_process(obj);
837         _index_box_auto_fill(obj, wd->bx[0], 0);
838         edje_object_signal_emit(wd->base, "elm,state,active", "elm");
839      }
840    else
841      edje_object_signal_emit(wd->base, "elm,state,inactive", "elm");
842 }
843
844 EAPI Eina_Bool
845 elm_index_active_get(const Evas_Object *obj)
846 {
847    ELM_CHECK_WIDTYPE(obj, widtype) EINA_FALSE;
848    Widget_Data *wd = elm_widget_data_get(obj);
849    if (!wd) return EINA_FALSE;
850    return wd->active;
851 }
852
853 EAPI void
854 elm_index_item_level_set(Evas_Object *obj, int level)
855 {
856    ELM_CHECK_WIDTYPE(obj, widtype);
857    Widget_Data *wd = elm_widget_data_get(obj);
858    if (!wd) return;
859    if (wd->level == level) return;
860    wd->level = level;
861 }
862
863 EAPI int
864 elm_index_item_level_get(const Evas_Object *obj)
865 {
866    ELM_CHECK_WIDTYPE(obj, widtype) 0;
867    Widget_Data *wd = elm_widget_data_get(obj);
868    if (!wd) return 0;
869    return wd->level;
870 }
871
872 EAPI Elm_Object_Item *
873 elm_index_item_selected_get(const Evas_Object *obj, int level)
874 {
875    ELM_CHECK_WIDTYPE(obj, widtype) NULL;
876    Widget_Data *wd = elm_widget_data_get(obj);
877    Eina_List *l;
878    Elm_Index_Item *it;
879    if (!wd) return NULL;
880    EINA_LIST_FOREACH(wd->items, l, it)
881      {
882         if ((it->selected) && (it->level == level))
883           return (Elm_Object_Item *) it;
884      }
885    return NULL;
886 }
887
888 EAPI void
889 elm_index_item_append(Evas_Object *obj, const char *letter, const void *item)
890 {
891    ELM_CHECK_WIDTYPE(obj, widtype);
892    Widget_Data *wd = elm_widget_data_get(obj);
893    Elm_Index_Item *it;
894    if (!wd) return;
895    it = _item_new(obj, letter, item);
896    if (!it) return;
897    wd->items = eina_list_append(wd->items, it);
898    wd->tot_items_count[wd->level]++;
899    _index_box_clear(obj, wd->bx[wd->level], wd->level);
900 }
901
902 EAPI void
903 elm_index_item_prepend(Evas_Object *obj, const char *letter, const void *item)
904 {
905    ELM_CHECK_WIDTYPE(obj, widtype);
906    Widget_Data *wd = elm_widget_data_get(obj);
907    Elm_Index_Item *it;
908
909    if (!wd) return;
910    it = _item_new(obj, letter, item);
911    if (!it) return;
912    wd->items = eina_list_prepend(wd->items, it);
913    wd->tot_items_count[wd->level]++;
914    _index_box_clear(obj, wd->bx[wd->level], wd->level);
915 }
916
917 EAPI void
918 elm_index_item_append_relative(Evas_Object *obj, const char *letter, const void *item, const Elm_Object_Item *relative)
919 {
920    ELM_CHECK_WIDTYPE(obj, widtype);
921    Widget_Data *wd = elm_widget_data_get(obj);
922    Elm_Index_Item *it;
923    if (!wd) return;
924    if (!relative)
925      {
926         elm_index_item_append(obj, letter, item);
927         wd->tot_items_count[wd->level]++;
928         return;
929      }
930    it = _item_new(obj, letter, item);
931    if (!it) return;
932    wd->items = eina_list_append_relative(wd->items, it, relative);
933    wd->tot_items_count[wd->level]++;
934    _index_box_clear(obj, wd->bx[wd->level], wd->level);
935 }
936
937 EAPI void
938 elm_index_item_prepend_relative(Evas_Object *obj, const char *letter, const void *item, const Elm_Object_Item *relative)
939 {
940    ELM_CHECK_WIDTYPE(obj, widtype);
941    Widget_Data *wd = elm_widget_data_get(obj);
942    Elm_Index_Item *it;
943    if (!wd) return;
944    if (!relative)
945      {
946         elm_index_item_prepend(obj, letter, item);
947         wd->tot_items_count[wd->level]++;
948         return;
949      }
950    it = _item_new(obj, letter, item);
951    if (!it) return;
952    wd->items = eina_list_prepend_relative(wd->items, it, relative);
953    wd->tot_items_count[wd->level]++;
954    _index_box_clear(obj, wd->bx[wd->level], wd->level);
955 }
956
957 EAPI void
958 elm_index_item_sorted_insert(Evas_Object *obj, const char *letter, const void *item, Eina_Compare_Cb cmp_func, Eina_Compare_Cb cmp_data_func)
959 {
960    ELM_CHECK_WIDTYPE(obj, widtype);
961    Widget_Data *wd = elm_widget_data_get(obj);
962    Eina_List *lnear;
963    Elm_Index_Item *it;
964    int cmp;
965
966    if (!wd) return;
967    if (!(wd->items))
968      {
969         elm_index_item_append(obj, letter, item);
970         return;
971      }
972
973    it = _item_new(obj, letter, item);
974    if (!it) return;
975
976    lnear = eina_list_search_sorted_near_list(wd->items, cmp_func, it, &cmp);
977    if (cmp < 0)
978      wd->items =  eina_list_append_relative_list(wd->items, it, lnear);
979    else if (cmp > 0)
980      wd->items = eina_list_prepend_relative_list(wd->items, it, lnear);
981    else
982      {
983         /* If cmp_data_func is not provided, append a duplicated item */
984         if (!cmp_data_func)
985           wd->items =  eina_list_append_relative_list(wd->items, it, lnear);
986         else
987           {
988              Elm_Index_Item *p_it = eina_list_data_get(lnear);
989              if (cmp_data_func(p_it->base.data, it->base.data) >= 0)
990                p_it->base.data = it->base.data;
991              _item_free(it);
992              elm_widget_item_free(it);
993           }
994      }
995
996    _index_box_clear(obj, wd->bx[wd->level], wd->level);
997 }
998
999 EAPI void
1000 elm_index_item_del(Evas_Object *obj __UNUSED__, Elm_Object_Item *it)
1001 {
1002    elm_object_item_del(it);
1003 }
1004
1005 EAPI Elm_Object_Item *
1006 elm_index_item_find(Evas_Object *obj, const void *item)
1007 {
1008    ELM_CHECK_WIDTYPE(obj, widtype) NULL;
1009    Widget_Data *wd = elm_widget_data_get(obj);
1010    if (!wd) return NULL;
1011    return (Elm_Object_Item *) _item_find(obj, item);
1012 }
1013
1014 EAPI void
1015 elm_index_item_clear(Evas_Object *obj)
1016 {
1017    ELM_CHECK_WIDTYPE(obj, widtype);
1018    Widget_Data *wd = elm_widget_data_get(obj);
1019    Elm_Index_Item *it;
1020    Eina_List *l, *clear = NULL;
1021    if (!wd) return;
1022    _index_box_clear(obj, wd->bx[wd->level], wd->level);
1023    EINA_LIST_FOREACH(wd->items, l, it)
1024      {
1025         if (it->level != wd->level) continue;
1026         clear = eina_list_append(clear, it);
1027      }
1028    EINA_LIST_FREE(clear, it)
1029      {
1030         wd->tot_items_count[wd->level]--;
1031         _item_free(it);
1032         elm_widget_item_free(it);
1033      }
1034 }
1035
1036 EAPI void
1037 elm_index_item_go(Evas_Object *obj, int level)
1038 {
1039    ELM_CHECK_WIDTYPE(obj, widtype);
1040    Widget_Data *wd = elm_widget_data_get(obj);
1041    if (!wd) return;
1042    if(level == 0) _index_process(obj);
1043    _index_box_auto_fill(obj, wd->bx[0], 0);
1044    if (wd->level == 1) _index_box_auto_fill(obj, wd->bx[1], 1);
1045 }
1046
1047 EAPI void *
1048 elm_index_item_data_get(const Elm_Object_Item *it)
1049 {
1050    return elm_object_item_data_get(it);
1051 }
1052
1053 EAPI void
1054 elm_index_item_data_set(Elm_Object_Item *it, const void *data)
1055 {
1056    elm_object_item_data_set(it, (void *) data);
1057 }
1058
1059 EAPI void
1060 elm_index_indicator_disabled_set(Evas_Object *obj, Eina_Bool disabled)
1061 {
1062    ELM_CHECK_WIDTYPE(obj, widtype);
1063    Widget_Data *wd = elm_widget_data_get(obj);
1064    if (!wd) return;
1065
1066    disabled = !!disabled;
1067    if (wd->indicator_disabled == disabled) return;
1068    wd->indicator_disabled = disabled;
1069    if (!wd->items) return;
1070    if (disabled)
1071      edje_object_signal_emit(wd->base, "elm,indicator,state,inactive", "elm");
1072    else
1073      edje_object_signal_emit(wd->base, "elm,indicator,state,active", "elm");
1074 }
1075
1076 EAPI Eina_Bool
1077 elm_index_indicator_disabled_get(const Evas_Object *obj)
1078 {
1079    ELM_CHECK_WIDTYPE(obj, widtype) EINA_FALSE;
1080    Widget_Data *wd = elm_widget_data_get(obj);
1081    if (!wd) return EINA_FALSE;
1082
1083    return wd->indicator_disabled;
1084 }
1085
1086 EAPI void
1087 elm_index_item_del_cb_set(Elm_Object_Item *it, Evas_Smart_Cb func)
1088 {
1089    elm_object_item_del_cb_set(it, func);
1090 }
1091
1092 EAPI const char *
1093 elm_index_item_letter_get(const Elm_Object_Item *it)
1094 {
1095    ELM_OBJ_ITEM_CHECK_OR_RETURN(it, NULL);
1096    return ((Elm_Index_Item *) it)->letter;
1097 }
1098