Re: Gdk Pixbufloader not freeing memory

From: Jörn Reder <joern zyn de>
To: jason forkey net
Cc: gtk-perl-list gnome org
Subject: Re: Gdk Pixbufloader not freeing memory
Date: Sat, 22 Feb 2003 08:57:29 +0100


Hi,

didn't check the details, but I attached two mails from the list I 
posted some time ago with a similar problem (and a solution ;)

Probably it helps.

Regards,

Joern

-- 
sub i($){print$_[0]}*j=*ENV;sub w($){sleep$_[0]}sub _($){i"$p$c > ",w
1,$_=$_[0],tr;i-za-h,;a-hi-z ;,i$_,w 1,i"\n"}$|=1;$f='HO';($c=$j{PWD}
)=~s/$j{$f."ME"}/~/;$p="$j{USER}\ $j{HOSTNAME}:";_"kl",$c='~',_"zu,".
"-zn,*",_"#,epg,lw,gwc,mfmkcbm,cvsvwev,uiqt,kwvbmvb?",i"$p$c > ";w 99

Message-Id: <200111202218 fAKMIPc15148 prison castle>
Content-Type: text/plain; charset="iso-8859-1"
Content-Disposition: inline
Content-Transfer-Encoding: 8bit
MIME-Version: 1.0
To: gtk-perl-list gnome org
From: Joern Reder <joern netcologne de>
Subject: Memory leak in Gtk?
Sender: gtk-perl-list-admin gnome org
Errors-To: gtk-perl-list-admin gnome org
Precedence: bulk
Date: Tue, 20 Nov 2001 23:18:25 +0100


Hi,

I'm using Gtk::Gdk::ImlibImage in conjunction with a Gtk::DrawingArea to
draw a Gtk::Gdk::Pixmap (an some lines and stuff on it, later).

If I load a new image file to draw on the DrawingArea, the process 
consumpts memory very fast (about 2 MB per file).

Here is a test program which demonstrates this effect:

--snip--
#!/usr/local/bin/perl

use strict;

use Gtk;
use Gtk::Gdk::ImlibImage;

Gtk->init;
Gtk::Gdk::ImlibImage->init;

# unfortunately useless...
Gtk::Gdk::ImlibImage->set_cache_info (0, 0);

use File::Copy;
use File::Basename;

main: {
        my $filename = shift @ARGV;
        if ( not $filename ) {
                print "usage: leak.pl filename\n";
                exit 1;
        }

        my $win = Gtk::Window->new ( -toplevel );
        $win->set_position ('center');
        $win->signal_connect( 'destroy', sub { Gtk->exit( 0 ); } );
        $win->show;

        my $da = Gtk::DrawingArea->new;
        $da->show;
        $da->size (256,256);

        my $gdk_pixmap = load ($filename);

        $da->signal_connect( 'configure_event', sub { draw ($da, $gdk_pixmap) } );
        $da->signal_connect( 'expose_event', sub { draw ($da, $gdk_pixmap) } );

        my $vbox = Gtk::VBox->new;
        $vbox->show;
        $vbox->pack_start ($da, 0, 1, 0);

        my $button = Gtk::Button->new_with_label ("click me for memory leak");
        $button->show;
        $vbox->pack_start ($button, 0, 1, 0);
        $button->signal_connect ("clicked", sub {
                $gdk_pixmap = load ($filename);
                draw ($da, $gdk_pixmap);
        });

        $win->add($vbox);

        Gtk->main;
}

sub load {
        my $filename = shift;

        # prevent caching (worst hack!)
        my $tmp_name = "/tmp/imageclip$$".rand(1000000).basename($filename);
        copy ($filename, $tmp_name);
        my $image = Gtk::Gdk::ImlibImage->load_image ($tmp_name);
        unlink $tmp_name;

        $image->render (256, 256);

        return $image->copy_image;      # same effect with ->move_image
}       

sub draw {
        my ($da, $gdk_pixmap) = @_;

        my $drawable = $da->window;
        my $white_gc = $da->style->white_gc;

        $drawable->draw_pixmap (
                $white_gc, $gdk_pixmap, 0, 0, 0, 0, 256, 256
        );

        return 1;
}

--snip--

Is this a bug in my program? Or is Gtk leaking here...

Thanks for your help,

Joern

-- 
sub i($){print$_[0]}*j=*ENV;sub w($){sleep$_[0]}sub _($){i"$p$c > ",w
1,$_=$_[0],tr;i-za-h,;a-hi-z ;,i$_,w 1,i"\n"}$|=1;$f='HO';($c=$j{PWD}
)=~s/$j{$f."ME"}/~/;$p="$j{USER}\ $j{HOSTNAME}:";_"kl",$c='~',_"zu,".
"-zn,*",_"#,epg,lw,gwc,mfmkcbm,cvsvwev,uiqt,kwvbmvb?",i"$p$c > ";w 99
_______________________________________________
gtk-perl-list mailing list
gtk-perl-list gnome org
http://mail.gnome.org/mailman/listinfo/gtk-perl-list

Message-Id: <200111202309 fAKN9Lc15320 prison castle>
Content-Type: text/plain; charset="iso-8859-1"
Content-Disposition: inline
Content-Transfer-Encoding: 8bit
MIME-Version: 1.0
In-Reply-To: <200111202218 fAKMIPc15148 prison castle>
To: gtk-perl-list gnome org
From: Joern Reder <joern netcologne de>
Subject: Solved (was: Re: Memory leak in Gtk?)
Sender: gtk-perl-list-admin gnome org
Errors-To: gtk-perl-list-admin gnome org
Precedence: bulk
Date: Wed, 21 Nov 2001 00:09:21 +0100

Joern Reder wrote:

Is this a bug in my program? Or is Gtk leaking here...


It was a bug of mine - after crawling through the documentation again, I
found this

  (Gtk::Gdk::ImlibImage) $image->kill_image

And yes: it does what it sounds like ;)

I call this after getting the pixmap with $image->copy_image: and 
nothing is leaking anymore.

Joern

-- 
Joern Reder - joern zyn de
Development Head ZYN! Coding Division - http://www.zyn.de/joe
_______________________________________________
gtk-perl-list mailing list
gtk-perl-list gnome org
http://mail.gnome.org/mailman/listinfo/gtk-perl-list

Follow-Ups:
- Re: Gdk Pixbufloader not freeing memory
  - From: Jason Forkey

[Date Prev][Date Next] [Thread Prev][Thread Next] [Thread Index] [Date Index] [Author Index]