#include <Ecore.h>
#include <Evas.h>
#include <Ecore_Evas.h>
#include <Edje.h>
#include <stdlib.h>
#include <stdio.h>
#include <string.h>

struct test_data {
    Ecore_Evas *ee;
    Evas *evas;
    Evas_Object *bg;
    Evas_Object *box;
};

static struct test_data d;

static void
custom_layout(Evas_Object *o, Evas_Object_Box_Data *p, void *data)
{
	int x, y, w, h;
	int xx, yy, ww, hh;
	int count;
	Eina_List *l;
	Evas_Object_Box_Option *opt;

	evas_object_geometry_get(o, &x, &y, &w, &h);
	count = eina_list_count(p->children);
	ww = w / (count?:1);
	hh = h / (count?:1);
	if (ww < 1) ww = 1;
	if (hh < 1) hh = 1;

	xx = x;
	yy = y;
	EINA_LIST_FOREACH(p->children, l, opt)
	{
		//evas_object_resize(opt->obj, ww, hh);
		evas_object_move(opt->obj, xx, yy);
		xx += ww;
		yy += hh;
	}
}

static Evas_Object *
new_greenie_block(Evas *e)
{
	Evas_Object *o;

        o = evas_object_rectangle_add(e);
        evas_object_resize(o, 10, 10);
        evas_object_color_set(o, 0, 255, 0, 255);
        evas_object_show(o);

	return o;
}

static void
on_keydown(void *data, Evas *evas, Evas_Object *o, void *einfo)
{
    struct test_data *test = data;
    Evas_Event_Key_Down *ev = einfo;
    const Evas_Modifier *mods;

    mods = evas_key_modifier_get(evas);
    if (evas_key_modifier_is_set(mods, "Shift"))
    {
	    int pos;
	    Evas_Object *obj = NULL;
	    pos = atoi(ev->keyname);
	    obj = edje_object_part_box_remove_at(test->box, "Box", pos);
	    if (obj)
		    evas_object_del(obj);
	    return;
    }
    if (evas_key_modifier_is_set(mods, "Control"))
    {
	Evas_Object *o;
	int pos;
	pos = atoi(ev->keyname);
	o = new_greenie_block(test->evas);
        if (!edje_object_part_box_insert_at(test->box, "Box", o, pos))
	    edje_object_part_box_append(test->box, "Box", o);
	return;
    }
    if (strcmp(ev->keyname, "Escape") == 0)
        ecore_main_loop_quit();

    if (strcmp(ev->keyname, "1") == 0)
	edje_object_signal_emit(test->box, "set,horizontal", "*");

    if (strcmp(ev->keyname, "2") == 0)
	edje_object_signal_emit(test->box, "set,vertical", "*");

    if (strcmp(ev->keyname, "3") == 0)
	edje_object_signal_emit(test->box, "set,horizontal_homogeneous", "*");

    if (strcmp(ev->keyname, "4") == 0)
	edje_object_signal_emit(test->box, "set,vertical_homogeneous", "*");

    if (strcmp(ev->keyname, "5") == 0)
	edje_object_signal_emit(test->box, "set,horizontal_max", "*");

    if (strcmp(ev->keyname, "6") == 0)
	edje_object_signal_emit(test->box, "set,vertical_max", "*");

    if (strcmp(ev->keyname, "7") == 0)
	edje_object_signal_emit(test->box, "set,horizontal_flow", "*");

    if (strcmp(ev->keyname, "8") == 0)
	edje_object_signal_emit(test->box, "set,vertical_flow", "*");

    if (strcmp(ev->keyname, "9") == 0)
	edje_object_signal_emit(test->box, "set,stack", "*");
    if (strcmp(ev->keyname, "0") == 0)
	edje_object_signal_emit(test->box, "set,custom_layout", "*");
}

static Evas_Object *
box_new(Evas *evas, const char *name, int x, int y, int w, int h)
{
    Evas_Object *o;

    o = edje_object_add(evas);
    evas_object_move(o, x, y);
    evas_object_resize(o, w, h);
    edje_object_file_set(o, "box.edj", "DaBox");
    evas_object_show(o);

    evas_object_name_set(o, name);

    return o;
}

static void
on_resize(Ecore_Evas *ee)
{
    int w, h;

    evas_output_viewport_get(d.evas, NULL, NULL, &w, &h);
    evas_object_resize(d.bg, w, h);
    evas_object_resize(d.box, w, h);
}

static void
on_destroy(Ecore_Evas *ee)
{
    ecore_main_loop_quit();
}

int
main(int argc, char *argv[])
{
    Ecore_Evas *ee;
    int w, h, i;
    Evas_Object *last;
    Evas_Object *o;

    evas_init();
    ecore_init();
    ecore_evas_init();
    edje_init();

    ee = ecore_evas_new(NULL, 0, 0, 640, 480, NULL);
    ecore_evas_show(ee);

    d.ee = ee;
    d.evas = ecore_evas_get(ee);

    ecore_evas_callback_resize_set(ee, on_resize);
    ecore_evas_callback_destroy_set(ee, on_destroy);

    evas_output_viewport_get(d.evas, NULL, NULL, &w, &h);

    d.bg = evas_object_rectangle_add(d.evas);
    evas_object_resize(d.bg, w, h);
    evas_object_show(d.bg);
    evas_object_focus_set(d.bg, 1);
    evas_object_event_callback_add(
      d.bg, EVAS_CALLBACK_KEY_DOWN, on_keydown, &d);

    d.box = box_new(d.evas, "box", 0, 0, w, h);

#if 0
    for (i = 1; i <= 5; i++) {
        o = last = evas_object_rectangle_add(d.evas);
        evas_object_resize(o, 50, 50);
        evas_object_color_set(o, 128, 0, 0, 128);
        evas_object_show(o);

        if (!edje_object_part_box_append(d.box, "Box", o))
            return 1;
    }
#endif

/*    o = evas_object_rectangle_add(d.evas);
    evas_object_resize(o, 10, 10);
    evas_object_color_set(o, 255, 0, 255, 255);
    evas_object_show(o);
    printf("inserting magenta before last\n");
    edje_object_part_box_insert_before(d.box, "Box", o, last);*/

#if 0
    o = evas_object_rectangle_add(d.evas);
    evas_object_resize(o, 10, 10);
    evas_object_color_set(o, 0, 255, 0, 255);
    evas_object_show(o);
    printf("inserting green at 3\n");
    edje_object_part_box_insert_at(d.box, "Box", o, 3);
#endif

    edje_box_layout_register("custom_layout", custom_layout, NULL, NULL, NULL, NULL);

    ecore_main_loop_begin();

    edje_shutdown();
    ecore_evas_shutdown();
    ecore_shutdown();
    evas_shutdown();


    return 0;
}