#! /usr/bin/perl
pEFL::Elm::init(
$#ARGV
, \
@ARGV
);
pEFL::Elm::policy_set(ELM_POLICY_QUIT, ELM_POLICY_QUIT_LAST_WINDOW_CLOSED);
my
$win
= pEFL::Elm::Win->util_standard_add(
"hello"
,
"Hello, World!"
);
$win
->autodel_set(1);
$win
->resize(400,400);
my
$bx
= pEFL::Elm::Box->add(
$win
);
$bx
->size_hint_weight_set(EVAS_HINT_EXPAND,1);
$bx
->size_hint_align_set(-1, 0.5);
my
$pb
= pEFL::Elm::Progressbar->add(
$win
);
$pb
->text_set(
"LABEL"
);
$pb
->span_size_set(300);
$pb
->size_hint_weight_set(EVAS_HINT_EXPAND,EVAS_HINT_EXPAND);
$pb
->size_hint_align_set(EVAS_HINT_FILL, 0.5);
$pb
->unit_format_function_set(\
&_progress_format_cb
,
undef
);
$bx
->pack_end(
$pb
);
$pb
->show();
$bx
->show();
$pb
->value_set(0.8);
$win
->show();
pEFL::Elm::run();
pEFL::Elm::
shutdown
();
sub
_progress_format_cb {
my
(
$val
) =
@_
;
return
"VAL is $val"
;
}