PRAGMA LDFLAGS `pkg-config --libs elementary `
PRAGMA OPTIONS `pkg-config --cflags elementary `
PRAGMA INCLUDE elementary-1/Elementary.h
'--- button demo with callback bigbass
PROTO elm_win_add
PROTO elm_win_title_set
PROTO elm_win_autodel_set
PROTO elm_policy_set
PROTO evas_object_resize
PROTO evas_object_show
PROTO elm_bg_add
PROTO evas_object_size_hint_weight_set
PROTO elm_win_resize_object_add
PROTO evas_object_show
PROTO elm_button_add
PROTO elm_object_text_set
PROTO evas_object_smart_callback_add
PROTO evas_object_resize
PROTO evas_object_move
PROTO evas_object_show
PROTO elm_run
PROTO elm_shutdown
PROTO elm_exit
PROTO elm_main
PROTO elm_init
'===========================================================
SUB on_click(void *data, Evas_Object *obj, void *event_info)
'===========================================================
elm_exit()
END SUB
DECLARE *win TYPE Evas_Object
DECLARE *bg TYPE Evas_Object
DECLARE *btn TYPE Evas_Object
elm_init(0,0)
'--- Create an win, associate it with a canvas and
'--- turn it visible on WM (Window Manager).
win = elm_win_add(NULL, "Greetings", ELM_WIN_BASIC)
elm_win_title_set(win, "Hello, World!")
elm_win_autodel_set(win, EINA_TRUE)
elm_policy_set(ELM_POLICY_QUIT, ELM_POLICY_QUIT_LAST_WINDOW_CLOSED)
evas_object_resize(win, 240, 60)
evas_object_show(win)
'--- Create a bg, associate it to an win
'--- and turn it visible on WM.
bg = elm_bg_add(win)
evas_object_size_hint_weight_set(bg, EVAS_HINT_EXPAND, EVAS_HINT_EXPAND)
elm_win_resize_object_add(win, bg)
evas_object_show(bg)
'--- Create a btn, associate to a function, associate
'--- to win, give a dimension and position.
btn = elm_button_add(win)
elm_object_text_set(btn, "Good-Bye, World!")
evas_object_smart_callback_add(btn, "clicked", on_click, NULL)
evas_object_resize(btn, 120, 30)
evas_object_move(btn, 60, 15)
evas_object_show(btn)
elm_run()
elm_shutdown()