PRAGMA LDFLAGS `pkg-config --libs elementary`
PRAGMA OPTIONS `pkg-config --cflags elementary`
PRAGMA INCLUDE elementary-1/Elementary.h
'--- canvas widget alexfish
'---GUI
PROTO Ecore_Evas , Evas_Object
PROTO elm_policy_set
PROTO elm_win_util_standard_add
PROTO elm_win_autodel_set
PROTO evas_object_resize
PROTO evas_object_show
PROTO elm_run
PROTO elm_shutdown
PROTO elm_init
'@ add bits for rectangle and color
PROTO evas_object_rectangle_add, evas_object_color_set
PROTO evas_object_move
'@ INIT
elm_init(0,0)
PROTO evas_object_evas_get ,ecore_evas_get
'@ Declares
DECLARE canvas1 TYPE Evas*
DECLARE canvas2 TYPE Evas*
DECLARE *win TYPE Evas_Object
DECLARE *bg TYPE Evas_Object
'--- test the GUI a simple window + find drawable + add rectangle
elm_policy_set(ELM_POLICY_QUIT, ELM_POLICY_QUIT_LAST_WINDOW_CLOSED)
win = elm_win_util_standard_add("bg-plain", "Bg Plain")
elm_win_autodel_set(win, EINA_TRUE)
evas_object_resize(win, 300, 300)
evas_object_show(win)
'@ find drawable
canvas1 = evas_object_evas_get(win)
'@ the rectangle
bg=evas_object_rectangle_add(canvas1)
evas_object_color_set(bg, 193, 51, 51, 255)
evas_object_resize(bg, 200, 200)
'@ see if can move
evas_object_move(bg,50,50)
evas_object_show(bg)
elm_run()
elm_shutdown()
PRAGMA OPTIONS `pkg-config --cflags elementary`
PRAGMA INCLUDE elementary-1/Elementary.h
'--- canvas widget alexfish
'---GUI
PROTO Ecore_Evas , Evas_Object
PROTO elm_policy_set
PROTO elm_win_util_standard_add
PROTO elm_win_autodel_set
PROTO evas_object_resize
PROTO evas_object_show
PROTO elm_run
PROTO elm_shutdown
PROTO elm_init
'@ add bits for rectangle and color
PROTO evas_object_rectangle_add, evas_object_color_set
PROTO evas_object_move
'@ INIT
elm_init(0,0)
PROTO evas_object_evas_get ,ecore_evas_get
'@ Declares
DECLARE canvas1 TYPE Evas*
DECLARE canvas2 TYPE Evas*
DECLARE *win TYPE Evas_Object
DECLARE *bg TYPE Evas_Object
'--- test the GUI a simple window + find drawable + add rectangle
elm_policy_set(ELM_POLICY_QUIT, ELM_POLICY_QUIT_LAST_WINDOW_CLOSED)
win = elm_win_util_standard_add("bg-plain", "Bg Plain")
elm_win_autodel_set(win, EINA_TRUE)
evas_object_resize(win, 300, 300)
evas_object_show(win)
'@ find drawable
canvas1 = evas_object_evas_get(win)
'@ the rectangle
bg=evas_object_rectangle_add(canvas1)
evas_object_color_set(bg, 193, 51, 51, 255)
evas_object_resize(bg, 200, 200)
'@ see if can move
evas_object_move(bg,50,50)
evas_object_show(bg)
elm_run()
elm_shutdown()