pEFL

 view release on metacpan or  search on metacpan

MANIFEST  view on Meta::CPAN

examples/Edje/signalsBubble.edc
examples/Elementary/button.pl
examples/Elementary/c1.svg
examples/Elementary/c2.svg
examples/Elementary/c3.svg
examples/Elementary/c4.svg
examples/Elementary/c5.svg
examples/Elementary/c6.svg
examples/Elementary/calendar.pl
examples/Elementary/colorselector.pl
examples/Elementary/combobox.pl
examples/Elementary/ctxpopup.pl
examples/Elementary/dict.txt
examples/Elementary/entry.pl
examples/Elementary/fileselector.pl
examples/Elementary/form.pl
examples/Elementary/genlist.pl
examples/Elementary/gettingstarted.pl
examples/Elementary/hello.pl
examples/Elementary/hoversel.pl
examples/Elementary/icon.png

examples/Elementary/combobox.pl  view on Meta::CPAN

$bg->size_hint_weight_set(EVAS_HINT_EXPAND, EVAS_HINT_EXPAND);
$bg->size_hint_align_set(EVAS_HINT_FILL, EVAS_HINT_FILL);
$win->resize_object_add($bg);
$bg->show();

my $bx = pEFL::Elm::Box->add($win);
$bx->size_hint_weight_set(EVAS_HINT_EXPAND, EVAS_HINT_EXPAND);
$win->resize_object_add($bx);
$bx->show();

my $combobox = pEFL::Elm::Combobox->add($win);
$combobox->size_hint_weight_set(EVAS_HINT_EXPAND,0);
$combobox->size_hint_align_set(EVAS_HINT_FILL,0);
$combobox->part_text_set("guide", "A simple list");
$bx->pack_end($combobox);
$combobox->show();

my $itc = pEFL::Elm::GenlistItemClass->new();
$itc->item_style("default");
$itc->text_get(\&_text_get);
$itc->state_get(\&_state_get);
# TODO: filter_get functionality not yet implemented
#$itc->filter_get(\&_filter_get);

my $i;
for ($i=0;$i< 10; $i++) {
	$combobox->item_append($itc,$i,undef,ELM_GENLIST_ITEM_NONE,undef,$i*10);
}

$combobox->smart_callback_add("clicked",\&_combobox_clicked_cb, undef);
$combobox->smart_callback_add("selected",\&_combobox_selected_cb, undef);
$combobox->smart_callback_add("dismissed",\&_combobox_dismissed_cb, undef);
$combobox->smart_callback_add("expanded",\&_combobox_expanded_cb, undef);
$combobox->smart_callback_add("item,pressed",\&_combobox_item_pressed_cb, undef);

$win->resize(300,500);
$win->show();


pEFL::Elm::run();

pEFL::Elm::shutdown();

sub del_cb {

examples/Elementary/combobox.pl  view on Meta::CPAN

sub _text_get {
    my ($data, $obj, $part) = @_;
 	return "Item # $data";
}

# TODO: Not implemented yet :-S
sub _filter_get {
	
}

sub _combobox_clicked_cb {
	my ($data,$obj,$event_info) = @_;
}

sub _combobox_selected_cb {
	my ($data,$obj,$event_info) = @_;
	my $item = pEFL::ev_info2obj($event_info, "ElmGenlistItemPtr");
	print "'selected' callback is called. (selected item : " . $item->text_get . ")\n";
}

sub _combobox_dismissed_cb {
	my ($data,$obj,$event_info) = @_;
}

sub _combobox_expanded_cb {
	my ($data,$obj,$event_info) = @_;
}

sub _combobox_item_pressed_cb {
	my ($data,$obj,$event_info) = @_;
	my $item = pEFL::ev_info2obj($event_info, "ElmGenlistItemPtr");
	my $text = $item->text_get();
	print "'item,pressed' callback is called. (selected item : $text)\n";
	$obj->text_set($text);
	$obj->hover_end();
}

sub _select_item {
    my ($data, $obj, $evInfo) = @_;

lib/pEFL/Elm/Combobox.pm  view on Meta::CPAN

our @EXPORT = qw(

);

require XSLoader;
XSLoader::load('pEFL::Elm::Combobox');

sub add {
    my ($class,$parent) = @_;
    my $widget = elm_combobox_add($parent);
    $widget->event_callback_add(EVAS_CALLBACK_DEL, \&pEFL::PLSide::cleanup, $widget);
    $widget->event_callback_add(EVAS_CALLBACK_DEL, \&pEFL::PLSide::cleanup_genitems, $widget);
    $widget->event_callback_add(EVAS_CALLBACK_DEL, \&pEFL::PLSide::cleanup_signals, $widget);
    return $widget;
}

*new = \&add;

package ElmComboboxPtr;

lib/pEFL/Elm/Combobox.xs  view on Meta::CPAN

#include <Elementary.h>


typedef Elm_Combobox ElmCombobox;
typedef Evas_Object EvasObject;

MODULE = pEFL::Elm::Combobox		PACKAGE = pEFL::Elm::Combobox

ElmCombobox * 
elm_combobox_add(parent)
    EvasObject *parent

MODULE = pEFL::Elm::Combobox		PACKAGE = ElmComboboxPtr     PREFIX = elm_combobox_

Eina_Bool 
elm_combobox_expanded_get(const ElmCombobox *obj);

void 
elm_combobox_hover_begin(ElmCombobox *obj);

void 
elm_combobox_hover_end(ElmCombobox *obj);