—package
pEFL::Evas::Canvas;
use
strict;
use
warnings;
require
Exporter;
our
@ISA
=
qw(Exporter EvasCanvasPtr)
;
# 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::Evas::Canvas'
);
# sub new {
# my ($class,$parent) = @_;
# my $widget = elm_bg_add($parent);
# $widget->smart_callback_add("del", \&pEFL::PLSide::cleanup, $widget);
# return $widget;
#}
# *new = \&add;
package
EvasCanvasPtr;
use
pEFL::Eina;
use
pEFL::PLSide;
our
@ISA
=
qw(EvasObjectPtr)
;
sub
font_path_list_pv {
my
(
$obj
) =
@_
;
my
$list
=
$obj
->font_path_list();
my
@array
= pEFL::Eina::list2array(
$list
,
"String"
);
return
@array
;
}
sub
font_available_list_pv {
my
(
$obj
) =
@_
;
my
$list
=
$obj
->font_available_list();
my
@array
= pEFL::Eina::list2array(
$list
,
"String"
);
return
@array
;
}
# Preloaded methods go here.
1;
__END__
=head1 NAME
pEFL::Evas::Canvas
=head1 DESCRIPTION
This module is a perl binding to the Evas Canvas.
Evas is a clean display canvas API for several target display systems that can
draw anti-aliased text, smooth super- und sub-sampled scaled images, alpha-blend
objects and more.
=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