EFL migration revision 67547
[framework/uifw/elementary.git] / tests / src / lib / elm_slider.c
1 #include <Elementary.h>
2 #include "elm_priv.h"
3
4 typedef struct _Widget_Data Widget_Data;
5
6 struct _Widget_Data
7 {
8    Evas_Object *slider;
9    Evas_Object *icon;
10    Evas_Object *end;
11    Evas_Object *spacer;
12
13    Ecore_Timer *delay;
14
15    Eina_Hash  *labels;
16    const char *units;
17    const char *indicator;
18
19    const char *(*indicator_format_func)(double val);
20    void (*indicator_format_free)(const char *str);
21
22    const char *(*units_format_func)(double val);
23    void (*units_format_free)(const char *str);
24
25    double val, val_min, val_max;
26    Evas_Coord size;
27
28    Eina_Bool horizontal : 1;
29    Eina_Bool inverted : 1;
30    Eina_Bool indicator_show : 1;
31    Eina_Bool spacer_down : 1;
32 };
33
34 #define ELM_SLIDER_INVERTED_FACTOR (-1.0)
35
36 static const char *widtype = NULL;
37 static void _del_hook(Evas_Object *obj);
38 static void _mirrored_set(Evas_Object *obj, Eina_Bool rtl);
39 static void _theme_hook(Evas_Object *obj);
40 static void _disable_hook(Evas_Object *obj);
41 static void _sizing_eval(Evas_Object *obj);
42 static void _changed_size_hints(void *data, Evas *e, Evas_Object *obj, void *event_info);
43 static void _sub_del(void *data, Evas_Object *obj, void *event_info);
44 static void _units_set(Evas_Object *obj);
45 static void _val_set(Evas_Object *obj);
46 static void _indicator_set(Evas_Object *obj);
47 static void _on_focus_hook(void *data, Evas_Object *obj);
48 static void _drag_up(void *data, Evas_Object *obj,
49                     const char *emission, const char *source);
50 static void _drag_down(void *data, Evas_Object *obj,
51                     const char *emission, const char *source);
52 static Eina_Bool _event_hook(Evas_Object *obj, Evas_Object *src,
53                              Evas_Callback_Type type, void *event_info);
54 static void _spacer_down_cb(void *data, Evas * e, Evas_Object * obj, void *event_info);
55 static void _spacer_move_cb(void *data, Evas * e, Evas_Object * obj, void *event_info);
56 static void _spacer_up_cb(void *data, Evas * e, Evas_Object * obj, void *event_info);
57
58 static const char SIG_CHANGED[] = "changed";
59 static const char SIG_DELAY_CHANGED[] = "delay,changed";
60 static const char SIG_DRAG_START[] = "slider,drag,start";
61 static const char SIG_DRAG_STOP[] = "slider,drag,stop";
62 static const Evas_Smart_Cb_Description _signals[] = {
63   {SIG_CHANGED, ""},
64   {SIG_DELAY_CHANGED, ""},
65   {SIG_DRAG_START, ""},
66   {SIG_DRAG_STOP, ""},
67   {NULL, NULL}
68 };
69
70 static Eina_Bool
71 _event_hook(Evas_Object *obj, Evas_Object *src __UNUSED__, Evas_Callback_Type type, void *event_info)
72 {
73    Evas_Event_Mouse_Wheel *mev;
74    Evas_Event_Key_Down *ev;
75    Widget_Data *wd;
76
77    wd = elm_widget_data_get(obj);
78    if (!wd) return EINA_FALSE;
79    if (elm_widget_disabled_get(obj)) return EINA_FALSE;
80
81    if (type == EVAS_CALLBACK_KEY_DOWN) goto key_down;
82    else if (type != EVAS_CALLBACK_MOUSE_WHEEL) return EINA_FALSE;
83
84    mev = event_info;
85    if (mev->event_flags & EVAS_EVENT_FLAG_ON_HOLD) return EINA_FALSE;
86    if (elm_widget_disabled_get(obj)) return EINA_FALSE;
87
88    if (mev->z < 0) _drag_up(obj, NULL, NULL, NULL);
89    else _drag_down(obj, NULL, NULL, NULL);
90    mev->event_flags |= EVAS_EVENT_FLAG_ON_HOLD;
91    return EINA_TRUE;
92
93   key_down:
94    ev = event_info;
95    if (ev->event_flags & EVAS_EVENT_FLAG_ON_HOLD) return EINA_FALSE;
96    if (elm_widget_disabled_get(obj)) return EINA_FALSE;
97    if ((!strcmp(ev->keyname, "Left"))
98        || (!strcmp(ev->keyname, "KP_Left")))
99      {
100         if (!wd->horizontal) return EINA_FALSE;
101         if (!wd->inverted) _drag_down(obj, NULL, NULL, NULL);
102         else _drag_up(obj, NULL, NULL, NULL);
103         ev->event_flags |= EVAS_EVENT_FLAG_ON_HOLD;
104         return EINA_TRUE;
105      }
106    else if ((!strcmp(ev->keyname, "Right"))
107             || (!strcmp(ev->keyname, "KP_Right")))
108      {
109         if (!wd->horizontal) return EINA_FALSE;
110         if (!wd->inverted) _drag_up(obj, NULL, NULL, NULL);
111         else _drag_down(obj, NULL, NULL, NULL);
112         ev->event_flags |= EVAS_EVENT_FLAG_ON_HOLD;
113         return EINA_TRUE;
114      }
115    else if ((!strcmp(ev->keyname, "Up")) || (!strcmp(ev->keyname, "KP_Up")))
116      {
117         if (wd->horizontal) return EINA_FALSE;
118         if (wd->inverted) _drag_up(obj, NULL, NULL, NULL);
119         else _drag_down(obj, NULL, NULL, NULL);
120         ev->event_flags |= EVAS_EVENT_FLAG_ON_HOLD;
121         return EINA_TRUE;
122      }
123    else if ((!strcmp(ev->keyname, "Down")) || (!strcmp(ev->keyname, "KP_Down")))
124      {
125         if (wd->horizontal) return EINA_FALSE;
126         if (wd->inverted) _drag_down(obj, NULL, NULL, NULL);
127         else _drag_up(obj, NULL, NULL, NULL);
128         ev->event_flags |= EVAS_EVENT_FLAG_ON_HOLD;
129         return EINA_TRUE;
130      }
131    else return EINA_FALSE;
132 }
133
134 static void
135 _del_hook(Evas_Object *obj)
136 {
137    Widget_Data *wd = elm_widget_data_get(obj);
138    if (!wd) return;
139    if (wd->labels) eina_hash_free(wd->labels);
140    if (wd->indicator) eina_stringshare_del(wd->units);
141    if (wd->delay) ecore_timer_del(wd->delay);
142    free(wd);
143 }
144
145 static void
146 _on_focus_hook(void *data __UNUSED__, Evas_Object *obj)
147 {
148    Widget_Data *wd = elm_widget_data_get(obj);
149    if (!wd) return;
150    if (elm_widget_focus_get(obj))
151      {
152         edje_object_signal_emit(wd->slider, "elm,action,focus", "elm");
153         evas_object_focus_set(wd->slider, EINA_TRUE);
154      }
155    else
156      {
157         edje_object_signal_emit(wd->slider, "elm,action,unfocus", "elm");
158         evas_object_focus_set(wd->slider, EINA_FALSE);
159      }
160 }
161
162 static void
163 _mirrored_set(Evas_Object *obj, Eina_Bool rtl)
164 {
165    Widget_Data *wd = elm_widget_data_get(obj);
166    if (!wd) return;
167    edje_object_mirrored_set(wd->slider, rtl);
168 }
169
170 static Eina_Bool
171 _labels_foreach_text_set(const Eina_Hash *hash __UNUSED__, const void *key, void *data, void *fdata)
172 {
173   Widget_Data *wd = fdata;
174
175   edje_object_part_text_set(wd->slider, key, data);
176
177   return 1;
178 }
179
180 static void
181 _theme_hook(Evas_Object *obj)
182 {
183    Widget_Data *wd = elm_widget_data_get(obj);
184    if (!wd) return;
185    _elm_widget_mirrored_reload(obj);
186    _mirrored_set(obj, elm_widget_mirrored_get(obj));
187    if (wd->horizontal)
188      _elm_theme_object_set(obj, wd->slider, "slider", "horizontal", elm_widget_style_get(obj));
189    else
190      _elm_theme_object_set(obj, wd->slider, "slider", "vertical", elm_widget_style_get(obj));
191    if (elm_widget_disabled_get(obj))
192      edje_object_signal_emit(wd->slider, "elm,state,disabled", "elm");
193    else
194      edje_object_signal_emit(wd->slider, "elm,state,enabled", "elm");
195    if (wd->icon)
196      {
197         edje_object_part_swallow(wd->slider, "elm.swallow.content", wd->icon);
198         edje_object_signal_emit(wd->slider, "elm,state,icon,visible", "elm");
199      }
200    if (wd->end)
201      edje_object_signal_emit(wd->slider, "elm,state,end,visible", "elm");
202    else
203      edje_object_signal_emit(wd->slider, "elm,state,end,hidden", "elm");
204    if (wd->labels)
205      {
206         eina_hash_foreach(wd->labels, _labels_foreach_text_set, wd);
207             edje_object_signal_emit(wd->slider, "elm,state,text,visible", "elm");
208      }
209
210    if (wd->units)
211      edje_object_signal_emit(wd->slider, "elm,state,units,visible", "elm");
212
213    if (wd->horizontal)
214      evas_object_size_hint_min_set(wd->spacer, (double)wd->size * elm_widget_scale_get(obj) * _elm_config->scale, 1);
215    else
216      evas_object_size_hint_min_set(wd->spacer, 1, (double)wd->size * elm_widget_scale_get(obj) * _elm_config->scale);
217
218    if (wd->inverted)
219      edje_object_signal_emit(wd->slider, "elm,state,inverted,on", "elm");
220
221    edje_object_part_swallow(wd->slider, "elm.swallow.bar", wd->spacer);
222    _units_set(obj);
223    _indicator_set(obj);
224    edje_object_message_signal_process(wd->slider);
225    edje_object_scale_set(wd->slider, elm_widget_scale_get(obj) * _elm_config->scale);
226    _val_set(obj);
227    _sizing_eval(obj);
228 }
229
230 static void
231 _disable_hook(Evas_Object *obj)
232 {
233    Widget_Data *wd = elm_widget_data_get(obj);
234    if (!wd) return;
235    if (elm_widget_disabled_get(obj))
236      edje_object_signal_emit(wd->slider, "elm,state,disabled", "elm");
237    else
238      edje_object_signal_emit(wd->slider, "elm,state,enabled", "elm");
239 }
240
241 static void
242 _sizing_eval(Evas_Object *obj)
243 {
244    Widget_Data *wd = elm_widget_data_get(obj);
245    Evas_Coord minw = -1, minh = -1, maxw = -1, maxh = -1;
246    if (!wd) return;
247    elm_coords_finger_size_adjust(1, &minw, 1, &minh);
248    edje_object_size_min_restricted_calc(wd->slider, &minw, &minh, minw, minh);
249    elm_coords_finger_size_adjust(1, &minw, 1, &minh);
250    evas_object_size_hint_min_set(obj, minw, minh);
251    evas_object_size_hint_max_set(obj, maxw, maxh);
252 }
253
254 static void
255 _changed_size_hints(void *data, Evas *e __UNUSED__, Evas_Object *obj, void *event_info __UNUSED__)
256 {
257    Widget_Data *wd = elm_widget_data_get(data);
258    if (!wd) return;
259    if ((obj != wd->icon) && (obj != wd->end)) return;
260    _sizing_eval(data);
261 }
262
263 static void
264 _sub_del(void *data __UNUSED__, Evas_Object *obj, void *event_info)
265 {
266    Widget_Data *wd = elm_widget_data_get(obj);
267    Evas_Object *sub = event_info;
268    if (!wd) return;
269    if (sub == wd->icon)
270      {
271         edje_object_signal_emit(wd->slider, "elm,state,icon,hidden", "elm");
272         evas_object_event_callback_del_full
273            (sub, EVAS_CALLBACK_CHANGED_SIZE_HINTS, _changed_size_hints, obj);
274         wd->icon = NULL;
275         edje_object_message_signal_process(wd->slider);
276         _sizing_eval(obj);
277      }
278    if (sub == wd->end)
279      {
280         edje_object_signal_emit(wd->slider, "elm,state,end,hidden", "elm");
281         evas_object_event_callback_del_full(sub,
282                                             EVAS_CALLBACK_CHANGED_SIZE_HINTS,
283                                             _changed_size_hints, obj);
284         wd->end = NULL;
285         edje_object_message_signal_process(wd->slider);
286         _sizing_eval(obj);
287      }
288 }
289
290 static Eina_Bool
291 _delay_change(void *data)
292 {
293    Widget_Data *wd = elm_widget_data_get(data);
294    if (!wd) return ECORE_CALLBACK_CANCEL;
295    wd->delay = NULL;
296    evas_object_smart_callback_call(data, SIG_DELAY_CHANGED, NULL);
297    return ECORE_CALLBACK_CANCEL;
298 }
299
300 static void
301 _val_fetch(Evas_Object *obj)
302 {
303    Eina_Bool rtl;
304    Widget_Data *wd = elm_widget_data_get(obj);
305    double posx = 0.0, posy = 0.0, pos = 0.0, val;
306    if (!wd) return;
307    edje_object_part_drag_value_get(wd->slider, "elm.dragable.slider",
308                                    &posx, &posy);
309    if (wd->horizontal) pos = posx;
310    else pos = posy;
311
312    rtl = elm_widget_mirrored_get(obj);
313    if ((!rtl && wd->inverted) || (rtl &&
314                                   ((!wd->horizontal && wd->inverted) ||
315                                    (wd->horizontal && !wd->inverted)))) pos = 1.0 - pos;
316    val = (pos * (wd->val_max - wd->val_min)) + wd->val_min;
317    if (val != wd->val)
318      {
319         wd->val = val;
320         evas_object_smart_callback_call(obj, SIG_CHANGED, NULL);
321         if (wd->delay) ecore_timer_del(wd->delay);
322         wd->delay = ecore_timer_add(0.2, _delay_change, obj);
323      }
324 }
325
326 static void
327 _val_set(Evas_Object *obj)
328 {
329    Eina_Bool rtl;
330    Widget_Data *wd = elm_widget_data_get(obj);
331    double pos;
332    if (!wd) return;
333    if (wd->val_max > wd->val_min)
334      pos = (wd->val - wd->val_min) / (wd->val_max - wd->val_min);
335    else
336      pos = 0.0;
337    if (pos < 0.0) pos = 0.0;
338    else if (pos > 1.0) pos = 1.0;
339
340    rtl = elm_widget_mirrored_get(obj);
341    if ((!rtl && wd->inverted) || (rtl &&
342                                   ((!wd->horizontal && wd->inverted) ||
343                                    (wd->horizontal && !wd->inverted)))) pos = 1.0 - pos;
344    edje_object_part_drag_value_set(wd->slider, "elm.dragable.slider", pos, pos);
345 }
346
347 static void
348 _units_set(Evas_Object *obj)
349 {
350    Widget_Data *wd = elm_widget_data_get(obj);
351    if (!wd) return;
352    if (wd->units_format_func)
353      {
354         const char *buf;
355         buf = wd->units_format_func(wd->val);
356         edje_object_part_text_set(wd->slider, "elm.units", buf);
357         if (wd->units_format_free) wd->units_format_free(buf);
358      }
359    else if (wd->units)
360      {
361         char buf[1024];
362
363         snprintf(buf, sizeof(buf), wd->units, wd->val);
364         edje_object_part_text_set(wd->slider, "elm.units", buf);
365      }
366    else
367      edje_object_part_text_set(wd->slider, "elm.units", NULL);
368 }
369
370 static void
371 _indicator_set(Evas_Object *obj)
372 {
373    Widget_Data *wd = elm_widget_data_get(obj);
374    if (!wd) return;
375    if (wd->indicator_format_func)
376      {
377         const char *buf;
378         buf = wd->indicator_format_func(wd->val);
379         edje_object_part_text_set(wd->slider, "elm.dragable.slider:elm.indicator", buf);
380         if (wd->indicator_format_free) wd->indicator_format_free(buf);
381      }
382    else if (wd->indicator)
383      {
384         char buf[1024];
385         snprintf(buf, sizeof(buf), wd->indicator, wd->val);
386         edje_object_part_text_set(wd->slider, "elm.dragable.slider:elm.indicator", buf);
387      }
388    else
389      edje_object_part_text_set(wd->slider, "elm.dragable.slider:elm.indicator", NULL);
390 }
391
392 static void
393 _drag(void *data, Evas_Object *obj __UNUSED__, const char *emission __UNUSED__, const char *source __UNUSED__)
394 {
395    Widget_Data *wd = elm_widget_data_get((Evas_Object*)data);
396    if (elm_widget_disabled_get(data)) return;
397    _val_fetch(data);
398    _units_set(data);
399    _indicator_set(data);
400    edje_object_signal_emit(wd->slider, "elm,state,drag", "elm");
401    edje_object_message_signal_process(wd->slider);
402 }
403
404 static void
405 _drag_start(void *data, Evas_Object *obj __UNUSED__, const char *emission __UNUSED__, const char *source __UNUSED__)
406 {
407    Widget_Data *wd = elm_widget_data_get((Evas_Object*)data);
408    if (elm_widget_disabled_get(data)) return;
409    _val_fetch(data);
410    evas_object_smart_callback_call(data, SIG_DRAG_START, NULL);
411    _units_set(data);
412    _indicator_set(data);
413    elm_widget_scroll_freeze_push(data);
414    edje_object_signal_emit(wd->slider, "elm,state,drag", "elm");
415    edje_object_message_signal_process(wd->slider);
416 }
417
418 static void
419 _drag_stop(void *data, Evas_Object *obj __UNUSED__, const char *emission __UNUSED__, const char *source __UNUSED__)
420 {
421    if (elm_widget_disabled_get(data)) return;
422    _val_fetch(data);
423    evas_object_smart_callback_call(data, SIG_DRAG_STOP, NULL);
424    _units_set(data);
425    _indicator_set(data);
426    elm_widget_scroll_freeze_pop(data);
427 }
428
429 static void
430 _drag_step(void *data, Evas_Object *obj __UNUSED__, const char *emission __UNUSED__, const char *source __UNUSED__)
431 {
432    if (elm_widget_disabled_get(data)) return;
433    _val_fetch(data);
434    _units_set(data);
435    _indicator_set(data);
436 }
437
438 static void
439 _drag_up(void *data, Evas_Object *obj __UNUSED__, const char *emission __UNUSED__, const char *source __UNUSED__)
440 {
441    double step;
442    Widget_Data *wd;
443    if (elm_widget_disabled_get(data)) return;
444
445    wd = elm_widget_data_get(data);
446    step = 0.05;
447
448    if (wd->inverted) step *= ELM_SLIDER_INVERTED_FACTOR;
449
450    edje_object_part_drag_step(wd->slider, "elm.dragable.slider", step, step);
451 }
452
453 static void
454 _drag_down(void *data, Evas_Object *obj __UNUSED__, const char *emission __UNUSED__, const char *source __UNUSED__)
455 {
456    double step;
457    Widget_Data *wd;
458    if (elm_widget_disabled_get(data)) return;
459
460    wd = elm_widget_data_get(data);
461    step = -0.05;
462
463    if (wd->inverted) step *= ELM_SLIDER_INVERTED_FACTOR;
464
465    edje_object_part_drag_step(wd->slider, "elm.dragable.slider", step, step);
466 }
467
468 static void
469 _spacer_down_cb(void *data, Evas *e __UNUSED__, Evas_Object *obj __UNUSED__, void *event_info)
470 {
471    Widget_Data *wd = elm_widget_data_get(data);
472    Evas_Event_Mouse_Down *ev = event_info;
473    Evas_Coord x, y, w, h;
474    double button_x = 0.0, button_y = 0.0;
475    if (elm_widget_disabled_get(data)) return;
476
477    wd->spacer_down = EINA_TRUE;
478    evas_object_geometry_get(wd->spacer, &x, &y, &w, &h);
479    if (wd->horizontal)
480      {
481         button_x = ((double)ev->canvas.x - (double)x) / (double)w;
482         if (button_x > 1) button_x = 1;
483         if (button_x < 0) button_x = 0;
484      }
485    else
486      {
487         button_y = ((double)ev->canvas.y - (double)y) / (double)h;
488         if (button_y > 1) button_y = 1;
489         if (button_y < 0) button_y = 0;
490      }
491    edje_object_part_drag_value_set(wd->slider, "elm.dragable.slider", button_x, button_y);
492    _val_fetch(data);
493    evas_object_smart_callback_call(data, SIG_DRAG_START, NULL);
494    _units_set(data);
495    _indicator_set(data);
496    elm_widget_scroll_freeze_push(data);
497    edje_object_signal_emit(wd->slider, "elm,state,indicator,show", "elm");
498 }
499
500 static void
501 _spacer_move_cb(void *data, Evas *e __UNUSED__, Evas_Object *obj __UNUSED__, void *event_info)
502 {
503    Widget_Data *wd = elm_widget_data_get(data);
504    Evas_Event_Mouse_Move *ev = event_info;
505    Evas_Coord x, y, w, h;
506    double button_x = 0.0, button_y = 0.0;
507    if (elm_widget_disabled_get(data)) return;
508
509    if  (wd->spacer_down)
510      {
511         evas_object_geometry_get(wd->spacer, &x, &y, &w, &h);
512         if (wd->horizontal)
513           {
514              button_x = ((double)ev->cur.canvas.x - (double)x) / (double)w;
515              if (button_x > 1) button_x = 1;
516              if (button_x < 0) button_x = 0;
517           }
518         else
519           {
520              button_y = ((double)ev->cur.canvas.y - (double)y) / (double)h;
521              if (button_y > 1) button_y = 1;
522              if (button_y < 0) button_y = 0;
523           }
524         edje_object_part_drag_value_set(wd->slider, "elm.dragable.slider", button_x, button_y);
525         _val_fetch(data);
526         _units_set(data);
527         _indicator_set(data);
528      }
529 }
530
531 static void
532 _spacer_up_cb(void *data, Evas *e __UNUSED__, Evas_Object *obj __UNUSED__, void *event_info __UNUSED__)
533 {
534    Widget_Data *wd = elm_widget_data_get(data);
535    if (elm_widget_disabled_get(data)) return;
536
537    if (wd->spacer_down) wd->spacer_down = EINA_FALSE;
538    _val_fetch(data);
539    evas_object_smart_callback_call(data, SIG_DRAG_STOP, NULL);
540    _units_set(data);
541    _indicator_set(data);
542    elm_widget_scroll_freeze_pop(data);
543    edje_object_signal_emit(wd->slider, "elm,state,indicator,hide", "elm");
544 }
545
546 static void
547 _elm_slider_label_set(Evas_Object *obj, const char *part, const char *label)
548 {
549    ELM_CHECK_WIDTYPE(obj, widtype);
550    Widget_Data *wd = elm_widget_data_get(obj);
551    const char* default_part = "elm.text";
552    const char* real_part;
553
554    if (!wd) return;
555
556    if (!part)
557      real_part = default_part;
558    else
559      real_part = part;
560
561    if (wd->labels)
562      {
563        const char* old_label;
564
565        old_label = eina_hash_find(wd->labels, real_part);
566        if (!old_label)
567            eina_hash_add(wd->labels, real_part, eina_stringshare_add(label));
568        else
569          {
570            eina_stringshare_ref(old_label);
571            eina_hash_modify(wd->labels, real_part, eina_stringshare_add(label));
572            eina_stringshare_del(old_label);
573          }
574      }
575
576    if (label)
577      {
578         edje_object_signal_emit(wd->slider, "elm,state,text,visible", "elm");
579         edje_object_message_signal_process(wd->slider);
580      }
581    else
582      {
583         edje_object_signal_emit(wd->slider, "elm,state,text,hidden", "elm");
584         edje_object_message_signal_process(wd->slider);
585      }
586
587    edje_object_part_text_set(wd->slider, real_part, label);
588    _sizing_eval(obj);
589 }
590
591 static const char *
592 _elm_slider_label_get(const Evas_Object *obj, const char *part)
593 {
594    ELM_CHECK_WIDTYPE(obj, widtype) NULL;
595    Widget_Data *wd = elm_widget_data_get(obj);
596
597    if (!wd) return NULL;
598    if (!wd->labels) return NULL;
599
600    if (!part) 
601      return eina_hash_find(wd->labels, "elm.text");
602    return eina_hash_find(wd->labels, part);
603 }
604
605 static void
606 _icon_set(Evas_Object *obj, Evas_Object *icon)
607 {
608    Widget_Data *wd = elm_widget_data_get(obj);
609    if (!wd) return;
610    if (wd->icon == icon) return;
611    if (wd->icon) evas_object_del(wd->icon);
612    wd->icon = icon;
613    if (icon)
614      {
615         elm_widget_sub_object_add(obj, icon);
616         evas_object_event_callback_add(icon, EVAS_CALLBACK_CHANGED_SIZE_HINTS,
617                                        _changed_size_hints, obj);
618         edje_object_part_swallow(wd->slider, "elm.swallow.icon", icon);
619         edje_object_signal_emit(wd->slider, "elm,state,icon,visible", "elm");
620         edje_object_message_signal_process(wd->slider);
621      }
622    _sizing_eval(obj);
623 }
624
625 static Evas_Object *
626 _icon_unset(Evas_Object *obj)
627 {
628    Widget_Data *wd = elm_widget_data_get(obj);
629    Evas_Object *ret = NULL;
630    if (!wd) return NULL;
631    if (wd->icon)
632      {
633         elm_widget_sub_object_del(obj, wd->icon);
634         evas_object_event_callback_del_full(wd->icon,
635                                             EVAS_CALLBACK_CHANGED_SIZE_HINTS,
636                                             _changed_size_hints, obj);
637         ret = wd->icon;
638         edje_object_part_unswallow(wd->slider, wd->icon);
639         edje_object_signal_emit(wd->slider, "elm,state,icon,hidden", "elm");
640         wd->icon = NULL;
641         _sizing_eval(obj);
642      }
643    return ret;
644 }
645
646 static void
647 _end_set(Evas_Object *obj, Evas_Object *end)
648 {
649    Widget_Data *wd = elm_widget_data_get(obj);
650    if (!wd) return;
651    if (wd->end == end) return;
652    if (wd->end) evas_object_del(wd->end);
653    wd->end = end;
654    if (end)
655      {
656         elm_widget_sub_object_add(obj, end);
657         evas_object_event_callback_add(end, EVAS_CALLBACK_CHANGED_SIZE_HINTS,
658                                        _changed_size_hints, obj);
659         edje_object_part_swallow(wd->slider, "elm.swallow.end", end);
660         edje_object_signal_emit(wd->slider, "elm,state,end,visible", "elm");
661         edje_object_message_signal_process(wd->slider);
662      }
663    _sizing_eval(obj);
664 }
665
666 static Evas_Object *
667 _end_unset(Evas_Object *obj)
668 {
669    Widget_Data *wd = elm_widget_data_get(obj);
670    Evas_Object *ret = NULL;
671    if (!wd) return NULL;
672    if (wd->end)
673      {
674         elm_widget_sub_object_del(obj, wd->end);
675         evas_object_event_callback_del_full(wd->end,
676                                             EVAS_CALLBACK_CHANGED_SIZE_HINTS,
677                                             _changed_size_hints, obj);
678         ret = wd->end;
679         edje_object_part_unswallow(wd->slider, wd->end);
680         edje_object_signal_emit(wd->slider, "elm,state,end,hidden", "elm");
681         wd->end = NULL;
682         _sizing_eval(obj);
683      }
684    return ret;
685 }
686
687 static void
688 _content_set_hook(Evas_Object *obj, const char *part, Evas_Object *content)
689 {
690    ELM_CHECK_WIDTYPE(obj, widtype);
691    if (!part || !strcmp(part, "icon"))
692      _icon_set(obj, content);
693    else if (!strcmp(part, "end"))
694      _end_set(obj, content);
695 }
696
697 static Evas_Object *
698 _content_get_hook(const Evas_Object *obj, const char *part)
699 {
700    ELM_CHECK_WIDTYPE(obj, widtype) NULL;
701    Widget_Data *wd;
702    wd = elm_widget_data_get(obj);
703    if (!wd) return NULL;
704    if (!part || !strcmp(part, "icon"))
705      return wd->icon;
706    else if (!strcmp(part, "end"))
707      return wd->end;
708    return NULL;
709 }
710
711 static Evas_Object *
712 _content_unset_hook(Evas_Object *obj, const char *part)
713 {
714    ELM_CHECK_WIDTYPE(obj, widtype) NULL;
715    if (!part || !strcmp(part, "icon"))
716      return _icon_unset(obj);
717    else if (!strcmp(part, "end"))
718      return _end_unset(obj);
719    return NULL;
720 }
721
722 static void
723 _hash_labels_free_cb(void* label)
724 {
725   if (label)
726     eina_stringshare_del(label);
727 }
728
729 EAPI Evas_Object *
730 elm_slider_add(Evas_Object *parent)
731 {
732    Evas_Object *obj;
733    Evas *e;
734    Widget_Data *wd;
735
736    ELM_WIDGET_STANDARD_SETUP(wd, Widget_Data, parent, e, obj, NULL);
737
738    ELM_SET_WIDTYPE(widtype, "slider");
739    elm_widget_type_set(obj, "slider");
740    elm_widget_sub_object_add(parent, obj);
741    elm_widget_on_focus_hook_set(obj, _on_focus_hook, NULL);
742    elm_widget_data_set(obj, wd);
743    elm_widget_del_hook_set(obj, _del_hook);
744    elm_widget_theme_hook_set(obj, _theme_hook);
745    elm_widget_disable_hook_set(obj, _disable_hook);
746    elm_widget_can_focus_set(obj, EINA_TRUE);
747    elm_widget_event_hook_set(obj, _event_hook);
748    elm_widget_text_set_hook_set(obj, _elm_slider_label_set);
749    elm_widget_text_get_hook_set(obj, _elm_slider_label_get);
750    elm_widget_content_set_hook_set(obj, _content_set_hook);
751    elm_widget_content_get_hook_set(obj, _content_get_hook);
752    elm_widget_content_unset_hook_set(obj, _content_unset_hook);
753
754    wd->horizontal = EINA_TRUE;
755    wd->indicator_show = EINA_TRUE;
756    wd->val = 0.0;
757    wd->val_min = 0.0;
758    wd->val_max = 1.0;
759    wd->labels = eina_hash_string_superfast_new(_hash_labels_free_cb);
760
761    wd->slider = edje_object_add(e);
762    _elm_theme_object_set(obj, wd->slider, "slider", "horizontal", "default");
763    elm_widget_resize_object_set(obj, wd->slider);
764    edje_object_signal_callback_add(wd->slider, "drag", "*", _drag, obj);
765    edje_object_signal_callback_add(wd->slider, "drag,start", "*", _drag_start, obj);
766    edje_object_signal_callback_add(wd->slider, "drag,stop", "*", _drag_stop, obj);
767    edje_object_signal_callback_add(wd->slider, "drag,step", "*", _drag_step, obj);
768    edje_object_signal_callback_add(wd->slider, "drag,page", "*", _drag_stop, obj);
769    //   edje_object_signal_callback_add(wd->slider, "drag,set", "*", _drag_stop, obj);
770    edje_object_part_drag_value_set(wd->slider, "elm.dragable.slider", 0.0, 0.0);
771
772    wd->spacer = evas_object_rectangle_add(e);
773    evas_object_color_set(wd->spacer, 0, 0, 0, 0);
774    evas_object_pass_events_set(wd->spacer, EINA_TRUE);
775    elm_widget_sub_object_add(obj, wd->spacer);
776    edje_object_part_swallow(wd->slider, "elm.swallow.bar", wd->spacer);
777    evas_object_event_callback_add(wd->spacer, EVAS_CALLBACK_MOUSE_DOWN, _spacer_down_cb, obj);
778    evas_object_event_callback_add(wd->spacer, EVAS_CALLBACK_MOUSE_MOVE, _spacer_move_cb, obj);
779    evas_object_event_callback_add(wd->spacer, EVAS_CALLBACK_MOUSE_UP, _spacer_up_cb, obj);
780    evas_object_smart_callback_add(obj, "sub-object-del", _sub_del, obj);
781
782    _mirrored_set(obj, elm_widget_mirrored_get(obj));
783    _sizing_eval(obj);
784
785    // TODO: convert Elementary to subclassing of Evas_Smart_Class
786    // TODO: and save some bytes, making descriptions per-class and not instance!
787    evas_object_smart_callbacks_descriptions_set(obj, _signals);
788    return obj;
789 }
790
791 EAPI void
792 elm_slider_label_set(Evas_Object *obj, const char *label)
793 {
794    _elm_slider_label_set(obj, NULL, label);
795 }
796
797 EAPI const char *
798 elm_slider_label_get(const Evas_Object *obj)
799 {
800    return _elm_slider_label_get(obj, NULL);
801 }
802
803 EAPI void
804 elm_slider_icon_set(Evas_Object *obj, Evas_Object *icon)
805 {
806    _content_set_hook(obj, "icon", icon);
807 }
808
809 EAPI Evas_Object *
810 elm_slider_icon_unset(Evas_Object *obj)
811 {
812    return _content_unset_hook(obj, "icon");
813 }
814
815 EAPI Evas_Object *
816 elm_slider_icon_get(const Evas_Object *obj)
817 {
818    return _content_get_hook(obj, "icon");
819 }
820
821 EAPI void
822 elm_slider_span_size_set(Evas_Object *obj, Evas_Coord size)
823 {
824    ELM_CHECK_WIDTYPE(obj, widtype);
825    Widget_Data *wd = elm_widget_data_get(obj);
826    if (!wd) return;
827    if (wd->size == size) return;
828    wd->size = size;
829    if (wd->horizontal)
830      evas_object_size_hint_min_set(wd->spacer, (double)wd->size * elm_widget_scale_get(obj) * _elm_config->scale, 1);
831    else
832      evas_object_size_hint_min_set(wd->spacer, 1, (double)wd->size * elm_widget_scale_get(obj) * _elm_config->scale);
833    if (wd->indicator_show)
834      edje_object_signal_emit(wd->slider, "elm,state,val,show", "elm");
835    else
836      edje_object_signal_emit(wd->slider, "elm,state,val,hide", "elm");
837    edje_object_part_swallow(wd->slider, "elm.swallow.bar", wd->spacer);
838    _sizing_eval(obj);
839 }
840
841 EAPI Evas_Coord
842 elm_slider_span_size_get(const Evas_Object *obj)
843 {
844    ELM_CHECK_WIDTYPE(obj, widtype) 0;
845    Widget_Data *wd = elm_widget_data_get(obj);
846    if (!wd) return 0;
847    return wd->size;
848 }
849
850 EAPI void
851 elm_slider_unit_format_set(Evas_Object *obj, const char *units)
852 {
853    ELM_CHECK_WIDTYPE(obj, widtype);
854    Widget_Data *wd = elm_widget_data_get(obj);
855    if (!wd) return;
856    eina_stringshare_replace(&wd->units, units);
857    if (units)
858      {
859         edje_object_signal_emit(wd->slider, "elm,state,units,visible", "elm");
860         edje_object_message_signal_process(wd->slider);
861      }
862    else
863      {
864         edje_object_signal_emit(wd->slider, "elm,state,units,hidden", "elm");
865         edje_object_message_signal_process(wd->slider);
866      }
867    _units_set(obj);
868    _sizing_eval(obj);
869 }
870
871 EAPI const char *
872 elm_slider_unit_format_get(const Evas_Object *obj)
873 {
874    ELM_CHECK_WIDTYPE(obj, widtype) NULL;
875    Widget_Data *wd = elm_widget_data_get(obj);
876    if (!wd) return NULL;
877    return wd->units;
878 }
879
880 EAPI void
881 elm_slider_indicator_format_set(Evas_Object *obj, const char *indicator)
882 {
883    ELM_CHECK_WIDTYPE(obj, widtype);
884    Widget_Data *wd = elm_widget_data_get(obj);
885    if (!wd) return;
886    eina_stringshare_replace(&wd->indicator, indicator);
887    _indicator_set(obj);
888 }
889
890 EAPI const char *
891 elm_slider_indicator_format_get(const Evas_Object *obj)
892 {
893    ELM_CHECK_WIDTYPE(obj, widtype) NULL;
894    Widget_Data *wd = elm_widget_data_get(obj);
895    if (!wd) return NULL;
896    return wd->indicator;
897 }
898
899 EAPI void
900 elm_slider_horizontal_set(Evas_Object *obj, Eina_Bool horizontal)
901 {
902    ELM_CHECK_WIDTYPE(obj, widtype);
903    Widget_Data *wd = elm_widget_data_get(obj);
904    if (!wd) return;
905    horizontal = !!horizontal;
906    if (wd->horizontal == horizontal) return;
907    wd->horizontal = horizontal;
908    _theme_hook(obj);
909 }
910
911 EAPI Eina_Bool
912 elm_slider_horizontal_get(const Evas_Object *obj)
913 {
914    ELM_CHECK_WIDTYPE(obj, widtype) EINA_FALSE;
915    Widget_Data *wd = elm_widget_data_get(obj);
916    if (!wd) return EINA_FALSE;
917    return wd->horizontal;
918 }
919
920 EAPI void
921 elm_slider_min_max_set(Evas_Object *obj, double min, double max)
922 {
923    ELM_CHECK_WIDTYPE(obj, widtype);
924    Widget_Data *wd = elm_widget_data_get(obj);
925    if (!wd) return;
926    if ((wd->val_min == min) && (wd->val_max == max)) return;
927    wd->val_min = min;
928    wd->val_max = max;
929    if (wd->val < wd->val_min) wd->val = wd->val_min;
930    if (wd->val > wd->val_max) wd->val = wd->val_max;
931    _val_set(obj);
932    _units_set(obj);
933    _indicator_set(obj);
934 }
935
936 EAPI void
937 elm_slider_min_max_get(const Evas_Object *obj, double *min, double *max)
938 {
939    if (min) *min = 0.0;
940    if (max) *max = 0.0;
941    ELM_CHECK_WIDTYPE(obj, widtype);
942    Widget_Data *wd = elm_widget_data_get(obj);
943    if (!wd) return;
944    if (min) *min = wd->val_min;
945    if (max) *max = wd->val_max;
946 }
947
948 EAPI void
949 elm_slider_value_set(Evas_Object *obj, double val)
950 {
951    ELM_CHECK_WIDTYPE(obj, widtype);
952    Widget_Data *wd = elm_widget_data_get(obj);
953    if (!wd) return;
954    if (wd->val == val) return;
955    wd->val = val;
956    if (wd->val < wd->val_min) wd->val = wd->val_min;
957    if (wd->val > wd->val_max) wd->val = wd->val_max;
958    _val_set(obj);
959    _units_set(obj);
960    _indicator_set(obj);
961 }
962
963 EAPI double
964 elm_slider_value_get(const Evas_Object *obj)
965 {
966    ELM_CHECK_WIDTYPE(obj, widtype) 0.0;
967    Widget_Data *wd = elm_widget_data_get(obj);
968    if (!wd) return 0.0;
969    return wd->val;
970 }
971
972 EAPI void
973 elm_slider_inverted_set(Evas_Object *obj, Eina_Bool inverted)
974 {
975    ELM_CHECK_WIDTYPE(obj, widtype);
976    Widget_Data *wd = elm_widget_data_get(obj);
977    if (!wd) return;
978    inverted = !!inverted;
979    if (wd->inverted == inverted) return;
980    wd->inverted = inverted;
981    if (wd->inverted)
982      edje_object_signal_emit(wd->slider, "elm,state,inverted,on", "elm");
983    else
984      edje_object_signal_emit(wd->slider, "elm,state,inverted,off", "elm");
985    edje_object_message_signal_process(wd->slider);
986    _val_set(obj);
987    _units_set(obj);
988    _indicator_set(obj);
989 }
990
991 EAPI Eina_Bool
992 elm_slider_inverted_get(const Evas_Object *obj)
993 {
994    ELM_CHECK_WIDTYPE(obj, widtype) EINA_FALSE;
995    Widget_Data *wd = elm_widget_data_get(obj);
996    if (!wd) return EINA_FALSE;
997    return wd->inverted;
998 }
999
1000 EAPI void
1001 elm_slider_indicator_format_function_set(Evas_Object *obj, const char *(*func)(double val), void (*free_func)(const char *str))
1002 {
1003    ELM_CHECK_WIDTYPE(obj, widtype);
1004    Widget_Data *wd = elm_widget_data_get(obj);
1005    if (!wd) return;
1006    wd->indicator_format_func = func;
1007    wd->indicator_format_free = free_func;
1008    _indicator_set(obj);
1009 }
1010
1011 EAPI void
1012 elm_slider_units_format_function_set(Evas_Object *obj, const char *(*func)(double val), void (*free_func)(const char *str))
1013 {
1014    ELM_CHECK_WIDTYPE(obj, widtype);
1015    Widget_Data *wd = elm_widget_data_get(obj);
1016    if (!wd) return;
1017    wd->units_format_func = func;
1018    wd->units_format_free = free_func;
1019    _indicator_set(obj);
1020 }
1021
1022 EAPI void
1023 elm_slider_end_set(Evas_Object *obj, Evas_Object *end)
1024 {
1025    _content_set_hook(obj, "end", end);
1026 }
1027
1028 EAPI Evas_Object *
1029 elm_slider_end_unset(Evas_Object *obj)
1030 {
1031    return _content_unset_hook(obj, "end");
1032 }
1033
1034 EAPI Evas_Object *
1035 elm_slider_end_get(const Evas_Object *obj)
1036 {
1037    return _content_get_hook(obj, "end");
1038 }
1039
1040 EAPI void
1041 elm_slider_indicator_show_set(Evas_Object *obj, Eina_Bool show)
1042 {
1043    ELM_CHECK_WIDTYPE(obj, widtype);
1044    Widget_Data *wd = elm_widget_data_get(obj);
1045    if (show) {
1046         wd->indicator_show = EINA_TRUE;
1047         edje_object_signal_emit(wd->slider, "elm,state,val,show", "elm");
1048    }
1049    else {
1050         wd->indicator_show = EINA_FALSE;
1051         edje_object_signal_emit(wd->slider, "elm,state,val,hide", "elm");
1052    }
1053 }
1054
1055 EAPI Eina_Bool
1056 elm_slider_indicator_show_get(const Evas_Object *obj)
1057 {
1058    ELM_CHECK_WIDTYPE(obj, widtype) EINA_FALSE;
1059    Widget_Data *wd = elm_widget_data_get(obj);
1060    if (!wd) return EINA_FALSE;
1061    return wd->indicator_show;
1062 }
1063