—package
pEFL::Elm::Index;
use
strict;
use
warnings;
require
Exporter;
use
pEFL::Evas;
use
pEFL::Elm::Object;
our
@ISA
=
qw(Exporter ElmIndexPtr)
;
# Items to export into callers namespace by default. Note: do not export
# names by default without a very good reason. Use EXPORT_OK instead.
# Do not simply export all your public functions/methods/constants.
# This allows declaration use pEFL::Elm ':all';
# If you do not need this, moving things directly into @EXPORT or @EXPORT_OK
# will save memory.
our
%EXPORT_TAGS
= (
'all'
=> [
qw(
)
] );
our
@EXPORT_OK
= ( @{
$EXPORT_TAGS
{
'all'
} } );
our
@EXPORT
=
qw(
)
;
require
XSLoader;
XSLoader::load(
'pEFL::Elm::Index'
);
sub
add {
my
(
$class
,
$parent
) =
@_
;
my
$widget
= elm_index_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
ElmIndexPtr;
use
pEFL::PLSide;
our
@ISA
=
qw(ElmObjectPtr EvasObjectPtr)
;
sub
insert_before {
my
(
$obj
,
$before
,
$letter
,
$func
,
$func_data
) =
@_
;
my
$id
= pEFL::PLSide::save_gen_item_data(
$obj
,
undef
,
$func
,
$func_data
);
my
$widget
= _elm_index_item_insert_before(
$obj
,
$before
,
$letter
,
$id
);
return
$widget
;
}
sub
insert_after {
my
(
$obj
,
$after
,
$letter
,
$func
,
$func_data
) =
@_
;
my
$id
= pEFL::PLSide::save_gen_item_data(
$obj
,
undef
,
$func
,
$func_data
);
my
$widget
= _elm_index_item_insert_after(
$obj
,
$after
,
$letter
,
$id
);
return
$widget
;
}
sub
item_prepend {
my
(
$obj
,
$letter
,
$func
,
$func_data
) =
@_
;
my
$id
= pEFL::PLSide::save_gen_item_data(
$obj
,
undef
,
$func
,
$func_data
);
my
$widget
= _elm_index_item_prepend(
$obj
,
$letter
,
$id
);
return
$widget
;
}
sub
item_append {
my
(
$obj
,
$letter
,
$func
,
$func_data
) =
@_
;
my
$id
= pEFL::PLSide::save_gen_item_data(
$obj
,
undef
,
$func
,
$func_data
);
my
$widget
= _elm_index_item_append(
$obj
,
$letter
,
$id
);
return
$widget
;
}
# Preloaded methods go here.
1;
__END__
=head1 NAME
pEFL::Elm:Index
=head1 SYNOPSIS
use pEFL::Elm;
[...]
my $widget = pEFL::Elm::Index->add($parent);
$widget->autohide_disabled_set(1);
$widget->item_append($item,"L",\&func,$data);
[...]
=head1 DESCRIPTION
This module is a perl binding to the Elementary Index widget.
For more informations see https://www.enlightenment.org/develop/legacy/api/c/start#group__Elm__Index.html
For instructions, how to use pEFL::Elm::Index, please study this API reference for now. A perl-specific documentation will perhaps come in later versions. But applying the C documentation should be no problem. pEFL::Elm::Index gives you a nice object-oriented interface that is kept close to the C API. Please note, that the perl method names remove the "elm_index_" at the beginning of the c functions.
=head2 EXPORT
None by default.
=head1 LIMITATIONS
The function insert_sorted is not implemented.
=head1 SEE ALSO
=head1 AUTHOR
Maximilian Lika
=head1 COPYRIGHT AND LICENSE
Copyright (C) 2022 by Maximilian Lika
This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself, either Perl version 5.28.1 or,
at your option, any later version of Perl 5 you may have available.
=cut