PRAGMA LDFLAGS `pkg-config --libs elementary `
PRAGMA OPTIONS `pkg-config --cflags elementary `
PRAGMA INCLUDE elementary-1/Elementary.h
'---elm_ commands
PROTO elm_button_add
PROTO elm_object_text_set
PROTO elm_naviframe_item_push
PROTO elm_main
PROTO elm_policy_set
PROTO elm_win_util_standard_add
PROTO elm_win_autodel_set
PROTO elm_naviframe_add
PROTO elm_win_resize_object_add
PROTO elm_button_add
PROTO elm_object_text_set
PROTO elm_naviframe_item_push
PROTO elm_run
PROTO elm_shutdown
'---evas_ commands
PROTO evas_object_smart_callback_add
PROTO evas_object_size_hint_weight_set
PROTO evas_object_show
PROTO evas_object_smart_callback_add
PROTO evas_object_resize
PROTO evas_object_show
PROTO elm_init
DECLARE *win, *nf, *btn TYPE Evas_Object
'===========================================================
SUB _btn_cb(void *data, Evas_Object *obj, void *event_info)
'===========================================================
INCR click_count
MESSAGE$ =CONCAT$("Page ",STR$(click_count))
btn = elm_button_add(nf)
elm_object_text_set(btn, MESSAGE$)
evas_object_smart_callback_add(btn, "clicked", _btn_cb, nf)
elm_naviframe_item_push(nf, MESSAGE$, NULL, NULL, btn, NULL)
END SUB
elm_init(0, 0)
click_count = 1
elm_policy_set(ELM_POLICY_QUIT, ELM_POLICY_QUIT_LAST_WINDOW_CLOSED)
win = elm_win_util_standard_add("naviframe", "Naviframe")
elm_win_autodel_set(win, EINA_TRUE)
nf = elm_naviframe_add(win)
evas_object_size_hint_weight_set(nf, EVAS_HINT_EXPAND, EVAS_HINT_EXPAND)
elm_win_resize_object_add(win, nf)
evas_object_show(nf)
btn = elm_button_add(nf)
elm_object_text_set(btn, "Go to Next Page.")
evas_object_smart_callback_add(btn, "clicked", _btn_cb, nf)
elm_naviframe_item_push(nf, "First Page", NULL, NULL, btn, NULL)
evas_object_resize(win, 200, 200)
evas_object_show(win)
elm_run()
elm_shutdown()