PREFIX value ml_elm_naviframe_item_style_set(value v_it, value v_style)
{
        const char* style;
        if(v_style == Val_int(0)) style = NULL;
        else style = String_val(Field(v_style, 0));
        elm_naviframe_item_style_set((Elm_Object_Item*) v_it, style);
        return Val_unit;
}
static void
scrollable_style_cb(void *data, Evas_Object *obj, void *event_info)
{
	Evas_Object *tabbar;
	Elm_Object_Item *nf_it;
	Evas_Object *nf = data;

	nf_it = elm_naviframe_top_item_get(nf);
	elm_naviframe_item_style_set(nf_it, "tabbar");
	tabbar = create_text_only_scrollable_tabbar(nf);
	elm_object_item_part_content_set(nf_it, "tabbar", tabbar);
	elm_object_item_part_text_set(nf_it, NULL, "Multiple Items with Title");
}