view release on metacpan or  search on metacpan

t/elementary_test.t  view on Meta::CPAN

my $lb = elm_label_add($win);
elm_label_label_set($lb, "Please select a test from the list below<br>"
                       . "by clicking the test button to show the<br>test window.");
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);
}