src/lib/elm_index.c

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