use Tk; use Tk::TableMatrix; my $i=0; my $macchina_='38'; my $dbh; $mw = MainWindow->new; $mw->geometry("1000x600+0+0"); my $gridContainer={}; my ($rows,$cols) = (100, 16); foreach my $row (0..($rows-1)){ foreach my $col (0..($cols-1)){ $gridContainer->{"$row,$col"} = " "; } } my $frameFermiDelTurno= $mw->Frame()->pack(-expand=>1,-fill=>'both'); -orient=>"horizontal"); my $t = $frameFermiDelTurno->Scrolled('TableMatrix', -rows => $rows, -cols => $cols, -width =>500, -height => 14, -titlerows => 1, -titlecols => 1, -variable => $gridContainer, -selectmode => 'extended', -state => 'disabled', -bg => 'white', -font=> '{arial} 16 bold', -padx=>0, -ipadx=>0, -sparsearray=>0, -scrollbars=>'se' ); $t->tagConfigure('active',-bg => 'gray90', -relief => 'sunken'); $t->tagConfigure('title', -bg => 'gray85', -fg => 'black', -relief => 'sunken'); $t->colWidth(2,20); $t->colWidth(3,20); # force scrollbar refresh: $t->pack( -expand=>1,-fill => 'x' , -side=>'left', -anchor=>'w'); my $row=0; # $gridContainer->{"$row,0"} = "ID"; # $gridContainer->{"$row,1"} = "-"; # $gridContainer->{"$row,2"} = 'STATO'; # $gridContainer->{"$row,3"} = 'TURNO INIZIO'; # $gridContainer->{"$row,4"} = 'TURNO FINE'; # $gridContainer->{"$row,5"} = 'ORA INIZIO'; # $gridContainer->{"$row,6"} = 'ORA_FINE'; # $gridContainer->{"$row,7"} = 'ODL'; # $gridContainer->{"$row,8"} = 'LOTTO'; # $gridContainer->{"$row,9"} = 'NOTE'; # $gridContainer->{"$row,10"} = 'OPERATORE'; # $gridContainer->{"$row,11"} = 'CODICE PRODOTTO'; # $gridContainer->{"$row,12"} = 'CODICE_FERMO'; # $gridContainer->{"$row,13"} = 'DATA FINE'; # $gridContainer->{"$row,14"} = 'DATA INIZIO'; # $gridContainer->{"$row,15"} = 'DESCRIZIONE'; # $mw->repeat (1000,[ \&leak ]); MainLoop; sub leak{ TMRefresh(); } ###################################################################### sub TMRefresh{ ###################################################################### # this leaks $t->see("end"); # this leaks $->see("1,1"); $t->configure(-padx =>($t->cget(-padx))); #this leaks memory too my ($rows,$cols) = (100, 16); foreach my $row (0..($rows-1)){ foreach my $col (0..($cols-1)){ $gridContainer->{"$row,$col"} = int(rand(10)); } } $mw->update; }