Re: Questions about GtkPerl

["Oliver Fischer" <nexus fileseeker net>]

On Fri, 28 Jan 2000 12:34:07 +0100, Paolo Molaro wrote:

>On Wed, Jan 26, 2000 at 08:07:08PM +0100, Oliver Fischer wrote:
>> 1. How could i perform a garbage collection? Gtk::gc() does not work.
>
>Use Gtk->gc() (you shouldn't need to do it though).

Try this smal script and look at the memory usage...

-- code ---
#!/usr/bin/perl

use Gtk;

Gtk->init();


$w = Gtk::Window->new('toplevel');
$w->signal_connect(destroy => \&Gtk::main_quit );
$w->signal_connect(delete_event => \&Gtk::main_quit );

$cl = Gtk::CList->new(1);

$sw = Gtk::ScrolledWindow->new();

$fb = Gtk::Button->new_with_label('Fill');
$fb->signal_connect(clicked => \&filllist, $cl);

$cb = Gtk::Button->new_with_label('Clear');
$cb->signal_connect(clicked => \&clearlist, $cl);

$vb = Gtk::VBox->new(0, 0);
$sw->add($cl);
$vb->pack_start($sw, 1, 1, 1);
$vb->pack_start($fb, 1, 1, 1);
$vb->pack_start($cb, 1, 1, 1);
$w->add($vb);
$w->show_all();

Gtk->main();

sub filllist {
   my $cl = $_[1];

   for ($i = 0; $i < 10000; $i++) {
      my $ele ="Item $i";
      $cl->append($ele);
   }
}

sub clearlist {
   my $cl = $_[1];

   $cl->clear();
}

-- code ---


>> 2. It is possible to the stop the control sequence of multiple 
>>    callback functions for a event?
>
>You mean $object->signal_emit_stop_by_name($signal_name) 
>just as you do in C?:-)

I havn't used C and Gtk... ;-(

Bye,

Oliver






#--{ Oliver Fischer }--
plexus@snafu.de
http://www.xshare.com/~plexus/