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