package IUP::Text;
use strict;
use warnings;
use base 'IUP::Internal::Element';
use IUP::Internal::LibraryIup;
sub _create_element {
#my ($self, $args, $firstonly) = @_;
return IUP::Internal::LibraryIup::_IupText(undef);
}
sub TextConvertLinColToPos {
my ($self, $lin, $col) = @_;
my $pos = IUP::Internal::LibraryIup::_IupTextConvertLinColToPos($self->ihandle, $lin, $col);
return $pos;
}
sub TextConvertPosToLinCol {
my ($self, $pos) = @_;
my ($lin, $col) = IUP::Internal::LibraryIup::_IupTextConvertPosToLinCol($self->ihandle, $pos);
return ($lin, $col);
}
1;