view release on metacpan or  search on metacpan

t/elementary_test.t  view on Meta::CPAN

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) = @_;
    printf(STDERR "clicked!\n");
    evas_object_hide($$win);
}

sub test_icon {
    my ($win, $bg, $ic);

    $win = elm_win_add(undef, "icon-transparent", ELM_WIN_BASIC);
    elm_win_title_set($win, "Icon Transparent");
    elm_win_autodel_set($win, 1);
    elm_win_alpha_set($win, 1);

    $ic = elm_icon_add($win);
    elm_icon_file_set($ic, $images{'logo'}, undef);
    elm_icon_scale_set($ic, 0, 0);
    elm_win_resize_object_add($win, $ic);
    evas_object_show($ic);

    evas_object_smart_callback_add($ic, "clicked", \&icon_clicked, \$win);

    evas_object_show($win);
}

sub test_box_vert {
    my ($win, $bg, $bx, $ic);

    $win = elm_win_add(undef, "box-vert", ELM_WIN_BASIC);
    elm_win_title_set($win, "Box Vert");
    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);

    $ic = elm_icon_add($win);
    elm_icon_file_set($ic, $images{'logo_small'}, undef);
    elm_icon_scale_set($ic, 0, 0);
    evas_object_size_hint_align_set($ic, 0.5, 0.5);
    elm_box_pack_end($bx, $ic);
    evas_object_show($ic);

    $ic = elm_icon_add($win);
    elm_icon_file_set($ic, $images{'logo_small'}, undef);
    elm_icon_scale_set($ic, 0, 0);
    evas_object_size_hint_align_set($ic, 0.0, 0.5);
    elm_box_pack_end($bx, $ic);
    evas_object_show($ic);

    $ic = elm_icon_add($win);
    elm_icon_file_set($ic, $images{'logo_small'}, undef);
    elm_icon_scale_set($ic, 0, 0);
    evas_object_size_hint_align_set($ic, EVAS_HINT_EXPAND, 0.5);
    elm_box_pack_end($bx, $ic);
    evas_object_show($ic);

    evas_object_show($win);
}

sub test_box_horiz {
    my ($win, $bg, $bx, $ic);

    $win = elm_win_add(undef, "box-horiz", ELM_WIN_BASIC);