[Kde-perl] Error in Qt::Table::text(i, j), Qt::TableItem::text().

[Alexey Dashevsky]

Hello all!

Thank for amicable silence;-)

Has refreshed files from cvs PerlQt-3, the memory leak at plotting the table 
has stopped. But memory flows also by call of methods Qt::Table::text(i, j), 
Qt::TableItem::text().

This bugs will be corrected?

I hope to the aid, Alexey.

For example, make active any way a method paint the given table.

#!/usr/bin/perl -w
package Table;
use Qt;
use Qt::isa qw(Qt::Table);

sub NEW { shift->SUPER::NEW(@_[0..2]); }

sub paintCell {
    my( $p, $row, $col, $cr, $selected ) = @_;
    return if ( $cr->width() == 0 || $cr->height() == 0 );
    my $cg = colorGroup();
    text($row, $col);
    SUPER->paintCell( $p, $row, $col, $cr, $selected, $cg );
}

1;

package main;
use Qt;
use Table;

my $a = Qt::Application(\@ARGV);
my $w = Table(100, 250, undef);
$a->setMainWidget($w);
$w->show;
exit $a->exec;