Closing a Gtk::Dialog - How?

[Martin Schulze <joey infodrom org>]

Hi!

I wonder if somebody on this list can give me assistence with Gtk-Perl
and closing a Gtk::Dialog properly.

The main window in the application will create info dialog boxes on
demand which looks like the code below.

My question is how do I make the »Close«-button work properly, using
the Gtk-Perl way[tm] and witout wasting memory.

I currently know about three ways to get this done visually, but all
three of them, doesn't free memory again.

The three methods of visually closing the dialog windows (i.e. so they
are not visible anymore) are:

    $button->signal_connect ("clicked", sub { $dialog->hide; });

    $button->signal_connect ("clicked", sub { $dialog->destroy; });

    $button->signal_connect ("clicked", sub { destroy $dialog; });

This is tested using this method:

 1. opening some 15 info windows
 2. check memory use
 3. closing all info windows
 4. check memory use
 5. opening some five info windows
 6. check memory use

Interestingly, the memory use from 2 and 4 are similar, and 6 shows an
even higher memory consumption.  Hence, I assume that for some reason
memory is not freed after closing the windows, and it's not even
reused, so it's not placed and marked "unused" in a garbage collector.

So what's the Gtk-Perl way for achieving this?

The tutorial somehow forgot to contain this bit of information.  The
»Close« button is created and added to the dialog, but no Close
functionality is added, dunno why.  Here's the link
<http://personal.riverusers.com/~swilhelm/gtkperl-tutorial/dialog.html>

Please copy your answer to me, since I'm not (yet) subscribed to this
list (use joey debian org, if you should use a broken mail server).

Thanks in advance,

        Joey


sub open_info_window
{
    my $fruit = shift;

    my $dialog = new Gtk::Dialog();
    $dialog->title ($fruit);
    $dialog->set_usize( 300, 300 );

    my $button = new Gtk::Button( "Close" );
    # connect signal to button
    $dialog->action_area->add( $button );
    $button->show();

    my $frame = new Gtk::Frame ("Description");
    $frame->border_width (3);

    $Text::Wrap::columns = 1000;
    my $realtext = Text::Wrap::fill ("", "", $info{$fruit});
    
    my $text = new Gtk::Text (undef, undef);
    $text->set_editable ($false);
    $text->set_word_wrap ($true);
    $text->insert (undef, $text->style->black, undef, $realtext);

    $frame->add( $text );
    $dialog->vbox->add( $frame );

    $dialog->show_all();
}


-- 
If nothing changes, everything will remain the same.  -- Barne's Law

Please always Cc to me when replying to me on the lists.