view release on metacpan or  search on metacpan

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

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

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

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

 view release on metacpan or  search on metacpan

lib/wxPerl/Constructors/doc.pod  view on Meta::CPAN

    style     => 0,
    validator => Wx::wxDefaultValidator(),
    name      => wxComboBoxNameStr,
  );

http://wxwidgets.org/manuals/stable/wx_wxcombobox.html

=head2 wxPerl::Dialog

  wxPerl::Dialog->new(
    $parent,