Merge branch 'master' into svn_merge
[framework/uifw/elementary.git] / src / lib / elm_slider.c
1 #include <Elementary.h>
2 #include "elm_priv.h"
3
4 /**
5  * @defgroup Slider Slider
6  * @ingroup Elementary
7  *
8  * The slider adds a dragable “slider” widget for selecting the value of
9  * something within a range.
10  *
11  *
12  * A slider can be horizontal or vertical. It can contain an Icon and has a
13  * primary label as well as a units label (that is formatted with floating
14  * point values and thus accepts a printf-style format string, like
15  * “%1.2f units”. There is also an indicator string that may be somewhere
16  * else (like on the slider itself) that also accepts a format string like
17  * units. Label, Icon Unit and Indicator strings/objects are optional.
18  *
19  * A slider may be inverted which means values invert, with high vales being
20  * on the left or top and low values on the right or bottom (as opposed to
21  * normally being low on the left or top and high on the bottom and right).
22  *
23  * The slider should have its minimum and maximum values set by the
24  * application with  elm_slider_min_max_set() and value should also be set by
25  * the application before use with  elm_slider_value_set(). The span of the
26  * slider is its length (horizontally or vertically). This will be scaled by
27  * the object or applications scaling factor. At any point code can query the
28  * slider for its value with elm_slider_value_get().
29  *
30  * Signals that you can add callbacks for are:
31  *
32  * "changed" - Whenever the slider value is changed by the user.
33  * "slider,drag,start" - dragging the slider indicator around has started
34  * "slider,drag,stop" - dragging the slider indicator around has stopped
35  * "delay,changed" - A short time after the value is changed by the user.
36  *                   This will be called only when the user stops dragging for
37  *                   a very short period or when they release their
38  *                   finger/mouse, so it avoids possibly expensive reactions to
39  *                   the value change.
40  */
41
42 typedef struct _Widget_Data Widget_Data;
43
44 struct _Widget_Data
45 {
46    Evas_Object *slider;
47    Evas_Object *icon;
48    Evas_Object *end;
49    Evas_Object *spacer;
50
51    Ecore_Timer *delay;
52
53    const char *label;
54    const char *units;
55    const char *indicator;
56
57    const char *(*indicator_format_func)(double val);
58    void (*indicator_format_free)(const char *str);
59
60    const char *(*units_format_func)(double val);
61    void (*units_format_free)(const char *str);
62
63    double val, val_min, val_max;
64    Evas_Coord size;
65
66    Eina_Bool horizontal : 1;
67    Eina_Bool inverted : 1;
68    Eina_Bool indicator_show : 1;
69    int feed_cnt;
70 };
71
72 #define ELM_SLIDER_INVERTED_FACTOR (-1.0)
73
74 static const char *widtype = NULL;
75 static void _del_hook(Evas_Object *obj);
76 static void _mirrored_set(Evas_Object *obj, Eina_Bool rtl);
77 static void _theme_hook(Evas_Object *obj);
78 static void _disable_hook(Evas_Object *obj);
79 static void _sizing_eval(Evas_Object *obj);
80 static void _changed_size_hints(void *data, Evas *e, Evas_Object *obj, void *event_info);
81 static void _sub_del(void *data, Evas_Object *obj, void *event_info);
82 static void _units_set(Evas_Object *obj);
83 static void _val_set(Evas_Object *obj);
84 static void _indicator_set(Evas_Object *obj);
85 static void _on_focus_hook(void *data, Evas_Object *obj);
86 static void _drag_up(void *data, Evas_Object *obj,
87                     const char *emission, const char *source);
88 static void _drag_down(void *data, Evas_Object *obj,
89                     const char *emission, const char *source);
90 static Eina_Bool _event_hook(Evas_Object *obj, Evas_Object *src,
91                              Evas_Callback_Type type, void *event_info);
92 static void _spacer_cb(void *data, Evas * e, Evas_Object * obj, void *event_info);
93
94 static const char SIG_CHANGED[] = "changed";
95 static const char SIG_DELAY_CHANGED[] = "delay,changed";
96 static const char SIG_DRAG_START[] = "slider,drag,start";
97 static const char SIG_DRAG_STOP[] = "slider,drag,stop";
98 static const Evas_Smart_Cb_Description _signals[] = {
99   {SIG_CHANGED, ""},
100   {SIG_DELAY_CHANGED, ""},
101   {SIG_DRAG_START, ""},
102   {SIG_DRAG_STOP, ""},
103   {NULL, NULL}
104 };
105
106 static Eina_Bool
107 _event_hook(Evas_Object *obj, Evas_Object *src __UNUSED__, Evas_Callback_Type type, void *event_info)
108 {
109    Evas_Event_Mouse_Wheel *mev;
110    Evas_Event_Key_Down *ev;
111    Widget_Data *wd;
112
113    wd = elm_widget_data_get(obj);
114    if (!wd) return EINA_FALSE;
115    if (elm_widget_disabled_get(obj)) return EINA_FALSE;
116
117    if (type == EVAS_CALLBACK_KEY_DOWN) goto key_down;
118    else if (type != EVAS_CALLBACK_MOUSE_WHEEL) return EINA_FALSE;
119
120    mev = event_info;
121    if (mev->event_flags & EVAS_EVENT_FLAG_ON_HOLD) return EINA_FALSE;
122    if (elm_widget_disabled_get(obj)) return EINA_FALSE;
123
124    if (mev->z < 0) _drag_up(obj, NULL, NULL, NULL);
125    else _drag_down(obj, NULL, NULL, NULL);
126    mev->event_flags |= EVAS_EVENT_FLAG_ON_HOLD;
127    return EINA_TRUE;
128
129   key_down:
130    ev = event_info;
131    if (ev->event_flags & EVAS_EVENT_FLAG_ON_HOLD) return EINA_FALSE;
132    if (elm_widget_disabled_get(obj)) return EINA_FALSE;
133    if ((!strcmp(ev->keyname, "Left"))
134        || (!strcmp(ev->keyname, "KP_Left")))
135      {
136         if (!wd->horizontal) return EINA_FALSE;
137         if (!wd->inverted) _drag_down(obj, NULL, NULL, NULL);
138         else _drag_up(obj, NULL, NULL, NULL);
139         ev->event_flags |= EVAS_EVENT_FLAG_ON_HOLD;
140         return EINA_TRUE;
141      }
142    else if ((!strcmp(ev->keyname, "Right"))
143             || (!strcmp(ev->keyname, "KP_Right")))
144      {
145         if (!wd->horizontal) return EINA_FALSE;
146         if (!wd->inverted) _drag_up(obj, NULL, NULL, NULL);
147         else _drag_down(obj, NULL, NULL, NULL);
148         ev->event_flags |= EVAS_EVENT_FLAG_ON_HOLD;
149         return EINA_TRUE;
150      }
151    else if ((!strcmp(ev->keyname, "Up")) || (!strcmp(ev->keyname, "KP_Up")))
152      {
153         if (wd->horizontal) return EINA_FALSE;
154         if (wd->inverted) _drag_up(obj, NULL, NULL, NULL);
155         else _drag_down(obj, NULL, NULL, NULL);
156         ev->event_flags |= EVAS_EVENT_FLAG_ON_HOLD;
157         return EINA_TRUE;
158      }
159    else if ((!strcmp(ev->keyname, "Down")) || (!strcmp(ev->keyname, "KP_Down")))
160      {
161         if (wd->horizontal) return EINA_FALSE;
162         if (wd->inverted) _drag_down(obj, NULL, NULL, NULL);
163         else _drag_up(obj, NULL, NULL, NULL);
164         ev->event_flags |= EVAS_EVENT_FLAG_ON_HOLD;
165         return EINA_TRUE;
166      }
167    else return EINA_FALSE;
168 }
169
170 static void
171 _del_hook(Evas_Object *obj)
172 {
173    Widget_Data *wd = elm_widget_data_get(obj);
174    if (!wd) return;
175    if (wd->label) eina_stringshare_del(wd->label);
176    if (wd->indicator) eina_stringshare_del(wd->units);
177    if (wd->delay) ecore_timer_del(wd->delay);
178    free(wd);
179 }
180
181 static void
182 _on_focus_hook(void *data __UNUSED__, Evas_Object *obj)
183 {
184    Widget_Data *wd = elm_widget_data_get(obj);
185    if (!wd) return;
186    if (elm_widget_focus_get(obj))
187      {
188         edje_object_signal_emit(wd->slider, "elm,action,focus", "elm");
189         evas_object_focus_set(wd->slider, EINA_TRUE);
190      }
191    else
192      {
193         edje_object_signal_emit(wd->slider, "elm,action,unfocus", "elm");
194         evas_object_focus_set(wd->slider, EINA_FALSE);
195      }
196 }
197
198 static void
199 _mirrored_set(Evas_Object *obj, Eina_Bool rtl)
200 {
201    Widget_Data *wd = elm_widget_data_get(obj);
202    if (!wd) return;
203    edje_object_mirrored_set(wd->slider, rtl);
204 }
205
206 static void
207 _theme_hook(Evas_Object *obj)
208 {
209    Widget_Data *wd = elm_widget_data_get(obj);
210    if (!wd) return;
211    _elm_widget_mirrored_reload(obj);
212    _mirrored_set(obj, elm_widget_mirrored_get(obj));
213    if (wd->horizontal)
214      _elm_theme_object_set(obj, wd->slider, "slider", "horizontal", elm_widget_style_get(obj));
215    else
216      _elm_theme_object_set(obj, wd->slider, "slider", "vertical", elm_widget_style_get(obj));
217    if (elm_widget_disabled_get(obj))
218      edje_object_signal_emit(wd->slider, "elm,state,disabled", "elm");
219    else
220      edje_object_signal_emit(wd->slider, "elm,state,enabled", "elm");
221    if (wd->icon)
222      {
223         edje_object_part_swallow(wd->slider, "elm.swallow.content", wd->icon);
224         edje_object_signal_emit(wd->slider, "elm,state,icon,visible", "elm");
225      }
226    if (wd->end)
227      edje_object_signal_emit(wd->slider, "elm,state,end,visible", "elm");
228    else
229      edje_object_signal_emit(wd->slider, "elm,state,end,hidden", "elm");
230    if (wd->label)
231      {
232         edje_object_part_text_set(wd->slider, "elm.text", wd->label);
233         edje_object_signal_emit(wd->slider, "elm,state,text,visible", "elm");
234      }
235
236    if (wd->units)
237      edje_object_signal_emit(wd->slider, "elm,state,units,visible", "elm");
238
239    if (wd->horizontal)
240      evas_object_size_hint_min_set(wd->spacer, (double)wd->size * elm_widget_scale_get(obj) * _elm_config->scale, 1);
241    else
242      evas_object_size_hint_min_set(wd->spacer, 1, (double)wd->size * elm_widget_scale_get(obj) * _elm_config->scale);
243
244    if (wd->inverted)
245      edje_object_signal_emit(wd->slider, "elm,state,inverted,on", "elm");
246
247    edje_object_part_swallow(wd->slider, "elm.swallow.bar", wd->spacer);
248    _units_set(obj);
249    _indicator_set(obj);
250    edje_object_message_signal_process(wd->slider);
251    edje_object_scale_set(wd->slider, elm_widget_scale_get(obj) * _elm_config->scale);
252    _val_set(obj);
253    _sizing_eval(obj);
254 }
255
256 static void
257 _disable_hook(Evas_Object *obj)
258 {
259    Widget_Data *wd = elm_widget_data_get(obj);
260    if (!wd) return;
261    if (elm_widget_disabled_get(obj))
262      edje_object_signal_emit(wd->slider, "elm,state,disabled", "elm");
263    else
264      edje_object_signal_emit(wd->slider, "elm,state,enabled", "elm");
265 }
266
267 static void
268 _sizing_eval(Evas_Object *obj)
269 {
270    Widget_Data *wd = elm_widget_data_get(obj);
271    Evas_Coord minw = -1, minh = -1, maxw = -1, maxh = -1;
272    if (!wd) return;
273    elm_coords_finger_size_adjust(1, &minw, 1, &minh);
274    edje_object_size_min_restricted_calc(wd->slider, &minw, &minh, minw, minh);
275    elm_coords_finger_size_adjust(1, &minw, 1, &minh);
276    evas_object_size_hint_min_set(obj, minw, minh);
277    evas_object_size_hint_max_set(obj, maxw, maxh);
278 }
279
280 static void
281 _changed_size_hints(void *data, Evas *e __UNUSED__, Evas_Object *obj, void *event_info __UNUSED__)
282 {
283    Widget_Data *wd = elm_widget_data_get(data);
284    if (!wd) return;
285    if ((obj != wd->icon) && (obj != wd->end)) return;
286    _sizing_eval(data);
287 }
288
289 static void
290 _sub_del(void *data __UNUSED__, Evas_Object *obj, void *event_info)
291 {
292    Widget_Data *wd = elm_widget_data_get(obj);
293    Evas_Object *sub = event_info;
294    if (!wd) return;
295    if (sub == wd->icon)
296      {
297         edje_object_signal_emit(wd->slider, "elm,state,icon,hidden", "elm");
298         evas_object_event_callback_del_full
299            (sub, EVAS_CALLBACK_CHANGED_SIZE_HINTS, _changed_size_hints, obj);
300         wd->icon = NULL;
301         edje_object_message_signal_process(wd->slider);
302         _sizing_eval(obj);
303      }
304    if (sub == wd->end)
305      {
306         edje_object_signal_emit(wd->slider, "elm,state,end,hidden", "elm");
307         evas_object_event_callback_del_full(sub,
308                                             EVAS_CALLBACK_CHANGED_SIZE_HINTS,
309                                             _changed_size_hints, obj);
310         wd->end = NULL;
311         edje_object_message_signal_process(wd->slider);
312         _sizing_eval(obj);
313      }
314 }
315
316 static Eina_Bool
317 _delay_change(void *data)
318 {
319    Widget_Data *wd = elm_widget_data_get(data);
320    if (!wd) return ECORE_CALLBACK_CANCEL;
321    wd->delay = NULL;
322    evas_object_smart_callback_call(data, SIG_DELAY_CHANGED, NULL);
323    return ECORE_CALLBACK_CANCEL;
324 }
325
326 static void
327 _val_fetch(Evas_Object *obj)
328 {
329    Eina_Bool rtl;
330    Widget_Data *wd = elm_widget_data_get(obj);
331    double posx = 0.0, posy = 0.0, pos = 0.0, val;
332    if (!wd) return;
333    edje_object_part_drag_value_get(wd->slider, "elm.dragable.slider",
334                                    &posx, &posy);
335    if (wd->horizontal) pos = posx;
336    else pos = posy;
337
338    rtl = elm_widget_mirrored_get(obj);
339    if ((!rtl && wd->inverted) || (rtl &&
340                                   ((!wd->horizontal && wd->inverted) ||
341                                    (wd->horizontal && !wd->inverted)))) pos = 1.0 - pos;
342    val = (pos * (wd->val_max - wd->val_min)) + wd->val_min;
343    if (val != wd->val)
344      {
345         wd->val = val;
346         evas_object_smart_callback_call(obj, SIG_CHANGED, NULL);
347         if (wd->delay) ecore_timer_del(wd->delay);
348         wd->delay = ecore_timer_add(0.2, _delay_change, obj);
349      }
350 }
351
352 static void
353 _val_set(Evas_Object *obj)
354 {
355    Eina_Bool rtl;
356    Widget_Data *wd = elm_widget_data_get(obj);
357    double pos;
358    if (!wd) return;
359    if (wd->val_max > wd->val_min)
360      pos = (wd->val - wd->val_min) / (wd->val_max - wd->val_min);
361    else
362      pos = 0.0;
363    if (pos < 0.0) pos = 0.0;
364    else if (pos > 1.0) pos = 1.0;
365
366    rtl = elm_widget_mirrored_get(obj);
367    if ((!rtl && wd->inverted) || (rtl &&
368                                   ((!wd->horizontal && wd->inverted) ||
369                                    (wd->horizontal && !wd->inverted)))) pos = 1.0 - pos;
370    edje_object_part_drag_value_set(wd->slider, "elm.dragable.slider", pos, pos);
371 }
372
373 static void
374 _units_set(Evas_Object *obj)
375 {
376    Widget_Data *wd = elm_widget_data_get(obj);
377    if (!wd) return;
378    if (wd->units_format_func)
379      {
380         const char *buf;
381         buf = wd->units_format_func(wd->val);
382         edje_object_part_text_set(wd->slider, "elm.units", buf);
383         if (wd->units_format_free) wd->units_format_free(buf);
384      }
385    else if (wd->units)
386      {
387         char buf[1024];
388
389         snprintf(buf, sizeof(buf), wd->units, wd->val);
390         edje_object_part_text_set(wd->slider, "elm.units", buf);
391      }
392    else
393      edje_object_part_text_set(wd->slider, "elm.units", NULL);
394 }
395
396 static void
397 _indicator_set(Evas_Object *obj)
398 {
399    Widget_Data *wd = elm_widget_data_get(obj);
400    if (!wd) return;
401    if (wd->indicator_format_func)
402      {
403         const char *buf;
404         buf = wd->indicator_format_func(wd->val);
405         edje_object_part_text_set(wd->slider, "elm.dragable.slider:elm.indicator", buf);
406         if (wd->indicator_format_free) wd->indicator_format_free(buf);
407      }
408    else if (wd->indicator)
409      {
410         char buf[1024];
411         snprintf(buf, sizeof(buf), wd->indicator, wd->val);
412         edje_object_part_text_set(wd->slider, "elm.dragable.slider:elm.indicator", buf);
413      }
414    else
415      edje_object_part_text_set(wd->slider, "elm.dragable.slider:elm.indicator", NULL);
416 }
417
418 static void
419 _drag(void *data, Evas_Object *obj __UNUSED__, const char *emission __UNUSED__, const char *source __UNUSED__)
420 {
421    Widget_Data *wd = elm_widget_data_get((Evas_Object*)data);
422    if (elm_widget_disabled_get(data)) return;
423    edje_object_signal_emit(wd->slider, "elm,state,drag", "elm");
424    edje_object_message_signal_process(wd->slider);
425    _val_fetch(data);
426    _units_set(data);
427    _indicator_set(data);
428 }
429
430 static void
431 _drag_start(void *data, Evas_Object *obj __UNUSED__, const char *emission __UNUSED__, const char *source __UNUSED__)
432 {
433    Widget_Data *wd = elm_widget_data_get((Evas_Object*)data);
434    if (elm_widget_disabled_get(data)) return;
435    _val_fetch(data);
436    evas_object_smart_callback_call(data, SIG_DRAG_START, NULL);
437    edje_object_signal_emit(wd->slider, "elm,state,drag", "elm");
438    edje_object_message_signal_process(wd->slider); 
439    _units_set(data);
440    _indicator_set(data);
441    elm_widget_scroll_freeze_push(data);
442 }
443
444 static void
445 _drag_stop(void *data, Evas_Object *obj __UNUSED__, const char *emission __UNUSED__, const char *source __UNUSED__)
446 {
447    if (elm_widget_disabled_get(data)) return;
448    _val_fetch(data);
449    evas_object_smart_callback_call(data, SIG_DRAG_STOP, NULL);
450    _units_set(data);
451    _indicator_set(data);
452    elm_widget_scroll_freeze_pop(data);
453 }
454
455 static void
456 _drag_step(void *data, Evas_Object *obj __UNUSED__, const char *emission __UNUSED__, const char *source __UNUSED__)
457 {
458    if (elm_widget_disabled_get(data)) return;
459    _val_fetch(data);
460    _units_set(data);
461    _indicator_set(data);
462 }
463
464 static void
465 _drag_up(void *data, Evas_Object *obj __UNUSED__, const char *emission __UNUSED__, const char *source __UNUSED__)
466 {
467    double step;
468    Widget_Data *wd;
469    if (elm_widget_disabled_get(data)) return;
470
471    wd = elm_widget_data_get(data);
472    step = 0.05;
473
474    if (wd->inverted) step *= ELM_SLIDER_INVERTED_FACTOR;
475
476    edje_object_part_drag_step(wd->slider, "elm.dragable.slider", step, step);
477 }
478
479 static void
480 _drag_down(void *data, Evas_Object *obj __UNUSED__, const char *emission __UNUSED__, const char *source __UNUSED__)
481 {
482    double step;
483    Widget_Data *wd;
484    if (elm_widget_disabled_get(data)) return;
485
486    wd = elm_widget_data_get(data);
487    step = -0.05;
488
489    if (wd->inverted) step *= ELM_SLIDER_INVERTED_FACTOR;
490
491    edje_object_part_drag_step(wd->slider, "elm.dragable.slider", step, step);
492 }
493
494 static void
495 _spacer_cb(void *data, Evas *e, Evas_Object *obj __UNUSED__, void *event_info)
496 {
497    Widget_Data *wd = elm_widget_data_get(data);
498    Evas_Event_Mouse_Down *ev = event_info;
499    Evas_Coord x, y, w, h;
500    double button_x, button_y;
501    if (elm_widget_disabled_get(data)) return;
502
503    evas_object_geometry_get(wd->spacer, &x, &y, &w, &h);
504    edje_object_part_drag_value_get(wd->slider, "elm.dragable.slider", &button_x, &button_y);
505    if (wd->horizontal)
506      {
507         button_x = ((double)ev->canvas.x - (double)x) / (double)w;
508         if (button_x > 1) button_x = 1;
509         if (button_x < 0) button_x = 0;
510      }
511    else
512      {
513         button_y = ((double)ev->canvas.y - (double)y) / (double)h;
514         if (button_y > 1) button_y = 1;
515         if (button_y < 0) button_y = 0;
516      }
517    edje_object_part_drag_value_set(wd->slider, "elm.dragable.slider", button_x, button_y);
518    evas_event_feed_mouse_cancel(e, 0, NULL);
519    wd->feed_cnt ++;
520    if(wd->feed_cnt < 3)
521    evas_event_feed_mouse_down(e, 1, EVAS_BUTTON_NONE, 0, NULL);
522    wd->feed_cnt = 0;
523 }
524
525 static void
526 _elm_slider_label_set(Evas_Object *obj, const char *item, const char *label)
527 {
528    ELM_CHECK_WIDTYPE(obj, widtype);
529    Widget_Data *wd = elm_widget_data_get(obj);
530    if (item && strcmp(item, "default")) return;
531    if (!wd) return;
532    eina_stringshare_replace(&wd->label, label);
533    if (label)
534      {
535         edje_object_signal_emit(wd->slider, "elm,state,text,visible", "elm");
536         edje_object_message_signal_process(wd->slider);
537      }
538    else
539      {
540         edje_object_signal_emit(wd->slider, "elm,state,text,hidden", "elm");
541         edje_object_message_signal_process(wd->slider);
542      }
543    edje_object_part_text_set(wd->slider, "elm.text", label);
544    _sizing_eval(obj);
545 }
546
547 static const char *
548 _elm_slider_label_get(const Evas_Object *obj, const char *item)
549 {
550    ELM_CHECK_WIDTYPE(obj, widtype) NULL;
551    Widget_Data *wd = elm_widget_data_get(obj);
552    if (item && strcmp(item, "default")) return NULL;
553    if (!wd) return NULL;
554    return wd->label;
555 }
556
557 /**
558  * Add a new slider to the parent
559  *
560  * @param parent The parent object
561  * @return The new object or NULL if it cannot be created
562  *
563  * @ingroup Slider
564  */
565 EAPI Evas_Object *
566 elm_slider_add(Evas_Object *parent)
567 {
568    Evas_Object *obj;
569    Evas *e;
570    Widget_Data *wd;
571
572    ELM_WIDGET_STANDARD_SETUP(wd, Widget_Data, parent, e, obj, NULL);
573
574    ELM_SET_WIDTYPE(widtype, "slider");
575    elm_widget_type_set(obj, "slider");
576    elm_widget_sub_object_add(parent, obj);
577    elm_widget_on_focus_hook_set(obj, _on_focus_hook, NULL);
578    elm_widget_data_set(obj, wd);
579    elm_widget_del_hook_set(obj, _del_hook);
580    elm_widget_theme_hook_set(obj, _theme_hook);
581    elm_widget_disable_hook_set(obj, _disable_hook);
582    elm_widget_can_focus_set(obj, EINA_TRUE);
583    elm_widget_event_hook_set(obj, _event_hook);
584    elm_widget_text_set_hook_set(obj, _elm_slider_label_set);
585    elm_widget_text_get_hook_set(obj, _elm_slider_label_get);
586
587    wd->horizontal = EINA_TRUE;
588    wd->indicator_show = EINA_TRUE;
589    wd->feed_cnt = 0;
590    wd->val = 0.0;
591    wd->val_min = 0.0;
592    wd->val_max = 1.0;
593
594    wd->slider = edje_object_add(e);
595    _elm_theme_object_set(obj, wd->slider, "slider", "horizontal", "default");
596    elm_widget_resize_object_set(obj, wd->slider);
597    edje_object_signal_callback_add(wd->slider, "drag", "*", _drag, obj);
598    edje_object_signal_callback_add(wd->slider, "drag,start", "*", _drag_start, obj);
599    edje_object_signal_callback_add(wd->slider, "drag,stop", "*", _drag_stop, obj);
600    edje_object_signal_callback_add(wd->slider, "drag,step", "*", _drag_step, obj);
601    edje_object_signal_callback_add(wd->slider, "drag,page", "*", _drag_stop, obj);
602    //   edje_object_signal_callback_add(wd->slider, "drag,set", "*", _drag_stop, obj);
603    edje_object_part_drag_value_set(wd->slider, "elm.dragable.slider", 0.0, 0.0);
604
605    wd->spacer = evas_object_rectangle_add(e);
606    evas_object_color_set(wd->spacer, 0, 0, 0, 0);
607    evas_object_pass_events_set(wd->spacer, EINA_TRUE);
608    elm_widget_sub_object_add(obj, wd->spacer);
609    edje_object_part_swallow(wd->slider, "elm.swallow.bar", wd->spacer);
610    evas_object_event_callback_add(wd->spacer, EVAS_CALLBACK_MOUSE_DOWN, _spacer_cb, obj);
611    evas_object_smart_callback_add(obj, "sub-object-del", _sub_del, obj);
612
613    _mirrored_set(obj, elm_widget_mirrored_get(obj));
614    _sizing_eval(obj);
615
616    // TODO: convert Elementary to subclassing of Evas_Smart_Class
617    // TODO: and save some bytes, making descriptions per-class and not instance!
618    evas_object_smart_callbacks_descriptions_set(obj, _signals);
619    return obj;
620 }
621
622 /**
623  * Set the label of the slider
624  *
625  * @param obj The slider object
626  * @param label The text label string in UTF-8
627  *
628  * @ingroup Slider
629  */
630 EAPI void
631 elm_slider_label_set(Evas_Object *obj, const char *label)
632 {
633    _elm_slider_label_set(obj, NULL, label);
634 }
635
636 /**
637  * Get the label of the slider
638  *
639  * @param obj The slider object
640  * @return The text label string in UTF-8
641  *
642  * @ingroup Slider
643  */
644 EAPI const char *
645 elm_slider_label_get(const Evas_Object *obj)
646 {
647    return _elm_slider_label_get(obj, NULL);
648 }
649
650 /**
651  * Set the icon object (leftmost widget) of the slider object.
652  *
653  * Once the icon object is set, a previously set one will be deleted.
654  * If you want to keep that old content object, use the
655  * elm_slider_icon_unset() function.
656  *
657  * @param obj The slider object
658  * @param icon The icon object
659  *
660  * @note If the object being set does not have minimum size hints set,
661  * it won't get properly displayed.
662  *
663  * @ingroup Slider
664  */
665 EAPI void
666 elm_slider_icon_set(Evas_Object *obj, Evas_Object *icon)
667 {
668    ELM_CHECK_WIDTYPE(obj, widtype);
669    Widget_Data *wd = elm_widget_data_get(obj);
670    if (!wd) return;
671    if (wd->icon == icon) return;
672    if (wd->icon) evas_object_del(wd->icon);
673    wd->icon = icon;
674    if (icon)
675      {
676         elm_widget_sub_object_add(obj, icon);
677         evas_object_event_callback_add(icon, EVAS_CALLBACK_CHANGED_SIZE_HINTS,
678                                        _changed_size_hints, obj);
679         edje_object_part_swallow(wd->slider, "elm.swallow.icon", icon);
680         edje_object_signal_emit(wd->slider, "elm,state,icon,visible", "elm");
681         edje_object_message_signal_process(wd->slider);
682      }
683    _sizing_eval(obj);
684 }
685
686 /**
687  * Unset the leftmost widget of the slider, unparenting and
688  * returning it.
689  *
690  * @param obj The slider object
691  * @return the previously set icon sub-object of this slider, on
692  * success.
693  *
694  * @see elm_slider_icon_set()
695  *
696  * @ingroup Slider
697  */
698 EAPI Evas_Object *
699 elm_slider_icon_unset(Evas_Object *obj)
700 {
701    ELM_CHECK_WIDTYPE(obj, widtype) NULL;
702    Widget_Data *wd = elm_widget_data_get(obj);
703    Evas_Object *ret = NULL;
704    if (!wd) return NULL;
705    if (wd->icon)
706      {
707         elm_widget_sub_object_del(obj, wd->icon);
708         ret = wd->icon;
709         edje_object_part_unswallow(wd->slider, wd->icon);
710         edje_object_signal_emit(wd->slider, "elm,state,icon,hidden", "elm");
711         wd->icon = NULL;
712         _sizing_eval(obj);
713      }
714    return ret;
715 }
716
717 /**
718  * Get the icon object of the slider object. This object is owned by
719  * the scrolled entry and should not be modified.
720  *
721  * @param obj The slider object
722  * @return The icon object
723  *
724  * @ingroup Slider
725  */
726 EAPI Evas_Object *
727 elm_slider_icon_get(const Evas_Object *obj)
728 {
729    ELM_CHECK_WIDTYPE(obj, widtype) NULL;
730    Widget_Data *wd = elm_widget_data_get(obj);
731    if (!wd) return NULL;
732    return wd->icon;
733 }
734
735 /**
736  * Set the length of the dragable region of the slider
737  *
738  * This sets the minimum width or height (depending on orientation) of the
739  * area of the slider that allows the slider to be dragged around. This in
740  * turn affects the objects minimum size (along with icon label and unit
741  * text). Note that this will also get multiplied by the scale factor.
742  *
743  * @param obj The slider object
744  * @param size The length of the slider area
745  *
746  * @ingroup Slider
747  */
748 EAPI void
749 elm_slider_span_size_set(Evas_Object *obj, Evas_Coord size)
750 {
751    ELM_CHECK_WIDTYPE(obj, widtype);
752    Widget_Data *wd = elm_widget_data_get(obj);
753    if (!wd) return;
754    if (wd->size == size) return;
755    wd->size = size;
756    if (wd->horizontal)
757      evas_object_size_hint_min_set(wd->spacer, (double)wd->size * elm_widget_scale_get(obj) * _elm_config->scale, 1);
758    else
759      evas_object_size_hint_min_set(wd->spacer, 1, (double)wd->size * elm_widget_scale_get(obj) * _elm_config->scale);
760    if (wd->indicator_show)
761      edje_object_signal_emit(wd->slider, "elm,state,val,show", "elm");
762    else
763      edje_object_signal_emit(wd->slider, "elm,state,val,hide", "elm");
764    edje_object_part_swallow(wd->slider, "elm.swallow.bar", wd->spacer);
765    _sizing_eval(obj);
766 }
767
768 /**
769  * Get the length of the dragable region of the slider
770  *
771  * This gets the minimum width or height (depending on orientation) of
772  * the area of the slider that allows the slider to be dragged
773  * around. Note that this will also get multiplied by the scale
774  * factor.
775  *
776  * @param obj The slider object
777  * @return The length of the slider area
778  *
779  * @ingroup Slider
780  */
781 EAPI Evas_Coord
782 elm_slider_span_size_get(const Evas_Object *obj)
783 {
784    ELM_CHECK_WIDTYPE(obj, widtype) 0;
785    Widget_Data *wd = elm_widget_data_get(obj);
786    if (!wd) return 0;
787    return wd->size;
788 }
789
790 /**
791  * Set the format string of the unit area
792  *
793  * If NULL, this disabls the unit area display. If not it sets the format
794  * string for the unit text. The unit text is provided a floating point
795  * value, so the unit text can display up to 1 floating point value. Note that
796  * this is optional. Use a format string such as "%1.2f meters" for example.
797  *
798  * @param obj The slider object
799  * @param units The format string for the units display
800  *
801  * @ingroup Slider
802  */
803 EAPI void
804 elm_slider_unit_format_set(Evas_Object *obj, const char *units)
805 {
806    ELM_CHECK_WIDTYPE(obj, widtype);
807    Widget_Data *wd = elm_widget_data_get(obj);
808    if (!wd) return;
809    eina_stringshare_replace(&wd->units, units);
810    if (units)
811      {
812         edje_object_signal_emit(wd->slider, "elm,state,units,visible", "elm");
813         edje_object_message_signal_process(wd->slider);
814      }
815    else
816      {
817         edje_object_signal_emit(wd->slider, "elm,state,units,hidden", "elm");
818         edje_object_message_signal_process(wd->slider);
819      }
820    _units_set(obj);
821    _sizing_eval(obj);
822 }
823
824 /**
825  * Get the format string for the unit area
826  *
827  * The slider may also display a value (the value of the slider) somewhere
828  * (for example above the slider knob that is dragged around). This sets the
829  * format string for this. See elm_slider_unit_format_set() for more
830  * information on how this works.
831  *
832  * @param obj The slider object
833  * @return The format string for the unit display.
834  *
835  * @ingroup Slider
836  */
837 EAPI const char *
838 elm_slider_unit_format_get(const Evas_Object *obj)
839 {
840    ELM_CHECK_WIDTYPE(obj, widtype) NULL;
841    Widget_Data *wd = elm_widget_data_get(obj);
842    if (!wd) return NULL;
843    return wd->units;
844 }
845
846 /**
847  * Set the format string for the indicator area
848  *
849  * The slider may also display a value (the value of the slider) somewhere
850  * (for example above the slider knob that is dragged around). This sets the
851  * format string for this. See elm_slider_unit_format_set() for more
852  * information on how this works.
853  *
854  * @param obj The slider object
855  * @param indicator The format string for the indicator display
856  *
857  * @ingroup Slider
858  */
859 EAPI void
860 elm_slider_indicator_format_set(Evas_Object *obj, const char *indicator)
861 {
862    ELM_CHECK_WIDTYPE(obj, widtype);
863    Widget_Data *wd = elm_widget_data_get(obj);
864    if (!wd) return;
865    eina_stringshare_replace(&wd->indicator, indicator);
866    _indicator_set(obj);
867 }
868
869 /**
870  * Get the format string for the indicator area
871  *
872  * The slider may also display a value (the value of the slider) somewhere
873  * (for example above the slider knob that is dragged around). This sets the
874  * format string for this. See elm_slider_indicator_format_set() for more
875  * information on how this works.
876  *
877  * @param obj The slider object
878  * @return The format string for the indicator display.
879  *
880  * @ingroup Slider
881  */
882 EAPI const char *
883 elm_slider_indicator_format_get(const Evas_Object *obj)
884 {
885    ELM_CHECK_WIDTYPE(obj, widtype) NULL;
886    Widget_Data *wd = elm_widget_data_get(obj);
887    if (!wd) return NULL;
888    return wd->indicator;
889 }
890
891 /**
892  * Set orientation of the slider
893  *
894  * @param obj The slider object
895  * @param horizontal If set, the slider will be horizontal
896  *
897  * @ingroup Slider
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 /**
912  * Get orientation of the slider
913  *
914  * @param obj The slider object
915  * @return If @c EINA_TRUE the slider will be horizontal, else it is
916  *         vertical.
917  * @ingroup Slider
918  */
919 EAPI Eina_Bool
920 elm_slider_horizontal_get(const Evas_Object *obj)
921 {
922    ELM_CHECK_WIDTYPE(obj, widtype) EINA_FALSE;
923    Widget_Data *wd = elm_widget_data_get(obj);
924    if (!wd) return EINA_FALSE;
925    return wd->horizontal;
926 }
927
928 /**
929  * Set the minimum and maximum values for the slider
930  *
931  * Maximum mut be greater than minimum.
932  *
933  * @param obj The slider object
934  * @param min The minimum value
935  * @param max The maximum value
936  *
937  * @ingroup Slider
938  */
939 EAPI void
940 elm_slider_min_max_set(Evas_Object *obj, double min, double max)
941 {
942    ELM_CHECK_WIDTYPE(obj, widtype);
943    Widget_Data *wd = elm_widget_data_get(obj);
944    if (!wd) return;
945    if ((wd->val_min == min) && (wd->val_max == max)) return;
946    wd->val_min = min;
947    wd->val_max = max;
948    if (wd->val < wd->val_min) wd->val = wd->val_min;
949    if (wd->val > wd->val_max) wd->val = wd->val_max;
950    _val_set(obj);
951    _units_set(obj);
952    _indicator_set(obj);
953 }
954
955 /**
956  * Get the minimum and maximum values for the slider
957  *
958  * @param obj The slider object
959  * @param min The pointer to store minimum value, may be @c NULL.
960  * @param max The pointer to store maximum value, may be @c NULL.
961  *
962  * @ingroup Slider
963  */
964 EAPI void
965 elm_slider_min_max_get(const Evas_Object *obj, double *min, double *max)
966 {
967    if (min) *min = 0.0;
968    if (max) *max = 0.0;
969    ELM_CHECK_WIDTYPE(obj, widtype);
970    Widget_Data *wd = elm_widget_data_get(obj);
971    if (!wd) return;
972    if (min) *min = wd->val_min;
973    if (max) *max = wd->val_max;
974 }
975
976 /**
977  * Set the value the slider indicates
978  *
979  * @param obj The slider object
980  * @param val The value (must be between min and max for the slider)
981  *
982  * @ingroup Slider
983  */
984 EAPI void
985 elm_slider_value_set(Evas_Object *obj, double val)
986 {
987    ELM_CHECK_WIDTYPE(obj, widtype);
988    Widget_Data *wd = elm_widget_data_get(obj);
989    if (!wd) return;
990    if (wd->val == val) return;
991    wd->val = val;
992    if (wd->val < wd->val_min) wd->val = wd->val_min;
993    if (wd->val > wd->val_max) wd->val = wd->val_max;
994    edje_object_signal_emit(wd->slider, "elm,state,drag", "elm");
995    _val_set(obj);
996    _units_set(obj);
997    _indicator_set(obj);
998 }
999
1000 /**
1001  * Get the value the slider has
1002  *
1003  * @param obj The slider object
1004  * @return The value of the slider
1005  *
1006  * @ingroup Slider
1007  */
1008 EAPI double
1009 elm_slider_value_get(const Evas_Object *obj)
1010 {
1011    ELM_CHECK_WIDTYPE(obj, widtype) 0.0;
1012    Widget_Data *wd = elm_widget_data_get(obj);
1013    if (!wd) return 0.0;
1014    return wd->val;
1015 }
1016
1017 /**
1018  * Invert the slider display
1019  *
1020  * Normally the slider will display and interpret values from low to high
1021  * and when horizontal that is left to right. When vertical that is top
1022  * to bottom. This inverts this (so from right to left or bottom to top) if
1023  * inverted is set to 1.
1024  *
1025  * @param obj The slider object
1026  * @param inverted The inverted flag. 1 == inverted, 0 == normal
1027  *
1028  * @ingroup Slider
1029  */
1030 EAPI void
1031 elm_slider_inverted_set(Evas_Object *obj, Eina_Bool inverted)
1032 {
1033    ELM_CHECK_WIDTYPE(obj, widtype);
1034    Widget_Data *wd = elm_widget_data_get(obj);
1035    if (!wd) return;
1036    inverted = !!inverted;
1037    if (wd->inverted == inverted) return;
1038    wd->inverted = inverted;
1039    if (wd->inverted)
1040      edje_object_signal_emit(wd->slider, "elm,state,inverted,on", "elm");
1041    else
1042      edje_object_signal_emit(wd->slider, "elm,state,inverted,off", "elm");
1043    edje_object_message_signal_process(wd->slider);
1044    _val_set(obj);
1045    _units_set(obj);
1046    _indicator_set(obj);
1047 }
1048
1049 /**
1050  * Get if the slider display is inverted (backwards)
1051  *
1052  * @param obj The slider object
1053  * @return If @c EINA_TRUE the slider will be inverted.
1054  * @ingroup Slider
1055  */
1056 EAPI Eina_Bool
1057 elm_slider_inverted_get(const Evas_Object *obj)
1058 {
1059    ELM_CHECK_WIDTYPE(obj, widtype) EINA_FALSE;
1060    Widget_Data *wd = elm_widget_data_get(obj);
1061    if (!wd) return EINA_FALSE;
1062    return wd->inverted;
1063 }
1064
1065 /**
1066  * Set the format function pointer for the indicator area
1067  *
1068  * Set the callback function to format the indicator string.
1069  * See elm_slider_indicator_format_set() for more info on how this works.
1070  *
1071  * @param obj The slider object
1072  * @param indicator The format string for the indicator display
1073  * @param func The indicator format function
1074  * @param free_func The freeing function for the format string
1075  *
1076  * @ingroup Slider
1077  */
1078 EAPI void
1079 elm_slider_indicator_format_function_set(Evas_Object *obj, const char *(*func)(double val), void (*free_func)(const char *str))
1080 {
1081    ELM_CHECK_WIDTYPE(obj, widtype);
1082    Widget_Data *wd = elm_widget_data_get(obj);
1083    if (!wd) return;
1084    wd->indicator_format_func = func;
1085    wd->indicator_format_free = free_func;
1086    _indicator_set(obj);
1087 }
1088
1089 /**
1090  * Set the format function pointer for the units area
1091  *
1092  * Set the callback function to format the indicator string.
1093  * See elm_slider_units_format_set() for more info on how this works.
1094  *
1095  * @param obj The slider object
1096  * @param indicator The format string for the units display
1097  * @param func The units format function
1098  * @param free_func The freeing function for the format string
1099  *
1100  * @ingroup Slider
1101  */
1102 EAPI void
1103 elm_slider_units_format_function_set(Evas_Object *obj, const char *(*func)(double val), void (*free_func)(const char *str))
1104 {
1105    ELM_CHECK_WIDTYPE(obj, widtype);
1106    Widget_Data *wd = elm_widget_data_get(obj);
1107    if (!wd) return;
1108    wd->units_format_func = func;
1109    wd->units_format_free = free_func;
1110    _indicator_set(obj);
1111 }
1112
1113 /**
1114  * Set the end object (rightmost widget) of the slider object.
1115  *
1116  * Once the end object is set, a previously set one will be deleted.
1117  * If you want to keep that old content object, use the
1118  * elm_button_end_unset() function.
1119  *
1120  * @param obj The slider object
1121  * @param end The end object
1122  *
1123  * @note If the object being set does not have minimum size hints set,
1124  * it won't get properly displayed.
1125  *
1126  * @ingroup Slider
1127  */
1128 EAPI void
1129 elm_slider_end_set(Evas_Object *obj, Evas_Object *end)
1130 {
1131    ELM_CHECK_WIDTYPE(obj, widtype);
1132    Widget_Data *wd = elm_widget_data_get(obj);
1133    if (!wd) return;
1134    if (wd->end == end) return;
1135    if (wd->end) evas_object_del(wd->end);
1136    wd->end = end;
1137    if (end)
1138      {
1139         elm_widget_sub_object_add(obj, end);
1140         evas_object_event_callback_add(end, EVAS_CALLBACK_CHANGED_SIZE_HINTS,
1141                                        _changed_size_hints, obj);
1142         edje_object_part_swallow(wd->slider, "elm.swallow.end", end);
1143         edje_object_signal_emit(wd->slider, "elm,state,end,visible", "elm");
1144         edje_object_message_signal_process(wd->slider);
1145      }
1146    _sizing_eval(obj);
1147 }
1148
1149 /**
1150  * Unset the rightmost widget of the slider, unparenting and
1151  * returning it.
1152  *
1153  * @param obj The slider object
1154  * @return the previously set end sub-object of this slider, on
1155  * success.
1156  *
1157  * @see elm_slider_end_set()
1158  *
1159  * @ingroup Slider
1160  */
1161 EAPI Evas_Object *
1162 elm_slider_end_unset(Evas_Object *obj)
1163 {
1164    ELM_CHECK_WIDTYPE(obj, widtype) NULL;
1165    Widget_Data *wd = elm_widget_data_get(obj);
1166    Evas_Object *ret = NULL;
1167    if (!wd) return NULL;
1168    if (wd->end)
1169      {
1170         elm_widget_sub_object_del(obj, wd->end);
1171         ret = wd->end;
1172         edje_object_part_unswallow(wd->slider, wd->end);
1173         edje_object_signal_emit(wd->slider, "elm,state,end,hidden", "elm");
1174         wd->end = NULL;
1175         _sizing_eval(obj);
1176      }
1177    return ret;
1178 }
1179
1180 /**
1181  * Get the end icon object of the slider object. This object is owned
1182  * by the scrolled entry and should not be modified.
1183  *
1184  * @param obj The slider object
1185  * @return The end icon object
1186  *
1187  * @ingroup Slider
1188  */
1189 EAPI Evas_Object *
1190 elm_slider_end_get(const Evas_Object *obj)
1191 {
1192    ELM_CHECK_WIDTYPE(obj, widtype) NULL;
1193    Widget_Data *wd = elm_widget_data_get(obj);
1194    if (!wd) return NULL;
1195    return wd->end;
1196 }
1197
1198 /**
1199  * Set whether to the slider indicator (augmented knob) at all.
1200  *
1201  * @param obj The slider object
1202  * @param show @c EINA_TRUE will make it show it, @c EINA_FALSE will
1203  * let the knob alwayes at default size.
1204  *
1205  * @note It will conflict with elm_slider_indicator_format_set(), if
1206  * you wanted those effects.
1207  *
1208  * @ingroup Slider
1209  */
1210 EAPI void
1211 elm_slider_indicator_show_set(Evas_Object *obj, Eina_Bool show)
1212 {
1213    ELM_CHECK_WIDTYPE(obj, widtype);
1214    Widget_Data *wd = elm_widget_data_get(obj);
1215    if (show) {
1216         wd->indicator_show = EINA_TRUE;
1217         edje_object_signal_emit(wd->slider, "elm,state,val,show", "elm");
1218    }
1219    else {
1220         wd->indicator_show = EINA_FALSE;
1221         edje_object_signal_emit(wd->slider, "elm,state,val,hide", "elm");
1222    }
1223 }
1224
1225 /**
1226  * Get the state of indicator in the slider (if it's being shown or
1227  * not).
1228  *
1229  * @param obj The slider object
1230  * @return @c EINA_TRUE if the indicator is being shown, @c EINA_FALSE
1231  * otherwise.
1232  *
1233  *  @ingroup Slider
1234  */
1235 EAPI Eina_Bool
1236 elm_slider_indicator_show_get(const Evas_Object *obj)
1237 {
1238    ELM_CHECK_WIDTYPE(obj, widtype) EINA_FALSE;
1239    Widget_Data *wd = elm_widget_data_get(obj);
1240    if (!wd) return EINA_FALSE;
1241    return wd->indicator_show;
1242 }
1243