EFL
view release on metacpan or search on metacpan
t/elementary_test.t view on Meta::CPAN
elm_frame_content_set($fr, $lb);
evas_object_show($lb);
my $li = elm_list_add($win);
elm_list_always_select_mode_set($li, 1);
evas_object_size_hint_weight_set($li, 1.0, 1.0);
evas_object_size_hint_fill_set($li, -1.0, -1.0);
elm_box_pack_end($bx0, $li);
evas_object_show($li);
elm_list_item_append($li, "Bg Plain", undef, undef, \&test_bg_plain, undef);
elm_list_item_append($li, "Bg Image", undef, undef, \&test_bg_image, undef);
elm_list_item_append($li, "Icon Transparent", undef, undef, \&test_icon, undef);
elm_list_item_append($li, "Box Vert", undef, undef, \&test_box_vert, undef);
elm_list_item_append($li, "Box Horiz", undef, undef, \&test_box_horiz, undef);
elm_list_item_append($li, "Buttons", undef, undef, \&test_button, undef);
elm_list_item_append($li, "Toggles", undef, undef, \&test_toggle, undef);
elm_list_item_append($li, "Table", undef, undef, \&test_table, undef);
elm_list_item_append($li, "Clock", undef, undef, \&test_clock, undef);
elm_list_item_append($li, "Layout", undef, undef, \&test_layout, undef);
elm_list_item_append($li, "Hover", undef, undef, \&test_hover, undef);
elm_list_item_append($li, "Hover 2", undef, undef, \&test_hover2, undef);
elm_list_item_append($li, "Entry", undef, undef, \&test_entry, undef);
elm_list_item_append($li, "Entry Scrolled", undef, undef, \&test_entry_scrolled, undef);
elm_list_item_append($li, "Notepad", undef, undef, \&test_notepad, undef);
elm_list_item_append($li, "Anchorview", undef, undef, \&test_anchorview, undef);
elm_list_item_append($li, "Anchorblock", undef, undef, \&test_anchorblock, undef);
elm_list_item_append($li, "Toolbar", undef, undef, \&test_toolbar, undef);
elm_list_item_append($li, "Hoversel", undef, undef, \&test_hoversel, undef);
elm_list_item_append($li, "List", undef, undef, \&test_list, undef);
# elm_list_item_append($li, "List 2", undef, undef, \&test_list2, undef);
elm_list_item_append($li, "List 3", undef, undef, \&test_list3, undef);
elm_list_item_append($li, "Carousel", undef, undef, \&test_carousel, undef);
elm_list_item_append($li, "Inwin", undef, undef, \&test_inwin, undef);
elm_list_item_append($li, "Inwin 2", undef, undef, \&test_inwin2, undef);
elm_list_item_append($li, "Scaling", undef, undef, \&test_scaling, undef);
elm_list_item_append($li, "Scaling 2", undef, undef, \&test_scaling2, undef);
elm_list_item_append($li, "Slider", undef, undef, \&test_slider, undef);
elm_list_item_append($li, "Genlist", undef, undef, \&test_genlist, undef);
# TODO ...
# elm_list_item_append($li, "Genlist 2", undef, undef, \&test_genlist2, undef);
# elm_list_item_append($li, "Genlist 3", undef, undef, \&test_genlist3, undef);
# elm_list_item_append($li, "Genlist 4", undef, undef, \&test_genlist4, undef);
# elm_list_item_append($li, "Genlist 5", undef, undef, \&test_genlist5, undef);
# elm_list_item_append($li, "Genlist Tree", undef, undef, \&test_genlist6, undef);
elm_list_item_append($li, "Checks", undef, undef, \&test_check, undef);
elm_list_item_append($li, "Radios", undef, undef, \&test_radio, undef);
elm_list_item_append($li, "Pager", undef, undef, \&test_pager, undef);
elm_list_item_append($li, "Window States", undef, undef, \&test_win_state, undef);
elm_list_item_append($li, "Progressbar", undef, undef, \&test_progressbar, undef);
# elm_list_item_append($li, "File Selector", undef, undef, \&test_fileselector, undef);
elm_list_item_append($li, "Separator", undef, undef, \&test_separator, undef);
# elm_list_item_append($li, "Scroller", undef, undef, \&test_scroller, undef);
elm_list_item_append($li, "Spinner", undef, undef, \&test_spinner, undef);
# elm_list_item_append($li, "Index", undef, undef, \&test_index, undef);
# elm_list_item_append($li, "Photocam", undef, undef, \&test_photocam, undef);
elm_list_item_append($li, "Photo", undef, undef, \&elmt::test_photo, undef);
# elm_list_item_append($li, "Icon Desktops", undef, undef, \&test_icon_desktops, undef);
elm_list_item_append($li, "Notify", undef, undef, \&elmt::test_notify, undef);
elm_list_item_append($li, "Slideshow", undef, undef, \&elmt::test_slideshow, undef);
# elm_list_item_append($li, "Menu", undef, undef, \&test_menu, undef);
# elm_list_item_append($li, "Panel", undef, undef, \&test_panel, undef);
# elm_list_item_append($li, "Map", undef, undef, \&test_map, undef);
# elm_list_item_append($li, "Weather", undef, undef, \&test_weather, undef);
elm_list_item_append($li, "Flip", undef, undef, \&elmt::test_flip, undef);
elm_list_go($li);
evas_object_show($bg);
evas_object_resize($win, 240, 480);
evas_object_show($win);
elm_run();
elm_exit();
sub test_bg_plain {
my ($data, $evas_obj, $event_info) = @_;
my ($win, $bg);
$win = elm_win_add(undef, "bg-plain", ELM_WIN_BASIC);
elm_win_title_set($win, "Bg Plain");
elm_win_autodel_set($win, 1);
$bg = elm_bg_add($win);
evas_object_size_hint_weight_set($bg, 1.0, 1.0);
elm_win_resize_object_add($win, $bg);
evas_object_show($bg);
evas_object_size_hint_min_set($bg, 160, 160);
evas_object_size_hint_max_set($bg, 640, 640);
evas_object_resize($win, 320, 320);
evas_object_show($win);
}
sub test_bg_image {
my ($win, $bg);
$win = elm_win_add(undef, "bg-image", ELM_WIN_BASIC);
elm_win_title_set($win, "Bg Image");
elm_win_autodel_set($win, 1);
$bg = elm_bg_add($win);
elm_bg_file_set($bg, $images{'plant'}, undef);
evas_object_size_hint_weight_set($bg, EVAS_HINT_EXPAND, EVAS_HINT_EXPAND);
elm_win_resize_object_add($win, $bg);
evas_object_show($bg);
evas_object_size_hint_min_set($bg, 160, 160);
evas_object_size_hint_max_set($bg, 640, 640);
evas_object_resize($win, 320, 320);
evas_object_show($win);
}
sub icon_clicked {
print(STDERR Dumper(\@_));
my ($win) = @_;
t/elementary_test.t view on Meta::CPAN
sub tb_5 {
my ($data) = @_;
elm_photo_file_set($$data, undef);
}
sub test_toolbar {
my ($win, $bg, $bx, $tb, $ic, $ph, $menu);
my ($ph1, $ph2, $ph3, $ph4);
my $item;
my $menu_item;
$win = elm_win_add(undef, "toolbar", ELM_WIN_BASIC);
elm_win_title_set($win, "Toolbar");
elm_win_autodel_set($win, 1);
$bg = elm_bg_add($win);
elm_win_resize_object_add($win, $bg);
evas_object_size_hint_weight_set($bg, EVAS_HINT_EXPAND, EVAS_HINT_EXPAND);
evas_object_show($bg);
$bx = elm_box_add($win);
elm_win_resize_object_add($win, $bx);
evas_object_size_hint_weight_set($bx, EVAS_HINT_EXPAND, EVAS_HINT_EXPAND);
evas_object_show($bx);
$tb = elm_toolbar_add($win);
elm_toolbar_homogenous_set($tb, 0);
evas_object_size_hint_weight_set($tb, 0.0, 0.0);
evas_object_size_hint_align_set($tb, EVAS_HINT_FILL, 0.0);
$ph1 = elm_photo_add($win);
$ph2 = elm_photo_add($win);
$ph3 = elm_photo_add($win);
$ph4 = elm_photo_add($win);
$ic = elm_icon_add($win);
elm_icon_file_set($ic, $images{'logo_small'}, undef);
$item = elm_toolbar_item_add($tb, $ic, "Hello", \&tb_1, \$ph1);
elm_toolbar_item_disabled_set($item, EINA_TRUE);
$ic = elm_icon_add($win);
elm_icon_file_set($ic, $images{'logo_small'}, undef);
elm_toolbar_item_add($tb, $ic, "World", \&tb_2, \$ph1);
$ic = elm_icon_add($win);
elm_icon_file_set($ic, $images{'logo_small'}, undef);
elm_toolbar_item_add($tb, $ic, "H", \&tb_3, \$ph4);
$ic = elm_icon_add($win);
elm_icon_file_set($ic, $images{'logo_small'}, undef);
elm_toolbar_item_add($tb, $ic, "Comes", \&tb_4, \$ph4);
$ic = elm_icon_add($win);
elm_icon_file_set($ic, $images{'logo_small'}, undef);
elm_toolbar_item_add($tb, $ic, "Elementary", \&tb_5, \$ph4);
$ic = elm_icon_add($win);
elm_icon_file_set($ic, $images{'logo_small'}, undef);
$item = elm_toolbar_item_add($tb, $ic, "Menu", undef, undef);
elm_toolbar_item_menu_set($item, 1);
elm_toolbar_menu_parent_set($tb, $win);
$menu = elm_toolbar_item_menu_get($item);
$ic = elm_icon_add($win);
elm_icon_file_set($ic, $images{'logo_small'}, undef);
elm_menu_item_add($menu, undef, $ic, "Here", \&tb_3, \$ph4);
$ic = elm_icon_add($win);
elm_icon_file_set($ic, $images{'logo_small'}, undef);
$menu_item = elm_menu_item_add($menu, undef, $ic, "Comes", \&tb_4, \$ph4);
$ic = elm_icon_add($win);
elm_icon_file_set($ic, $images{'logo_small'}, undef);
elm_menu_item_add($menu, $menu_item, $ic, "hey ho", \&tb_4, \$ph4);
$ic = elm_icon_add($win);
elm_icon_file_set($ic, $images{'logo_small'}, undef);
$menu_item = elm_menu_item_add($menu, undef, $ic, "Elementary", \&tb_5, \$ph4);
elm_box_pack_end($bx, $tb);
evas_object_show($tb);
$tb = elm_table_add($win);
#elm_table_homogenous_set($tb, 1);
evas_object_size_hint_weight_set($tb, 0.0, EVAS_HINT_EXPAND);
evas_object_size_hint_fill_set($tb, EVAS_HINT_FILL, EVAS_HINT_FILL);
$ph = $ph1;
elm_photo_size_set($ph, 40);
elm_photo_file_set($ph, $images{'plant'});
evas_object_size_hint_weight_set($ph, EVAS_HINT_EXPAND, EVAS_HINT_EXPAND);
evas_object_size_hint_align_set($ph, 0.5, 0.5);
elm_table_pack($tb, $ph, 0, 0, 1, 1);
evas_object_show($ph);
$ph = $ph2;
elm_photo_size_set($ph, 80);
evas_object_size_hint_weight_set($ph, EVAS_HINT_EXPAND, EVAS_HINT_EXPAND);
evas_object_size_hint_align_set($ph, 0.5, 0.5);
elm_table_pack($tb, $ph, 1, 0, 1, 1);
evas_object_show($ph);
$ph = $ph3;
elm_photo_size_set($ph, 20);
elm_photo_file_set($ph, $images{'sky'});
evas_object_size_hint_weight_set($ph, EVAS_HINT_EXPAND, EVAS_HINT_EXPAND);
evas_object_size_hint_align_set($ph, 0.5, 0.5);
elm_table_pack($tb, $ph, 0, 1, 1, 1);
evas_object_show($ph);
$ph = $ph4;
elm_photo_size_set($ph, 60);
elm_photo_file_set($ph, $images{'sky2'});
evas_object_size_hint_weight_set($ph, EVAS_HINT_EXPAND, EVAS_HINT_EXPAND);
evas_object_size_hint_align_set($ph, 0.5, 0.5);
elm_table_pack($tb, $ph, 1, 1, 1, 1);
evas_object_show($ph);
( run in 2.299 seconds using v1.01-cache-2.11-cpan-5837b0d9d2c )