view release on metacpan or  search on metacpan

t/elementary_test.t  view on Meta::CPAN

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);

xt/args.t  view on Meta::CPAN

    die("$images{$_} not found, aborting test suite.\n") unless (-e $images{$_});
}

use EFL qw(:all);

elm_init(@ARGV);

my ($win, $bg, $ic);

$win = elm_win_add(undef, "icon-transparent", ELM_WIN_BASIC);
elm_win_title_set($win, "Icon Transparent");
evas_object_smart_callback_add($win, "delete,request", sub { elm_exit(); exit(0); }, undef);
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);